löschen von Arbeitsblättern nach Mehrfachauswahl
28.11.2003 20:12:19
KViertel
Ich möchte mir gern eine Funktion schreiben, die nach multiselection aus der Tabellenliste gelöscht werden. Ich habe Schwierigkeiten mit dem Index. Ich vermute, dass ich nach jeder Löschung irgendwie den Listindex anpassen muß, (redim preserve) aber was und wie.
Kann mir dabei jemand helfen?
Die augenblickliche Sub sieht so aus
Private Sub CommandButton4_Click()
With dialog1.ListBox2
For i = 1 To .ListCount - 1
If .Selected(i) = True Then
auswahl = Sheets(i + 1).Name
Worksheets(auswahl).Delete
End If
Next i
End With
dialog1.Hide
End Sub
Wenn ich mehrere Blätter lösche kommen immerwieder Indexfehler.
Danke.
MfG. Klaus
Anzeige