Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1864to1868
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1864to1868
1864to1868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehlermeldung MsgBox richtig setzen

Fehlermeldung MsgBox richtig setzen
30.01.2022 10:49:11
HeinzH
Schönen Sonntag im Forum,
In meinem Code sollte eine Fehlermeldung kommen, wenn die Workbooks("Artikeln.xlsx") nicht geöffnet ist.
Wenn Workbooks("Artikeln.xlsx") geöffnet ist, läuft der Code durch, das passt so, ABER zum Schluß kommt immer die MsgBox "Excel Datei Artikeln öffnen"
Wo würde bitte die MsgBox richtig gesetzt gehören ?
Danke
Sg, Heinz

Option Explicit
Sub Artikel_kopieren()
On Error GoTo Fehler
Sheets("Artikeln1").Visible = True ' Einblenden
Workbooks("Artikeln.xlsx").Activate
Sheets("Artikeln").Range("A:A").Copy
Workbooks("Vorlage_Wochenumbau.xlsm").Activate
Sheets("Artikeln1").Range("A:A").PasteSpecial xlPasteValues
Sheets("1").Activate
Sheets("Artikeln1").Visible = False ' Ausblenden
Exit Sub
Fehler:
MsgBox "Excel Datei Artikeln öffnen"
Application.CutCopyMode = False  ' Zwischenablage leeren
End Sub

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Es wäre interessant zu wissen...
30.01.2022 10:58:45
{Boris}
Hi,
...wie Dein Code im Einzelschrittmodus durchläuft, denn irgendwo (wo genau?) gibt es einen Fehler, der dann zur Sprungmarke Fehler: führt (und damit auch die MsgBox erscheint).
VG, Boris
AW: Es wäre interessant zu wissen...
30.01.2022 11:10:01
HeinzH
Hallo Boris,
Jetzt funktioniert es wie gewollt. WARUM, WESHALB ? Ich weiß es nicht !!
Aber recht herzlichen Dank, das du mir helfen wolltest..
Sg, Heinz
Hier der ganze Code.

Option Explicit
Sub Artikel_kopieren()
On Error GoTo Fehler
Sheets("Artikeln1").Visible = True ' Einblenden
Workbooks("Artikeln.xlsx").Activate
Sheets("Artikeln").Range("A:A").Copy
Workbooks("Vorlage_Wochenumbau.xlsm").Activate
Sheets("Artikeln1").Range("A:A").PasteSpecial xlPasteValues
Workbooks("Artikeln.xlsx").Activate
Sheets("Artikeln").Range("C:C").Copy
Workbooks("Vorlage_Wochenumbau.xlsm").Activate
Sheets("Artikeln1").Range("C:C").PasteSpecial xlPasteValues
Workbooks("Artikeln.xlsx").Activate
Sheets("Artikeln").Range("D:D").Copy
Workbooks("Vorlage_Wochenumbau.xlsm").Activate
Sheets("Artikeln1").Range("D:D").PasteSpecial xlPasteValues
Workbooks("Artikeln.xlsx").Activate
Sheets("Artikeln").Range("L:L").Copy
Workbooks("Vorlage_Wochenumbau.xlsm").Activate
Sheets("Artikeln1").Range("L:L").PasteSpecial xlPasteValues
Sheets("1").Activate
Sheets("Artikeln1").Visible = False ' Ausblenden
Application.CutCopyMode = False  ' Zwischenablage leeren
Exit Sub
Fehler:
MsgBox "Excel Datei Artikeln öffnen"
End Sub

Anzeige
Da es jetzt läuft...
30.01.2022 11:52:57
{Boris}
Hi,
...ist es für den Moment ja gut :-)
Ansonsten (für die Zukunft) nimm die On-Error-Routine - wie von Onur schon gesagt - mal raus, damit Du auch siehst, wo genau der Code hängen bleibt bzw. den Fehler produziert.
VG, Boris
AW: Fehlermeldung MsgBox richtig setzen
30.01.2022 11:12:02
onur
" läuft der Code durch, das passt so" - Das glaubst auch nur du - offenbar passt es nicht und dein Errorhandler kickt dich mit der MsgBox raus.
Und solange du Diesen hast, erfährst du auch nicht, WO der Fehler ist.
AW: Fehlermeldung MsgBox richtig setzen
30.01.2022 11:57:18
GerdL
Hallo Heinz!
Du möchtest doch nur den einen Fehler abfangen.

Sub Artikel_kopieren()
Dim Quelldatei As Workbook
Dim Zieldatei As Workbook
On Error Resume Next
Set Quelldatei = Workbooks("Artikeln.xlsx")
On Error GoTo 0
If Quelldatei Is Nothing Then GoTo Fehler
Set Zieldatei = ThisWorkbook 'die Datei mit dem Code oder '= Workbooks("Vorlage_Wochenumbau.xlsm")
Zieldatei.Activate
Zieldatei.Sheets("Artikeln1").Visible = True ' Einblenden
Quelldatei.Sheets("Artikeln").Range("A:A").Copy
Zieldatei.Sheets("Artikeln1").Range("A:A").PasteSpecial xlPasteValues
Application.CutCopyMode = False  ' Zwischenablage leeren
Quelldatei.Sheets("Artikeln").Range("C:D").Copy
Zieldatei.Sheets("Artikeln1").Range("C:D").PasteSpecial xlPasteValues
Application.CutCopyMode = False  ' Zwischenablage leeren
Quelldatei.Sheets("Artikeln").Range("L:L").Copy
Zieldatei.Sheets("Artikeln1").Range("L:L").PasteSpecial xlPasteValues
Application.CutCopyMode = False  ' Zwischenablage leeren
Zieldatei.Sheets("1").Activate
Zieldatei.Sheets("Artikeln1").Visible = False ' Ausblenden
Set Quelldatei = Nothing: Set Zieldatei = Nothing
Exit Sub
Fehler:
MsgBox "Excel Datei Artikeln öffnen"
End Sub
Gruß Gerd
Anzeige
Danke an Boris, onur, & GerdL
30.01.2022 13:01:52
HeinzH
Hallo Boris, onur, & GerdL,
Ich bedanke mich recht herzlich bei euch dreien, für die Hilfestellungen.
Ja, Ja ich muß noch viel lernen.
Besonders der angepasste Code von Gerd, ist Super, den kann ich auch für andere Workbooks verwenden.
Sg, Heinz
AW: Fehlermeldung MsgBox richtig setzen
02.02.2022 16:40:46
Alexander
Hallo Heinz,
ich habe hier einen Artikel gefunden, der dir weiterhelfen könnte: https://easy-excel.de/msgbox-vba/ . Dort wird alles rund um die msgBox in VBA erklärt.
Liebe Grüße
Alexander
AW: Fehlermeldung MsgBox richtig setzen
02.02.2022 18:20:00
HeinzH
Hallo Alexander,
Recht herzlichen Dank.
Sg, Heinz
AW: Fehlermeldung MsgBox richtig setzen
02.02.2022 17:02:22
Alexander
Hallo Heinz,
ich habe hier einen Artikel gefunden, der dir weiterhelfen könnte: VBA msgBox. Dort wird alles rund um die msgBox in VBA erklärt.
Liebe Grüße
Alexander
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige