Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA - Zeilen/Spalten außerhalb des Druckbereichs aus-/einblenden
#1
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
Antwortento top
#2
Hi Fee,


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

LG
Alexandra


Angehängte Dateien
.xlsm   Spalten und Zeilen ausblenden außerhalb Druckbereich2.xlsm (Größe: 25,2 KB / Downloads: 7)
[-] Folgende(r) 1 Benutzer sagt Danke an cysu11 für diesen Beitrag:
  • fee_81
Antwortento top
#3
Hallo Alexandra,

genau, pro Blatt nur ein Druckbereich.

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

LG
fee_81
Antwortento top
#4
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
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste