Sub DatenLoeschen()
Dim ws As Worksheet, i As Integer
If MsgBox("Daten in den Tabellen 1 bis 4 löschen?", vbYesNo + vbQuestion + vbDefaultButton2) = _
vbYes Then
ActiveWorkbook.Save 'Kleine Sichersmassnahme
For i = 1 To 4
Set ws = ActiveWorkbook.Worksheets(i)
ws.UsedRange.ClearContents 'Zellinhalte löschen
Next
End If
Set ws = Nothing
End Sub
'Sub CommandButton1_Click()
Sub DatenLoeschen()
If MsgBox("Eingabe-Daten in den Tabellen löschen?", vbYesNo + vbQuestion + vbDefaultButton2) = _
_
vbYes Then
ActiveWorkbook.Save 'Kleine Sichersmassnahme
Application.Calculation = xlCalculationManual
With Worksheets("Tabelle1")
.Range("D4:N5").ClearContents
.Range("A6:N24").ClearContents
End With
With Worksheets("Tabelle2")
.Range("D4:N24").ClearContents
End With
With Worksheets("Tabelle3")
.Range("D4:N24").ClearContents
End With
With Worksheets("Tabelle4")
.Range("D4:N24").ClearContents
End With
With Worksheets("Tabelle5")
.Range("D4:N24").ClearContents
End With
With Worksheets("Endberechnung")
.Range("C6:C21").ClearContents
End With
Application.Calculation = xlCalculationAutomatic
End If
End Sub
Sub CommandButton1_Click()
die erste zeile ist gelb markiert und es steht zuvor in einem pop up "end
Sub erwartet"