Blattnamen in ComboBox wenn Zeichenfolge
12.08.2021 08:32:56
Daniel
ich versuche in einer UserForm ComboBox alle NICHT ausgeblendeten Tabellenblätter aufzulisten, die mit KW_ beginnen.
Leider passiert bei meinem Code gar nichts; ich bekomme noch nicht mal eine Fehlermeldung.
Was mache ich falsch?
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To ThisWorkbook.Sheets.Count
' If Sheets(i).Name "KW" Then ComboBox1.AddItem Sheets(i).Name
If InStr(1, Left(Sheets(i).Name, 6), "-h") > 0 Then
If Left(Sheets(i).Name, InStr(1, Sheets(i).Name, "-h") - 1) = "KW" Then ComboBox1.AddItem Sheets(i).Name
End If
Next i
End Sub
Anzeige