es werden alle Tabellenblätter (viele sind versteckt mit "xlSheetVeryHidden") in einer Listbox angezeigt.
Nun möchte ich in der Listbox eine Zeile markieren und diese per Schaltfläche auf xlSheetvisible setzen und
das Tabellenblatt aufrufen.
Hab ein Makro zusammen gestellt, läüft aber nicht.
Wer kann mir helfen?
LG
Tanja
Private Sub Einstellungen_cmd_Tabellenbl_einblenden_Click()
Dim i As Integer
For i = 0 To ListBox_Einstellungen_Tabellenblaetter.ListCount - 1
If ListBox_Einstellungen_Tabellenblaetter.Selected(i) Then
Sheets(ListBox_Einstellungen_Tabellenblaetter.List(i)).Activate
Exit For
End If
Next
End Sub