title image


Smiley Meldung von Laufzeitfehler kommt auch wenn Excel-Datei gefunden wurde
Hallo ich möchte einen abgeänderten Fehlermeldungstext ausgeben wenn ein Laufzeitfehler auftritt.Ich habe in einem Steuerelement mehrere Kostenstellen definiert die angeklickt werden und dann die dazugehörige Exceldatei geöffnet wird. Allerdings gibt es nicht für jede kostenstelle eine Exceldatei.Wenn solch eine Exceldatei angeklickt wird erscheint immer der Laufzeitfehler: 1004. Nun möchte ich das bei Auftretten dieses Fehler die Meldung "Es ist für diese Kostenstelle keine Exceldatei vorhanden !" erscheint.Das Problem ist jetzt das diese Fehlermeldung immer erscheint auch wenn eine vorhande Exceldatei geöffnet wird.Wer kann mir weiterhelfen ???Modul:Sub BAB_Ergebnis() If IsEmpty(Sheets("variable").Cells(1, 2)) Then MsgBox ("Bitte Kostenstelle oder Segment auswählen!") DialogSheets("variable").Show kst_auswählen = "" Else End If Kst = "" & ERGBN & Sheets("variable").Cells(Val(Sheets("variable").Cells(1, 2)), 1) & ""Workbooks.Open(FileName:="\\FN1005\KENNZAHL\Kennzahl\KSTERGB\ERGBN" & Kst & ".XLS"). _ RunAutoMacros Which:=xlAutoOpen Dim Mldg' Bei Auftreten eines Fehlers Fehlermeldung erstellenOn Error Resume Next ' Fehlerbehandlung zurückstellen.Err.ClearErr.Raise 6 ' Überlauffehler" auslösen.' Auf Fehler überprüfen, dann Meldung anzeigen.If Err.Number 0 Then Mldg = "Es ist für diese Kostenstelle keine Exceldatei vorhanden !" MsgBox Mldg, , "Fehler", Err.HelpFile, Err.HelpContextEnd If Sheets("Kostenstellenergebnis").SelectEnd Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: