mit ComboBox Datum suchen
Holger
ich möchte über eine ComboBox ein Datum suchen und die Zelle mit diesem Datum dann Activieren.
Leider läuft mein Code nicht, kann mir einer sagen was ich falsch gemacht habe.
Wenn ich das Tabellenblatt öffne läuft dieser Code einwandfrei.
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Value = Date Then
Zelle.Activate
'Exit Sub
End If
Next Zelle
Habe das Datum in Spalte A mit folgenden Format "TT.MM.JJ" Benutzerdefiniert.
wie gesagt beim öffnen läuft ein Code zum Datum suchen einwandfrei.
Es handelt sich um UserForm1 und ComboBox5
Private Sub UserForm_Activate()
Dim MonatNr As Integer
Dim Zelle As Range
Dim i As Long
Dim iMax As Integer
Const TabName = "Tabelle"
Set frm1 = UserForm1
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Value = Date Then
Zelle.Activate
'Exit Sub
End If
Next Zelle
ComboBox5 = Format(Date)
With ComboBox5
'.Clear
iMax = ActiveSheet.UsedRange.Rows.Count
'Auswahl von der Eingelesen wird hier bis zu 3 Zelle
i = 3
For i = 3 To 33
.AddItem ActiveSheet.Cells(i, 1)
Next i
End With
End Sub
Private Sub CommandButton6_Click()
' Datum suchen
Set frm = UserForm1
ActiveSheet.Unprotect
Range("A1").Select
Range("A1").Activate
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Value = ComboBox5 Then
Zelle.Activate
'Exit Sub
End If
Next Zelle
End Sub
Danke Holger