Wer kann mir weiterhelfen ich steh glaube ich auf dem Schlauch. Ich will in der ListBox die Arbeitsblätter auflisten. Es soleln jedoch nicht alle aufgelistet werden. Soweit binich gekommen das ich eines nicht Anzeigen kann wenn ich jedoch noch drei weitere nicht Anzeigen will gelingt mir das nicht, Was mache ich falsch. Hier mal ein Teil des Code der Rest hat damit nichts zu tun. Ich denke bei "If Not varItem.Name = "Hilfsblatt" Then" muss was noch zusätzlich rein kom aber nicht drauf wie.
Dim intIndex As Integer
Dim intItemMarked As Integer
Dim varItem As Variant
Me.Caption = "Sheets in " & ActiveWorkbook.Name
intInitialSheet = ActiveSheet.Index
For Each varItem In ActiveWorkbook.Sheets
If Not varItem.Name = "Hilfsblatt" Then
Me.ListBox1.AddItem (varItem.Name)
End If
If varItem.Name = ActiveSheet.Name Then
intItemMarked = intIndex
End If
intIndex = intIndex + 1
Next varItem
Gruss Roger