ich brauche bitte mal wieder Eure Hilfe. Hier das vereinfachte Beispiel:
Auf dem 1. Tabellenblatt stehen in Spalte A ein paar Indexzahlen oder
auch "Sprungmarken"untereinander, z.B. 10, 11, 12, 13 . . . .
Jede dieser Zahlen taucht ein einziges Mal in einem der 2 folgenden Tabellenblätter
irgendwo wieder auf (ebenfalls in Spalte A).
Nun möchte ich auf dem ersten Tabellenblatt neben der Index-Nummern-Liste einen
Button, der, wenn ich bspw. die Zelle mit der 12 markiert habe, die folgenden 2 Tabellenblätter
durchsucht und dort quasi auf die 12 springt. Heißt, im ersten (Index-) Tabellenblatt muß gar
nicht gesucht werden.
Meine Idee (die leider nicht funktioniert):
Sub suche()
Dim ErgebnisZelle As Range
Dim suchIndex As String
suchIndex = ActiveCell.Value
Dim suchbereich As Range
Dim suchbereich2 As Range
Set suchbereich = Sheets("tabelle2").Columns("A:A")
Set suchbereich2 = Sheets("tabelle3").Columns("A:A")
With suchbereich
Set ErgebnisZelle = .Find(suchIndex, LookIn:=Values)
If Not ErgebnisZelle Is Nothing Then
ErgebnisZelle.Select
else:
With suchbereich2
Set ErgebnisZelle = .Find(suchIndex, LookIn:=Values)
If Not ErgebnisZelle Is Nothing Then
ErgebnisZelle.Select
end with
End Sub
Hm, vermutlich geht es irgendwie viel einfacher. Nur blöd: Ichweiß nicht wie!
Hoffentlich könnnt Ihr mir wie immer weiterhelfen!
Vielen Dank,
Gruß,
Ramon