VBA - Zeilen/Spalten außerhalb des Druckbereichs aus-/einblenden

[fee_81]

Hallo,

ich brauche eure Hilfe. Leider bin ich ein absoluter Anfänger was VBA betrifft.  :20:
Habe schon im Netz nach einem passenden VBA-Code gesucht, aber leider vergebens.

Ich habe eine Excel Datei mit einigen (sehr vielen) Tabellenblättern. Die Blätter sind mit verschieden Tabellen befüllt und für jedes Blatt ist ein Druckbereich festgelegt. 
Außerhalb des Druckbereichs befinden sich 2-3 Spalten und 1-4 Zeilen, welche für meine Berechnungen/Plausichecks nötig sind. Andere sollen meine Hilfsspalten natürlich nicht sehen.

Jetzt meine Frage … ist es möglich per VBA-Code alle Zeilen und Spalten außerhalb des Druckbereichs für alle Blätter zeitgleich auszublenden bzw. einzublenden?

Bin für jeden Tipp dankbar  :17:

[cysu11]

Hi Fee,


so, dürfen allerdings pro Blatt nur ein Druckbereich sein!

LG
Alexandra

[fee_81]

Hallo Alexandra,

genau, pro Blatt nur ein Druckbereich.

Ich werde es später versuchen. Ich danke Dir schon vielmals für Deine schnelle Hilfe

LG
fee_81

[Kuwer]

Hallo,

z.B. so:

Sub NurDruckbereicheSichtbar()

  Dim rngP As Range

  Dim oWs As Worksheet

  For Each oWs In ActiveWorkbook.Worksheets

    Set rngP = oWs.Range("Print_Area").Areas(1)

    If Not rngP Is Nothing Then

      oWs.Columns.Hidden = True

      rngP.EntireColumn.Hidden = False

      Application.Goto rngP.Cells(1), True

      If rngP.Row > 1 Then

        oWs.Rows("1:" & rngP.Row - 1).Hidden = True

      End If

      If rngP.Row + rngP.Rows.Count < oWs.Rows.Count Then

        oWs.Rows(rngP.Row + rngP.Rows.Count & ":" & oWs.Rows.Count).Hidden = True

      End If

    End If

  Next oWs

End Sub



Sub AllesEinblenden()

  Dim oWs As Worksheet

  For Each oWs In ActiveWorkbook.Worksheets

    oWs.Columns.Hidden = False

    oWs.Rows.Hidden = False

  Next oWs

End Sub

Gruß Uwe