Ich habe ein Problem und brauch eure Hilfe.
Ich habe ein Modul dass im angegeben Bereich alle Zellen löscht, die nicht gesperrt sind.
Das Modul funktioniert so auch, aber sobald im Bereich verbundene Zellen vorkommen, die nicht gesperrt sind, bekomme ich eine Fehlermeldung.
Wie kann ich dieses Problem beseitigen?
Das Modul hat folgendem Inhalt:
Sub wegmit()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Sheets("Tabelle1").Range("A1:E18")
For Each Zelle In Bereich
If Zelle.Locked = False Then Zelle.ClearContents
Next Zelle
End Sub
Schon mal vielen Dank
Gruß
Dirk