Zeilen ausblenden bei Steuerelement

[mauritius5]

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

[RPP63]

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.

Wenn in Zeile 10 nix steht

Was heißt "nix"?

Code:

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

Gruß Ralf

[snb]

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

[mauritius5]

Peeerfekt, hat geklappt. Vielen, vielen Dank!