Hallo zusammen,

in dem nachfolgendem Code scheint in der Schleife ein (Zugriffs-) Fehler zu liegen. Wenn ich den Inhalt der Schleife auskommentiere funktioniert alles.

Den Code habe ich in der Arbeitsmappe gespeichert.

Sub adressenDrucken()
Dim x As Integer
x = 2
Sheets("Deckblatt").Select
Do Until Sheets("Ausdruck").Cells(x, 1) = ""
    Sheets("Deckblatt").Cells(8, 2) = Sheets("Ausdruck").Cells(x, 1) & " " & Sheets("Ausdruck").Cells(x, 2)
    Sheets("Deckblatt").Cells(9, 2) = Sheets("Ausdruck").Cells(x, 3)
    Sheets("Deckblatt").Cells(10, 2) = Sheets("Ausdruck").Cells(x, 4) & " " & Sheets("Ausdruck").Cells(x, 5)
    Sheets("Deckblatt").Range("A1:G15").Select
    Selection.PrintOut Copies:=1, Collate:=True
    x = x + 1
Loop
Sheets("Deckblatt").Cells(8, 2) = ""
Sheets("Deckblatt").Cells(9, 2) = ""
Sheets("Deckblatt").Cells(10, 2) = ""
End Sub