Trotz Regen euch allen einen schönen Sonntag. Mein Problem: Ich habe ein Tabellenblatt(Namensliste). in Spalte D ab Zeile 3 tauchen die Namen der Blätter (ab Blatt 5) auf.
Ich habe folgenden Code zum Löschen der Blätter, wenn es denn sein soll.
'das aktive Blatt kann bei Bedarf gelöscht werden
ActiveSheet.Delete
Sheets("Namensliste").Activate
For lng = 3 To 200
If Sheets("Namensliste").Cells(lng, 4) = TextBox1 Then
Rows(lng).Delete
End If
Next
ListBox1.Clear
Dim i As Integer
For i = 1 To Worksheets.Count
ListBox1.AddItem Worksheets(i).Name
Next i
TextBox1 = ""
Wenn ich also den Button zum Löschen betätige erscheint die Meldung ..... und es gibt die Mööglichkeit Löschen oder Abbrechen. Nun soll aber die Zeile im Sheet Namensliste wirlich nur dann gelöäscht werden, wenn auch das Sheet genlöscht wird. Also wenn die Schaltfläche Abbrechen betätigt wird soll die Zeile nicht gelöscht werden. Wer kann helfen? Ich danke schon jetzt für jeden Tipp.
Gruß Frank H.