Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Fehlerbehandlung
#1
Hallo,

Ich habe ein Makro, das mir aus dem Netz Daten abruft, und mir einige davon in ein anderes Sheet überträgt. Das funktioniert auch gut, solange die URL tatsächlich zu finden ist. Findet es sie nicht gibt es nätürlich einen Laufzeitfehler aus - und das ist lästig und unschön.

Jetzt dacht ich mir: Fügste einfach hinter der Zeile, in der die URL aufgerufen wird ein On Error Exit Sub ein und gut isses.

Aber es funktioniert nicht! Excel zeigt mir die Zeile rot an und meldet Fehler beim kompilieren.

Wie kann ich das Makro bei einem Laufzeitfehler abbrechen?
Code:
Sub histKurse01()
 
 Set wnd = ActiveWindow
 Application.ScreenUpdating = False 'Aktualisierung der Anzeige ab-,angeschalten
 Application.DisplayAlerts = True 'Aufforderungen und Warnmeldungen erlauben oder unterdrücken
 

 lRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
 Set wnd = ActiveWindow
       Application.ScreenUpdating = False 'Aktualisierung der Anzeige ab-,angeschalten
       Application.DisplayAlerts = True 'Aufforderungen und Warnmeldungen erlauben oder unterdrücken
 Worksheets("hist.kurse").Range("J7:L16").ClearContents

 For i = 7 To lRow '-> 7 To 16 :-)
 
   Call URLbilden
   
       Workbooks.Open Filename:=URL
       On Error Exit Sub
       ActiveSheet.Cells.Copy
       wnd.Activate
       Sheets("CSV Transfer").Range("A1").PasteSpecial
       Application.DisplayAlerts = False
       Application.ScreenUpdating = True
       Workbooks("table.csv").Close
       
'Daten in Sheet "SLKurse" übertragen
   Worksheets("CSV Transfer").Columns(1).Copy Destination:=Worksheets("SLKurse").Columns(1)
   Worksheets("CSV Transfer").Columns(5).Copy Destination:=Worksheets("SLKurse").Columns(((i - 6) * 3) - 1)
   Worksheets("SLKurse").Cells(1, ((i - 6) * 3) - 1).Value = Worksheets("hist.Kurse").Range("C" & i).Value

Worksheets("hist.kurse").Range("L7:L16").ClearContents

Call VolaMin 'VolaMin steht im Modul Berechnungen

Next i
 
End Sub
Antwortento top
#2
Hallo,

schau dir mal das Tutorial und die weiteren Folgen an.
Gruß Stefan
Win 7 / Office 2007
Antwortento top
#3
Danke für den Ratschlag, aber eine Antwort hätte gereicht.

Funktioniert jetzt!
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste