Wenn Datum nicht vorhanden, nichts tun
16.11.2022 20:15:07
Alex
Meine Kalendermonat ist von links nach rechts aufsteigend aufgebaut. Also vom 01.01.2022 bis 31.01.2022 als Beispiel.
ich habe mit meinem Code das Problem, dass wenn ich eine Arbeitsmappe habe, wo das Datum nicht vorhanden ist (z.B. das oben angegebene, denn das liegt bereits in der Vergangenheit), er bei Anklicken des CommandButtons bis zur letzten Zeile springt.
Ich hätte es gerne so, dass wenn er das Datum von "Heute" nicht findet, er einfach nichts machen soll.
Private Sub CommandButton1_Click() 'Heute Button
Dim lngZeile As Long
Dim lngSpalte As Long
Dim suchDatum As Date
suchDatum = Date 'Das Datum von Heute
lngZeile = 2
For lngSpalte = Range("B2").Column To Range("CP2").Column
If IsDate(Cells(lngZeile, lngSpalte).Value) Then
If CDate(Cells(lngZeile, lngSpalte).Value) = suchDatum Then
Cells(lngZeile, lngSpalte).Select
Exit For
End If
End If
Next lngSpalte
ActiveWindow.ScrollColumn = lngSpalte
End Sub
Anzeige