Sub Drucken()
'Schutz aufheben
ActiveSheet.Unprotect
'For i = 1 To LetzteZeile
For i = Sheets(Stamm).Cells(Rows.Count, 1).End(xlUp).Row To 21 Step -1
'NichtLoeschen wird benötigt, um festzustellen, dass die Zeile wirklich von G bis Q leer ist
NichtLoeschen = False
'k ist Spalte (Spalte 6 --> F bis Spalte 15 --> O)
For k = 6 To 15
Wort1 = Cells(i, k)
If Wort1 <> "" Then
NichtLoeschen = True
End If
Next k
'Wenn noch irgendein Eintrag in Zeile innerhalb der Spalten G-Q, wird nicht ausgeblendet
If NichtLoeschen = False Then
Rows(i & ":" & i).Select
'Zeile Ausblenden
Selection.EntireRow.Hidden = True
End If
Next i
'Druckbereich+Drucken
ActiveSheet.PageSetup.PrintArea = "$A:$S"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'Schutz aktivieren
Cells.Select
Range("A7").Activate
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ', Password:="xxx"
End Sub