Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 1004
 03.04.2024 20:51:16 Alex
Solved
03.04.2024 21:37:31 xlKing
NotSolved
03.04.2024 22:42:15 Alex
NotSolved

Ansicht des Beitrags:
Von:
Alex		 Datum:
03.04.2024 20:51:16		 Views:
260		 Rating:
     
Antwort:
 Nein
Thema:
Laufzeitfehler 1004

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 1004
 03.04.2024 20:51:16 Alex
Solved
03.04.2024 21:37:31 xlKing
NotSolved
03.04.2024 22:42:15 Alex
NotSolved