Private Sub CommandButton1_Click()
Dim Bereich As String, ws As Object
On Error Resume Next
For Each ws In Worksheets
Select Case ws.Name
Case Is = "balance sheet"
ws.Range("B8:C288").SpecialCells(xlCellTypeConstants, 23).ClearContents
Case Is = "balance sheet (service)"
ws.Range("B9:C110").SpecialCells(xlCellTypeConstants, 23).ClearContents
Case Is = "P & L"
ws.Range("C8:C74").SpecialCells(xlCellTypeConstants, 23).ClearContents
Case Is = "P & L (service)"
ws.Range("C8:C74").SpecialCells(xlCellTypeConstants, 23).ClearContents
End Select
Next
End Sub
Sub CommandButton1_Click()
Dim Bereich As String, ws As Object, msg As Integer
msg = MsgBox("Wirklich, Festplatte formatieren?", 36, "wundere mich...")
If msg = vbNo Then Exit Sub
On Error Resume Next
For Each ws In Worksheets
Select Case ws.Name
Case Is = "balance sheet"
ws.Range("B8:C288").SpecialCells(xlCellTypeConstants, 23).ClearContents
Case Is = "balance sheet (service)"
ws.Range("B9:C110").SpecialCells(xlCellTypeConstants, 23).ClearContents
Case Is = "P & L"
ws.Range("C8:C74").SpecialCells(xlCellTypeConstants, 23).ClearContents
Case Is = "P & L (service)"
ws.Range("C8:C74").SpecialCells(xlCellTypeConstants, 23).ClearContents
End Select
Next
End Sub
Private Sub CommandButton1_Click()
Dim Bereich As String, ws As Object
On Error Resume Next
For Each ws In Worksheets
Select Case ws.Name
Case Is = "balance sheet"
Mldg = "Soll die Spalte wirklich gelösche werden?" _
& Chr(13) & Chr(13) & "Rückgängig mache ist nicht möglich!"
Stil = vbYesNo + vbCritical + vbDefaultButton2
Titel = "LÖSCHVORGANG BESTÄTIGEN"
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbNo Then
Exit Sub
Else: ws.Range("B8:C288").SpecialCells(xlCellTypeConstants, 23).ClearContents
End If
Case Is = "balance sheet (service)"
ws.Range("B9:C110").SpecialCells(xlCellTypeConstants, 23).ClearContents
Case Is = "P & L"
ws.Range("C8:C74").SpecialCells(xlCellTypeConstants, 23).ClearContents
Case Is = "P & L (service)"
ws.Range("C8:C74").SpecialCells(xlCellTypeConstants, 23).ClearContents
End Select
Next
End Sub