Anzeige
Archiv - Navigation
1072to1076
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zwei Bereiche auf allen Worksheets löschen

Zwei Bereiche auf allen Worksheets löschen
14.05.2009 15:16:04
Sascha
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige