Excel VBA – Bei Fehler „Druckdialog aufrufen“ MsgBox aufrufen

Dölf_A · 25. Februar 2019

Wenn bei nachstehendem Makro ein falscher oder ausgeschalteter Drucker ausgewählt wird, erscheint der Laufzeitfehler ‚1004‘. Ich möchte diesen Fehler überspringen und dazu eine MsgBox öffnen.

Private Sub Drucken_Click()

'Druckdialog aufrufen

On Error GoTo Fehler

Dim Drucken As Dialogs

Set Drucken = Application.Dialogs(xlDialogPrint).Show

Fehler:

MsgBox "Anderer Drucker wählen"

End Sub

maninweb

Hallo,

Du könntest im Ereignisprotokoll von Windows nachschauen, ob sich dort Informationen zu dem/den Fehler/n finden lassen, was der Fall sein sollte.

Z.B. Excel aufrufen, abstürzen lassen und über das Windows Suchfeld die Ereignisanzeige aufrufen. Im Zweig Windows-Protokolle/Anwendung nach dem letzten Excel-Fehler suchen. Und ggf. den Inhalt der Meldung hier im Forum mal posten. Vielleicht findet sich
dann eine Lösung.

Gruß

Markus Kr.

Hallo Zusammen,

Danke an Peter für den Tipp. Damit habe ich wieder etwas optimiert.

Hat aber leider am Fehler nichts gebracht.

Nach langem suchen und probieren und testen habe ich meinen Fehler erkannt.

Die TransferSpreadsheet Methode verlangt anscheind nach einem nicht geöffneten Excel oder etwas dergleichen.

Ich hatte vor dem Aufruf der obigen Funktion die Mappe in ein Excel-Objekt / Workbook-Objekt eingebunden.

Dies verursachte diesen Fehler.

Wenn ich zuerst die Fuktion mit TransferSpreadsheet aufrufe und das Excel erst danach einbinde funktionioert es.

Die Fehlermeldung ist an dieser Stelle anscheinend etwas unklar.

Viele Grüße

Markus

Claus Busch

Hallo,

kannst du die Hilfe nicht aus VBA heraus aufrufen, um direkt die VBA-Hilfe zu bekommen?

Habe kein Office für Mac und kann es daher nicht selber testen.

Claus

-CHF-

Hallo Zoran,

hast du auch den Dateipfad angepasst?

"O:\NGTest\Textmarke.doc"

ist meine Testumgebung hier ;-)

Verschiebe die MSGBOX-Zeile in das Makro "Aufruf bzw. entferne den Kommentar:

s = ShowCommandline ' API zum Auslesen der Kommandozeile

'MsgBox s '<--

dann sollte es klappen,

Prüfe auch, ob die Makrosicherheit mindestnes auf "Mittel" steht.

Dann sollte es auch bei Dir klappen.

Gruß

Christian

Mike Rühlemann

Ok ich bin doch mehr DAU als ich dachte :-O

ich finde kein call excel_link, geschweige denn excel_link *hilfe*

aber wenn ich VBA aufrufe habe ich ganz oben:

Option Compare Database

Public Function Excel_Link()

On Error GoTo Fehler:

Do Until rs.EOF

Call TableDelete(rs!tabname)

Call TableRelink(rs!PfadNamen & rs!Datname, rs!tabname)

rs.MoveNext

Loop

exit_Excel_Link:

Exit Function

Fehler:

MsgBox "Fehler: " & Err.Number & " " & Err.Description & "Excel_Link()"

Resume exit_Excel_Link

End Function

Klicke ich auf Public Function Exel_Link()

sehe ich im Dropdown Menü drüber

(Allgemein) und daneben im zeiten Menü Excel_Link

Hi,

willkommen im Windows Forum!

Excel VBA – Bei Fehler „Druckdialog aufrufen“ MsgBox aufrufen - Similar Threads - Excel VBA –	Forum	Datum
Fehler bei Aufruf einer App Fehler bei Aufruf einer App: Nach Installation des neuen BMW Download Managers kommt bei Aufruf eine Fehlerbox, die auf die Datei WindowsApps hindeutet mit der Meldung: "eine Datei kann nicht erstellt werden, wenn sie bereits...	Apps	15. Mai 2024
Fehler bei Aufruf einer App Fehler bei Aufruf einer App: Nach Installation des neuen BMW Download Managers kommt bei Aufruf eine Fehlerbox, die auf die Datei WindowsApps hindeutet mit der Meldung: "eine Datei kann nicht erstellt werden, wenn sie bereits...	Games und Spiele	15. Mai 2024
Fehler bei Aufruf von services.msc und anderen Systemprogrammen Fehler bei Aufruf von services.msc und anderen Systemprogrammen: Beim Aufruf von z.B. services.msc erhalte ich die Fehlermeldung: Der externe unterstützende Anbieter wird nicht erkannt.Ich habe schon alle sfc und dism Optionen ohne Veränderung probiert. Der...	Apps	15. Mai 2024
Aufruf "Call SleepZEIT" in VBA Aufruf "Call SleepZEIT" in VBA: Guten Abend,in VBA verwende ich den im Betreff genannten Aufruf. Funktionierte bisher, nun habe ich Office 2019, und es wird "Sub oder Function nicht definiert". Wo finde ich diese Function?Danke!	Microsoft Office	12. März 2024
Registerblätter aufrufen bei Excel für Android Registerblätter aufrufen bei Excel für Android: Hallo, wie kann ich bei Excel für Android einzelne Registerblätter aufrufen ?Gruss, mainze	Microsoft Office	29. November 2023
Excel 365: VBA-Aufruf RowHeight plötzlich sehr langsam Excel 365: VBA-Aufruf RowHeight plötzlich sehr langsam: In einem VBA-Skript erzeuge ich individuelle Formulare, bei denen ich häufig die Zeilenhöhe mit der Eigenschaft RowHeight einstellen muss, also z.B. "Rows....Rowheight = 30".Mit Excel 2016...	Microsoft Office	28. Mai 2023
Excel 365: VBA-Aufruf RowHeight sehr langsam Excel 365: VBA-Aufruf RowHeight sehr langsam: In einem VBA-Skript erzeuge ich individuelle Formulare, bei denen ich häufig die Zeilenhöhe mit der Eigenschaft RowHeight einstellen muss, also z.B. "Rows....Rowheight = 30".Mit Excel 2016...	Microsoft Office	28. Mai 2023

Excel VBA – Bei Fehler „Druckdialog aufrufen“ MsgBox aufrufen

Excel VBA – Bei Fehler „Druckdialog aufrufen“ MsgBox aufrufen

alle Office 2016 Produkte stürzen beim starten ab

Export nach Excel via TransferSpreadsheet führt zu Fehler 3011 ... konnte das Objekt ... nicht finden. ...

Hilfe- Datei bei Excel

how to start word document at bookmark from windows explorer ?

Wie kann ich Verknüpfungen zu Excel - Tabellen, nach verschieben des Ordners, nicht einzeln sondern in einem Zug aktualisieren?

User Advert

Excel VBA – Bei Fehler „Druckdialog aufrufen“ MsgBox aufrufen - Microsoft Office

Excel VBA – Bei Fehler „Druckdialog aufrufen“ MsgBox aufrufen - Similar Threads - Excel VBA –

Fehler bei Aufruf einer App

Fehler bei Aufruf einer App

Fehler bei Aufruf von services.msc und anderen Systemprogrammen

Aufruf "Call SleepZEIT" in VBA

Registerblätter aufrufen bei Excel für Android

Excel 365: VBA-Aufruf RowHeight plötzlich sehr langsam

Excel 365: VBA-Aufruf RowHeight sehr langsam

Excel VBA – Bei Fehler „Druckdialog aufrufen“ MsgBox aufrufen solved