Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Rowa vom 24.06.2022, 12:31 Options

Makro auf ganze Arbeitsmappe anwenden

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

Antwort schreiben

Antwort 1 von Hajo_Zi vom 24.06.2022, 14:10 Options

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

Antwort 2 von Rowa vom 24.06.2022, 20:19 Options

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

Antwort 3 von Hajo_Zi vom 24.06.2022, 20:27 Options

Hallo Unbekannte(r),

das geht nur über Schutz der Tabelle

Gruß Hajo

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken