Abfrage nach einem bestimmten Sheet

Computer: Software & Programmierung Visual Basic
#1

Hola an alle,
Habe mal wieder ein Problemchen. Ich habe immer in der gleichen Zelle(O10) in meinem Book (z.B. Tabelle1) einen Namen oder eine KundenNr. stehen. Nach diesem Namen oder der Nummer möchte ich dann in allen Sheets suchen und den passenden öffnen. Der Name steht immer in C2 und die Nummer immer in C3. Wenn möglich sollte egal sein ob Name oder Nummer in der Zelle steht. Die Namen und Nummern existieren immer nur einmal.
Muchas Gracias
Carsten

#2

Hallo Carsten,

ich habe das hoffentlich richtig verstanden.
Im Blatt Tabelle1, Zelle O10 steht ein Name oder eine KundenNr.
Wenn dieser Name in einem anderen Blatt in Zelle C2 steht oder diese KundenNr. in einem anderen Blatt in C3, dann soll auf dieses Blatt umgeschaltet werden.
Wenn das so stimmt, versuch es mal hiermit:

Option Explicit

Sub nameNrSuchen()
 Dim blatt As Worksheet

 For Each blatt In Worksheets
 If blatt.Name "Tabelle1" And \_
 (Sheets("Tabelle1").Range("O10") = blatt.Range("C2") Or \_
 Sheets("Tabelle1").Range("O10") = blatt.Range("C3")) Then
 blatt.Activate
 Exit Sub
 End If
 Next blatt
 MsgBox "Nix gefunden"
End Sub

Gruß, Andreas

#3

Hola Andreas,
du hast alles richtig verstanden und dein Makro funktioniert einwandfrei. Vielen Dank für die Arbeit die du dir gemacht hast.
Hasta luego
Carsten