ich möchte ein Makro programmieren, dass dem Benutzer in einem Formular alle, in dieser Arbeitsmappe, sichtbaren Arbeitsblätter anzeigt (Listbox). Der Benutzer wählt aus der Listbox ein oder mehrere / alle (bis auf das aktive) Mappen aus.
Sub do_it()
With userform1.list
For i = 1 To .ListCount
If .Selected(i - 1) = True Then
If Sheets(i).Name = ActiveSheet.Name Then
MsgBox "Das aktive Sheet kann nicht ausgeblendet werden"
Else
Sheets(i).Visible = False
End If
End If
Next
End With
update
End Sub
Leider schafft mein Makro es nicht, in mehreren Durchgängen zuverlässig die gewählten Mappen auszublenden.
Kann mir jemand nen Tipp geben, wo der Fehler liegt oder hat jemand einen viel einfacheren Weg?
Danke und Gruß,
Maddin
PS: Das Formular ist als "UserForm1" hinterlegt.