Mit ComboBox in Zelle springen

Question

Hallo zusammen

Ich möcht mittels einer ComboBox in bestimmte Zellen springen.
In der ComboBox befinden sich die Monate Januar bis Dezember.
In der Tabelle1 Spalte ab A5 befinden sich die Datum in Zahlen geschrieben.
Nun möchte ich, dass wenn ich den Monat Februar in der ComboBox1 anwähle, dass automatisch die Zelle vom 01.02.2009 angewählt wird.
Das selbe würde dann für die anderen Monate gelten.
Kann mir da jemand unter die Arme greifen?

Gruss Pascal

Answer 1

Hi Pascal,

in der CombobBox stehen nur die Monate?

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

Bis später,
Karin

Answer 2

Hi Karin

Besten Dank für deine Unterstützung. Läuft wie eine 1.

Gruss Pascal