Zeilen ausblenden in vers. Arbeitsmappen

Guten Morgen
Ich habe eine Excel-Datei, welche aus etwa dreissig einzelnen Arbeitsmappen besteht (Produktecockpit). Ziel ist, dass ich aus der Datei über den Druckbefehl ein .pdf erstellen kann. Soweit alles klar!
Schwierigkeit:
Da in den jeweiligen Files Daten enthalten sind (Margen usw.), welche nicht für alle Betrachter gedacht sind, möchte ich, dass in allen Arbeitsmappen (ausser in der ersten) die Zeilen 66 - 73 ausgeblendet werden.
Ist sowas möglich? Ein Makro aufzunehmen, scheint mir zu gebastelt. Wäre es möglich, dass man ein Makro erstellt, welches alle Zeilen ausblendet, ausser in solchen, welche ich noch definiere.
Bin um jede Unterstützung sehr dankbar...freue mich auf eure Inputs.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Ausblend_z66_74() Option Explicit Sub Ausblend_z66_73() Dim ii As Integer For ii = 2 To Worksheets.Count Range(Rows(66), Rows(73)).Hidden = True Next ii End Sub " Stimmt das so...? Gäbe es auch eine Möglichkeit, dass ich im Skript sagen könnte...alle Arbeitsmappen...ausser und dann die Möglichkeit hätte Namen einzugeben?

Hallo Raphael,

noch einmal: "Wenn du "Arbeitsmappen" schreibst, meinst du dann tatsächlich Tabellenblätter?
(Ein Excelfile = Excelmappe = Arbeitsmappe enthält Tabellenblätter.)
Das Kopieren hat wohl inzwischen richtig geklappt, oder? Über dem Option Explicit sollte nichts stehen.
Warum hattest du die Zeile mit "Ausblend_z66_74()" zwei Mal reinkopiert?
Das Makro funzt bei mir. Gibt es bei dir eine Fehlermeldung? Das Ausblenden geschieht NICHT im 1. Blatt,
das hattest du so geschrieben: "in allen Arbeitsmappen (ausser in der ersten)".
So kannst du in das Makro Tabellenblätter schreiben, bei denen das Ausblenden nicht stattfinden soll:

Option Explicit
Sub Ausblend_z66_73()
Dim ii As Integer
For ii = 2 To Worksheets.Count
Select Case Worksheets(ii).Name
Case "soll nicht"             ' hier die Namen der Blätter eintragen,
Case "soll auch nicht"        ' in denen keine Zeilen versteckt werden
Case Else
Range(Rows(66), Rows(73)).Hidden = True
End Select
Next ii
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Option Explicit Sub Ausblend_z66_73() Dim ii As Integer For ii = 2 To Worksheets.Count With Worksheets(ii) Select Case .Name Case "soll nicht" ' hier die Namen der Blätter eintragen, Case "soll auch nicht" ' in denen keine Zeilen versteckt werden Case Else Range(.Rows(66), .Rows(73)).Hidden = True End Select End With Next ii End Sub

Option Explicit Sub AusEinblend_z66_73() Dim ii As Integer For ii = 2 To Worksheets.Count With Worksheets(ii) Select Case .Name Case "soll nicht" ' hier die Namen der Blätter eintragen, Case "soll auch nicht" ' in denen keine Zeilen versteckt werden Case Else Range(.Rows(66), .Rows(73)).Hidden = Not .Rows(66).Hidden End Select End With Next ii End Sub

Beliebteste Forumthreads (12 Monate)

Zeilen ausblenden in vers. Arbeitsmappen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread