Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fehler 400 bei Codeausführung

Fehler 400 bei Codeausführung
strodti
Hallo Ihr lieben Leut,
wiedermal eine Frage bzgl. VBA.
Ich habe in meiner Datei ein Tabellenblatt "Drucken", auf dem ich mehrere Buttons platziert habe, mit denen verschiedene Blätter der Datei gedruckt werden.
Mit nachfolgendem Code wird ein Blatt auf zwei verschiedenen Drucker ausgedruckt, wobei der zweite Ausdruck den Vermerk "-Kopie-" erhält. Beim anschließenden Entfernen des Vermerkes erhalte ich dann die Fehlermeldung 400. Wenn ich ein Activate vorschalte, dann wird der Vermerk gelöscht, ich erhalte aber dennoch die Fehlermeldung.
Kann mir jemand verstehen helfen und wie ich das abfangen kann?
Sub printDichtheitspruefung()
Application.ActivePrinter = "\\SERVER\OKI C5950 auf Ne06:"
Sheets(Array("Deckblatt_Dicht", "Dichtheitsnachweis")).PrintOut Copies:=1, Collate:=True
Sheets("Empfangsbestätigung").PrintOut Copies:=1, Collate:=True
Sheets("Dichtheitsnachweis").Range("H5").FormulaR1C1 = "' - K O P I E -"
Application.ActivePrinter = "\\SERVER\Brother MFC-8880 auf Ne03:"
Sheets("Dichtheitsnachweis").PrintOut Copies:=1, Collate:=True
'Sheets("Dichtheitsnachweis").Activate
Sheets("Dichtheitsnachweis").Range("H5").ClearContents
End Sub
MfG
Tobias

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Fehler 400 bei Codeausführung
24.11.2010 15:43:47
Rudi
Hallo,
verbundene Zellen?
Sheets("Dichtheitsnachweis").Range("H5")=""
oder
Sheets("Dichtheitsnachweis").Range("H5").MergeArea.ClearContents
Gruß
Rudi
Rudi ... doppelt danke...
24.11.2010 15:59:46
strodti
... ich sehe gerade ich war in den falschen Beitrag verrutscht.
Sorry an alle Wächter des Forums.
MfG
Tobias
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige