Makro auf ganze Arbeitsmappe anwenden

Question

Hallo zusammen

Mein Problem (Wunsch)

Ich habe eine Arbeitsmappe mit den Blättern Januar bis Dez.
In jedes Blatt sieht gleich aus. Viele Formeln und ein "kleiner" Bereich der gefüllt wird.
Das Grundgerüst ist für 100 Mitarbeiter a je 2 Zeilen. Also 200 Zeilen.
Da es in jedem Arbeitsbereich aber unterschiedlich viele Mitarbeiter hat möchte ich per Makro die nich benötigten Zeilen ausblenden. Indem ich Die Anzahl Mitarbeiter im Januar in eine Zelle eingebe.
Leider wirkt sich das Makro, dass ich gefunden habe nur auf den Januar aus.
Es sollte sich aber auf Januar bis Dezember auswirken.

Hier das Makro:

Sub Zeilen_Weg_()
Dim StartZeile As Long
Dim EndZeile As Long

StartZeile1 = Range("C1").Value ' Formel in C1 = 20+(B1*2) Wobei in B2 die Anzahl Mitarbeiter steht.
EndZeile1 = 221

Rows(StartZeile1 & ":" & EndZeile1).Hidden = Not Rows(StartZeile1 & ":" & EndZeile1).Hidden

StartZeile2 = Range("C2").Value ' Formel in C2 = 230+(B1*2) Wobei in B2 die Anzahl Mitarbeiter steht.
EndZeile2 = 431

Rows(StartZeile2 & ":" & EndZeile2).Hidden = Not Rows(StartZeile2 & ":" & EndZeile2).Hidden

End Sub



Grüsse und schon im voraus ein Danke

Answer 1

Hallo Unbekannte(r),

ich bin jetzt mal davon ausgegangen das es alle sind und die Angaben nur in der aktiven Tabelle stehen.

Option Explicit

Private Sub Aufheben()
Dim WsTabelle As Worksheet
Dim StartZeile As Long
Dim EndZeile As Long
StartZeile1 = Range("C1").Value ' Formel in C1 = 20+(B1*2) Wobei in B2 die Anzahl Mitarbeiter steht.
StartZeile2 = .Range("C2").Value ' Formel in C2 = 230+(B1*2) Wobei in B2 die Anzahl Mitarbeiter steht.
EndZeile1 = 221
For Each WsTabelle In Sheets
With WsTabelle
.Rows(StartZeile1 & ":" & EndZeile1).Hidden = Not .Rows(StartZeile1 & ":" & EndZeile1).Hidden
.Rows(StartZeile2 & ":" & EndZeile2).Hidden = Not .Rows(StartZeile2 & ":" & EndZeile2).Hidden
End With
Next WsTabelle
End Sub

Gruß Hajo

Answer 2

Hallo Hajo

Danke für die schnelle Antwort.
Habe es ausprobiert und es hat nach einer gewissen Zeit auch geklappt.
Gäbe es noch die möglichkeit, die Zelle, wo ich die Anzahl MItarbeiter eingebe zu sperren?
Wenn jemand nämlich ohne zurücksetzen die anzahl Mitarbeiter wechselt stimmen die ausgeblendeten Zeilen
ja nicht mehr.

Grüsse rowa

Answer 3

Hallo Unbekannte(r),

das geht nur über Schutz der Tabelle

Gruß Hajo