inhalt löschen-formel erhalten. problem mit makro aufzeichnung!

Question

hallo excel gemeinde!

habe mir ein makro aufgezeichnet um meine haushaltsliste zu leeren, formeln sollen aber erhalten bleiben.
habe drei tabellenblätter und mein makro sieht so aus:

Sub Liste_leeren()
Sheets("fixkosten").Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.ClearContents
Sheets("sonstige kosten").Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.ClearContents
Sheets("lohn - abgaben").Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.ClearContents
End Sub

jetzt gibt er mir aber einen bug raus wenn ein tabellenblatt leer ist.
wie bekomme ich es hin, das er zum nächsten tabellenblatt wechselt wenn das vorhergehende leer ist?

schön wäre auch noch, wenn er eine meldung ausgibt wenn die listen bereinigt sind ;o) ist aber kein muss...

internette grüsse

Answer 1

Hi,

Sub werte_loeschen()
On Error Resume Next
Worksheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeConstants, 1).ClearContents
Worksheets("Tabelle2").UsedRange.SpecialCells(xlCellTypeConstants, 1).ClearContents
On Error GoTo 0
MsgBox "Fertig"
End Sub

Bis später,
Karin

Answer 2

vielen dank karin! du bist ein schatz, funktioniert einwandfrei ;o)

internette grüsse
mick