ListBox Selected wert suchen und löschen
16.01.2023 08:36:35
Matze_L
ich habe eine ListBox mit deren Hilfe kann ich angelegte Tabellenblätter löschen, ich habe aber auch in Tabelle1 eine Liste all dieser Tabellen Blätter und würde gerne das so haben, dass wenn ich das Tabellenblatt bzw. die Tabellenblätter löschen er auch gleich den Eintrag aus der Tabelle löscht.
Private Sub CommandButton2_Click()
Dim i As Integer
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then Worksheets(i + 4).Delete
Next i
End With
End Sub
Vielen Dank