Collapse column

Beiträge anzeigen

Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.


Nachrichten - AlterDresdner

Seiten: [1]
1
Excel / Antw:Office 2007: Tabellenblattlöschung
« am: April 22, 2019, 21:18:15 Nachmittag »
Hallo,
zur Ergänzung
Variante 1: bei jedem Blatt fragen:
...
    With .Sheets(i)
      .Activate
      If MsgBox("Sollen wirklich alle Einträge entfern werden?", vbYesNo, "Sicher? Alles weg?") = vbYes Then
...
Variante 2: nur einmal fragen:
...
With Application.ThisWorkbook
  If MsgBox("Sollen wirklich alle Einträge entfern werden?", vbYesNo, "Sicher? Alles weg?") = vbNo Then Exit Sub
  For i = 1 To .Sheets.Count
    .Sheets(i).Cells.Value = vbNullString
  Next i
End With
...
Gruß der Martin

2
Hallo,
wenn Du eine Beispieldatei nebst Code posten würdest, ist die Wahrscheinlichkeit von Hilfe größer...
Gruß der AlteDresdner

Seiten: [1]