Hi Folks,
also irgendwie klappt mein Code doch nicht so richtig?!? :-(
Ich habe schon sehr viel herumprobiert aber immer mit Fehlermeldung - warum, was mach ich falsch ?
If b = vbOK Then
Dim wks As Worksheet
Cells(7, 4) = Cells(7, 4) + 1
'Sheets("Januar").Range("B10:C34").ClearContents
'Sheets("Januar").Range("E10:H34").ClearContents
'Sheets("Januar").Range("B10:C34").ClearContents
'Sheets("Januar").Range("E10:H34").ClearContents
For Each wks In ActiveWorkbook.Worksheets
If wks.Name ActiveSheet.Name And wks.Name "Statistik" Then
wks.Range("B10:C34").ClearContents
wks.Range("E10:H34").ClearContents
End If
Next
MsgBox "okay"
End If
'Else
' MsgBox "Abgebrochen"
End If
Danke Sascha