Clever-Excel-Forum

Hallo zusammen,

ich würde mich über eine Lösung freuen...

Hier habe ich einem Marko das mir in drei Tabellenblättern einen vorher ausgefüllten Bereich wieder löscht und die Schriftfarbe auf schwarz zurücksetzt.
Wenn ich noch Tabellenblätter hinzufüge, hört des Spaß schon auf. Huh

Wie kann ich dies unabhängig von Anzahl oder Namen der Blätter automatisieren?

Über eien Antwort / Hilfe würde ich mich freuen Blush

Sub Makro1()
'
' Makro1 Makro
'

'
    Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
    Sheets("Tabelle1").Activate
    Range("A3:C28").Select
    Selection.ClearContents
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Range("A3").Select
    Sheets("Tabelle1").Select
End Sub

Hallöchen,

wenn Du auf das select von A3 verzichten kannst, dann so:

Code:
Sub Makro1()

    Dim Blaetter As Worksheet

    For Each Blaetter In ThisWorkbook.Worksheets

      With Blaetter.Range("A3:C28")

        .ClearContents

        With .Font

          .ColorIndex = xlAutomatic

          .TintAndShade = 0

        End With

      End With

    Next

End Sub

petersto

schauan