Private Sub ComboBox1_Change()
Dim raZelle As Range
Set raZelle = Columns(1).Find(CDate("01." & ComboBox1 & ".2009"), lookat:=xlWhole)
If Not raZelle Is Nothing Then
Application.Goto reference:=raZelle, Scroll:=True
Else
MsgBox "Datum nicht gefunden"
End If
End Sub
In Zelle des aktuellen Datums springen
LIPO 25.09.2007 - 36 Hits - 10 Antworten
VBA Excel in unterste Zelle springen
Winniki 12.05.2008 - 75 Hits - 1 Antwort
[Excel] Mit Enter in rechte Zelle springen
Surprise 13.05.2008 - 43 Hits - 2 Antworten
Wert von einer Text, Combobox in zelle einfügen
Jaenes 03.07.2008 - 78 Hits - 2 Antworten
nach Eingabe automatisch eine Zelle nach rechts springen
Elhamplo 09.01.2009 - 64 Hits - 5 Antworten