Clever-Excel-Forum

Liebe Leute

Ich habe unten stehenden Code einem Steuerelement zugewiesen. Wenn ich dieses Anklicke, kann ich das entsprechende Arbeitsblatt direkt als PDF speichern.
Allerdings möchte ich zusätzlich, dass mir für das Speichern im Arbeitsblatt "Unterrichtsbesuchsbogen" die Bemerkungsfelder ausgeblendet werden, die nicht beschriftet wurden.

Folgendermassen würde mein Wunsch aussehen:
1. Wenn in Zeile 10 nix steht, müssten die Zeilen 8-10 ausgeblendet werden.
2. Wenn in Zeile 23 nix steht, müssten die Zeilen 21-23 ausgeblendet werden.
3. Wenn in Zeile 32 nix steht, müssten die Zeilen 30-32 ausgeblendet werden.
4. Wenn in Zeile 41 nix steht, müssten die Zeilen 39-41 ausgeblendet werden.

Wie kriege ich die Punkte 1-4 in den untenstehenden Code?

Herzlichen Dank für eure Hilfe und Grüsse
mauritius5

Code:
Sub Makro7()

    Sheets(Array("Unterrichtsbesuchsbogen")).Select

    Sheets("Unterrichtsbesuchsbogen").Activate

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

        IgnorePrintAreas:=False

End Sub

(30.11.2022, 12:21)mauritius5 schrieb: [ -> ]Wenn ich dieses Anklicke, kann ich das entsprechende Arbeitsblatt direkt als PDF speichern.

Moin!
Nö!
Der Rekordercode druckt das Blatt "Unterrichtsbesuchsbogen" auf dem gerade aktiven Drucker aus.
Der kann zufällig gerade ein virtueller PDF-"Drucker" sein.

Zitat:Wenn in Zeile 10 nix steht

Was heißt "nix"?

Code:
Range("8:10").EntireRow.Hidden = Worksheetfunction.CountA(rows(10)) = 0

Gruß Ralf

Code:
Sub M_snb()

  Rows("8:10").Rows.Hidden = Rows(10).SpecialCells(4).Count = UsedRange.Columns.Count

End Sub

oder

Code:
Sub M_snb()

  Rows("8:10").Rows.Hidden = Cells(10,Columns.Count).End(xlToLeft).Column = 1

End Sub

Peeerfekt, hat geklappt. Vielen, vielen Dank!

mauritius5

RPP63

snb

mauritius5