|
Hallo zusammen
Ich möchte in einer Excel-Datei mit mehreren Blättern (2016, 2017, 2018) eine bestimmte Zelle aufgrund des Datums finden. Das funktioniert mit dem nachfolgenden Makro einwandfrei, solange ich mich im Tabellenblatt 2017 befinde.
Option Explicit
Sub Auto_open()
Dim shtTemplate As Worksheet
Dim intZaehl As Integer
Dim datDatum As Date
Dim datHeute As Date
' Feste Werte zuordnen
Set shtTemplate = ThisWorkbook.Worksheets("2017")
datHeute = Date
' in Zeile 5 nach dem Tagesdatum suchen
With shtTemplate
For intZaehl = 14 To 2000
datDatum = .Cells(1, intZaehl)
' falls Datum gefunden, den Eingabezeiger dort
' positionieren und die Suche beenden.
If datDatum = datHeute Then
.Cells(5, intZaehl).Select
Exit For
End If
Next
End With
End Sub
Wurde die Datei aber bspw. auf dem Reiter 2018 gespeichert, funktioniert der Code nicht mehr. Wie kann ich den Code anpassen, dass er funktioniert "egal" in welchem Tabellenblatt abgespeichert wurde?
Besten Dank für Eure Hilfe.
|