Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon ponscho vom 04.02.2021, 21:09 Options

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

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

Antwort schreiben

Antwort 1 von Beverly vom 04.02.2021, 21:24 Options

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

Antwort 2 von ponscho vom 04.02.2021, 22:41 Options

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

internette grüsse
mick

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken