Ausgewählte Sheets mit einem VBA Code ansprechen
15.07.2019 15:56:04
Benedikt
ich suche nach einer Möglichkeit, diesen VBA Code auf mehreren Tabellenblättern anzusprechen. _ Ausgeführt werden soll er auf Tabellenblatt 2 und betreffen soll er Tabellenblätter 3 bis 12. Es geht lediglich darum das ich nicht bei jedem Blatt einzeln den Code ausführen muss. Nur komme ich von selbst leider nicht drauf, wie ich den Code modifizieren muss... Das hier ist der Code:
Sub Aktualisieren()
ActiveSheet.Unprotect "TW520"
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In Range("A6:A1000") 'I Range kann beliebig angepasst werden. A6 muss fest _
_
_
bleiben. Achten Sie aber darauf, dass eine erhöhte Range zu einer längeren Suchlaufzeit führt.
If xRg.Value = "" Then
xRg.EntireRow.Hidden = True
Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
ActiveSheet.Protect "TW520", AllowFiltering:=True
End Sub
Vielen Dank Im Voraus!