Auf mehreren Worksheets Daten löschen

[Wisi82]

Hallo zusammen

Ich habe letzte Woche noch einen Codeschnipsel gebastelt, mit welchem auf mehreren Datenblättern die gleichen Daten gelöscht werden können, Ich habe dies verwendet, um auf einer Mappe zur Zeiterfassung, welche pro Monat ein Datenblatt enthält, da jedes Datenblatt gleich aussieht, kann dies einfach mit einer Schleife gelöst werden. Den Code am besten ins allgemeine Modul legen, Aufruf dann wie gewünscht (Button, Tastenkombination, ...)

Code: Alles auswählen

Sub Daten_loeschen()
    Dim Ws As Worksheet
    
    Application.ScreenUpdating = False
    
    For Each Ws In Sheets(Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", _
                                "August", "September", "Oktober", "November", "Dezember"))
        With Ws
            .Activate
            .Range("D6:CU30").ClearContents
            .Range("D6").Select
        End With
    Next
    Set Ws = Sheets("Grunddaten")
    
    Application.ScreenUpdating = True
    
    With Ws
        .Activate
        .Range("C7").Select
    End With
End Sub

Vieleicht kann ja das sonst noch jemand gebrauchen.

Beste Grüsse Erwin

[d'r Bastler]

Moin Erwin,
gutz noiz erst mal! Und ntaürlich Danke für das Snippet, das ich mal gleich um einen bequemen Aufruf mit F12 ergänze...

Code: Alles auswählen

Option Explicit
Private Sub Workbook_Open()
    Application.OnKey "{F12}", "Daten_loeschen"
End Sub

... und mit einer Frage: Es kommt natürlich auf die Benennungen Deiner Worksheets an, aber ich löse solche -ich nenne es mal- Fleißaufgaben für VBA gerne ohne dafür ein Array manuell zu füllen, in dem ich den Spieß umdrehe: Es werden die Daten in allen Sheets gelöscht, deren Namen nicht (oder gerade doch) z.B. mit einem Unterstrich beginnen: "_Arbeitszeiten_2023"

Diese Methode in Schleifen zu filtern verwende ich gerne um z.B. per VBA erstellte Userforms oder Module in Tests zu killen. Alles, was nicht ausdrücklich abweichend benannt ist, fliegt raus.

Code: Alles auswählen

Option Explicit

Sub DeleteValues()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Sheets
    If Left(ws.Name, 1) = "_" Then
        MachDochWasDuWillst
    End If
Next ws
End Sub

Wär das auch was für Dich?

Grüße ins Gebirge

[Wisi82]

Hallo Bastler

Dankeschön, auch dir ein gutes neues Jahr 2024, hoffe du bist gut gestartet.

Finde ich eine sehr gute Idee, die Unterteilung mit und ohne _ , mache ich vielleicht das nächste mal auch so, falls ich noch dran denke
Wäre also schon was für mich ..., aber die bestehende Datei werde ich jetzt so belassen, funktioniert ja schliesslich.
Aber trotzdem vielen Dank für die Anregung.

Beste Grüsse aus dem Schnee
Erwin

P.s. Nicht die ganze Schweiz besteht nur aus Gebirge, ich lebe bloss in den hügeligen Voralpen aber zum Gebirge ist's nicht mehr weit