Hallo und Guten Abend,

ich habe folgenden Code:

Dim lng As Long
Dim i As Integer

With frmUrlaubsplanung

.ListBox2.Clear

For lng = 7 To 5850

If Cells(lng, 1).Value > CDate(.TextBox58) Then Exit For

If Cells(lng, 1).Value >= CDate(.TextBox59) And Cells(lng, 5) = "F 05 / 2024" Then
.ListBox2.AddItem Cells(lng, 1).Text
.ListBox2.Column(1, i) = Cells(lng, 5).Text
i = i + 1
End If

Next lng

End With

Das was ich fettgedruckt habe findet das Makro. Aber ich möchte mir in der ListBox alle anzeigen lassen wo links ein "F" steht.
Denn es gibt F 01 / 2024, F 02 / 2024 usw. - F 19 / 2024.

Mit Left("F", 1) funktionierte es nicht.

Weiss jemand Rat?

Danke im Voraus!

L.G. Frank