Ich Habe mehrere Tabellenblätter, A4 bis A53 steht immer das Datum.
Nun möchte ich über eigenes Tabellenblatt mittels Button oder so ähnlich zu dem Tabellenblatt kommen,wo das gesuchte Datum steht.
Könnte mir bitte jemand helfen.
Danke
Sub Datum()
' Datum Makro
' Makro am 17.01.2005 von Heinz Holzmann aufgezeichnet
Range("C19").Select
ActiveCell.FormulaR1C1 = "10/25/2004"
Range("C20").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("25.10.2004").Select
ActiveWindow.SmallScroll Down:=0
Range("A6").Select
End Sub
Sub MultiSuche()
Dim Sh As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
SBegriff = InputBox("Bitte Suchbegriff eingeben:")
For Each Sh In Worksheets
Sh.Activate
Set GZelle = Sh.Cells.Find(SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
GZelle.Activate
If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set GZelle = Cells.FindNext(After:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
Next Sh
End Sub