Problem mit Resume next

Hallo an alle Xperten,
Per Makro und definierten Queries importiere ich eine ganze Reihe von Daten. Das funktioniert soweit auch problemlos (siehe nachstehenden Code).
Problem ist jetzt nur mein resume - next. Konkret: Bei einem Fehler (zugrunde liegende Query-Datei ist schreibgeschützt bereits geöffnet) wechselt der Code von der for-Anweisung zur Sprungmarke. Danach erzwingt er aber keinen next-Befehl sondern wechselt wieder in die for-Anweisung ?
Danke im voraus.
Grüße,
Hockmock

Sub AktDieZweite()
'Namen der Tabellenblätter werden im Blatt "Checksummen - Splate AU ausgegeben
Dim i As Long
Application.DisplayAlerts = False
Sheets("History").Select
Range("e1").Select
On Error GoTo 1
For i = Sheets("Anfang").Index + 1 To Sheets("Ende").Index - 1
Sheets(i).Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("History").Select
ActiveCell = "o.k."
ActiveCell.Offset(0, 1).Range("A1").Select
Next i
Application.DisplayAlerts = True
1:
Sheets("History").Select
ActiveCell = "xxx"
Resume Next
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub AktDieDritte() 'Namen der Tabellenblätter werden im Blatt "Checksummen - Splate AU ausgegeben Dim i As Long, Zelle As Range Application.DisplayAlerts = False Sheets("History").Select Set Zelle = Sheets("History").Range("e1") 'Startzelle für "o.k."/"xxx" On Error GoTo Fehler For i = Sheets("Anfang").Index + 1 To Sheets("Ende").Index - 1 Sheets(i).Select Range("A1").Select Selection.QueryTable.Refresh BackgroundQuery:=False Zelle = "o.k." Set Zelle = Zelle.Offset(0, 1) NextQuerry: Next i Application.DisplayAlerts = True Err.Clear Fehler: With Err Select Case .Number Case 0 'alles ok Case 1004 'hier die Nummer des Fehler einsetzen Zelle = "xxx" Set Zelle = Zelle.Offset(0, 1) Resume NextQuerry Case Else MsgBox "Fehler-Nr: " & .Number & vbLf & .Description End Select End With Sheets("History").Select End Sub

Sub AktDieZweite() 'Namen der Tabellenblätter werden im Blatt "Checksummen - Splate AU ausgegeben Dim iTabIndex As Integer, LngRow&, booIsError As Boolean Application.DisplayAlerts = False For iTabIndex = Sheets("Anfang").Index + 1 To Sheets("Ende").Index - 1 If Not Datei_Aktualisieren(iTabIndex) Then Sheets("History").Range("e1").Offset(0, LngRow&) = "o.k." Else Sheets("History").Range("e1").Offset(0, LngRow&) = "xxx" End If LngRow& = LngRow& + 1 Next iTabIndex Application.DisplayAlerts = True End Sub Function Datei_Aktualisieren(ByVal iTabIndex As Integer) As Boolean On Error GoTo Errorh: Sheets(iTabIndex).Range("A1").QueryTable.Refresh BackgroundQuery:=False Exit Function Errorh: Datei_Aktualisieren = True End Function

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread