Mit Combobox suchen und Zelle Auswählen
01.02.2017 17:40:13
Holger
ich möchte mit einer Combobox ein Datum aussuchen und dieses im Activen Tabellenblatt
auswählen. Das Datum Datum steht in Spalte A3 - A33 die ComboBox wird auch mit diesen Daten gefühlt zum auswählen.
Ich habe folgend Makros schon ausprobiert leider ohne Erfolg.
Private Sub CommandButton4_Click()
On Error Resume Next
Dim Zelle As Range
ComboBox1 = Format(Date)
Cells.Find(What:=ComboBox1, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
End Sub
und diese auch
Private Sub CommandButton4_Click()
On Error Resume Next
Dim Zelle As Range
ComboBox1 = Format(Date)
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Value = ComboBox1 Then
Zelle.Activate
End If
Next Zelle
End Sub
Mit diesem Makro fülle ich die ComboBox
Private Sub UserForm_Activate()
With ComboBox1 'Datum
.Clear
iMax = ActiveSheet.UsedRange.Rows.Count
'Auswahl von der Eingelesen wird hier bis zu 33 Zelle
i = 3
For i = 3 To 33
.AddItem ActiveSheet.Cells(i, 1)
Next i
End With
End Sub