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
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