12.04.2019, 22:24
(Dieser Beitrag wurde zuletzt bearbeitet: 13.04.2019, 05:17 von WillWissen.
Bearbeitungsgrund: Formatierung
)
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.
Wie kann ich dies unabhängig von Anzahl oder Namen der Blätter automatisieren?
Über eien Antwort / Hilfe würde ich mich freuen
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
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.
Wie kann ich dies unabhängig von Anzahl oder Namen der Blätter automatisieren?
Über eien Antwort / Hilfe würde ich mich freuen
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