Ich habe wiedermal ein Problem.
Ich benötige ein Makro, bei dessen Aufruf sich bei den Blättern 1 bis 20 der Druckbereich auf "A1:H48" verändert. Außerdem soll die Blattausrichtung auf Hochformat gestellt werden.
Außerdem möchte ich, das der folgende Code bei den festgelegten Blättern ausgeführt wird (ActiveSheet.Unprotect müsste wohl geändert werden und der Code auf die festgelegten Blätter erweitert werden). Mit diesem Code blende ich noch bestimmte Zeilen im Druckbereich aus, die auch nicht mitgedruckt werden sollen.
ActiveSheet.Unprotect
For i = 11 To 46
If Not Cells(i, 26) = 1 Then
Rows(i).Hidden = True
End If
Next i
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Ich habe leider nicht viel Ahnung von VBA, im Archiv bin ich auch nur teilweise fündig geworden (siehe Zeilen ausblenden).
Danke für die Hilfe!
mfg, Andreas