Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: ListBox Selected wert suchen und löschen

ListBox Selected wert suchen und löschen
16.01.2023 08:36:35
Matze_L
Guten Tag lieb VBA Profis,
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
https://www.herber.de/bbs/user/157279.xlsm
Vielen Dank
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ListBox Selected wert suchen und löschen
16.01.2023 09:22:43
UweD
Hallo
füge das in den Codebereich von Tabelle1 ein

Private Sub Worksheet_Activate()
Dim Z1 As Integer, LR As Integer, i As Integer
Z1 = 4 'Erste Zeile mit Daten
LR = Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte
For i = LR To Z1 Step -1
'prüfen ob Blatt vorhanden
If IsError(Evaluate("'" & Cells(i, 1) & "'!A1")) Then
Rows(i).Delete
End If
Next
End Sub
Sobald du aus das Blatt wechselst, läuft die Prüfung ab.
LG UweD
Anzeige
AW: ListBox Selected wert suchen und löschen
16.01.2023 09:30:11
Matze_L
Vielen Dank funktioniert
Danke für die Rückmeldung (owT)
16.01.2023 09:56:30
UweD
AW: Danke für die Rückmeldung (owT)
17.01.2023 08:50:20
Matze_L
Hallo,
heute habe ich doch ein Problem festgestellt beim öffnen der Datei kollidiert das Sub aus Tabelle1 mit den Anweisungen aus der Arbeitsmappe.
Gibt es hier vielleicht eine andere Lösung?
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige