Anstelle Debugger den Fehler m.e. Meldung abfangen

Guten Tag
In einem Makro frage ich für Spalte D aus einem Lookuptable Werte ab. Wenn nun der Suchwert nicht gefunden wird, kommt so logischerweise der Debugger.
Wie kann ich den Code ergänzen, damit bein Auftreten des Fehlers die Meldung erscheint, welche Zelle das Problem verursacht hat? Also beispielsweise, wenn der Fehler auftritt, wenn zNr auf 29 ist, sollte die Meldung erscheinen, "Wert für D29 ist im Lookuptable nicht definiert". Die Meldung sollte dann mit OK quittiert werden können.
Danke für ein Feedback.
Peter
zNr = 2
Do While zNr &lt= BW_Diff
If .Cells(zNr, 4) = "" And Len(.Cells(zNr, 5)) &lt 6 Then
.Cells(zNr, 4) = WorksheetFunction.VLookup(Val(.Cells(zNr, 5)), Range("KontoISIN"), 2, 0)
Else
End If
zNr = zNr + 1
Loop

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
wenn das Makro nach der Meldung abbrechen soll, dann geht das so:


Sub t()
On Error GoTo errorhandler
zNr = 2
Do While zNr <= BW_Diff
If .Cells(zNr, 4) = "" And Len(.Cells(zNr, 5)) < 6 Then
.Cells(zNr, 4) = WorksheetFunction.VLookup(Val(.Cells(zNr, 5)), Range("KontoISIN"), 2, 0)
Else
End If
zNr = zNr + 1
Loop
Exit Sub
errorhandler:
MsgBox "Wert für D" & CStr(zNr) & "ist im Lookuptable nicht definiert"
End Sub

Wenn nach der Meldung in der nächsten Zeile weitergemacht werden soll, dann so:


Sub t()
On Error GoTo errorhandler
zNr = 2
Do While zNr <= BW_Diff
If .Cells(zNr, 4) = "" And Len(.Cells(zNr, 5)) < 6 Then
.Cells(zNr, 4) = WorksheetFunction.VLookup(Val(.Cells(zNr, 5)), Range("KontoISIN"), 2, 0)
Else
End If
zNr = zNr + 1
Loop
Exit Sub
errorhandler:
MsgBox "Wert für D" & CStr(zNr) & "ist im Lookuptable nicht definiert"
Resume Next
End Sub

Schönen Gruß,
Andi

select case worksheetfunction.countif(Range("KontoISIN"), Val(.Cells(zNr, 5))) case 0 Msgbox "Wert nicht gefunden" case 1 .Cells(zNr, 4) = WorksheetFunction.VLookup(Val(.Cells(zNr, 5)), Range("KontoISIN"), 2, 0) case else msgbox "Wert mehrfach vorhanden" end select

Sub xxx Dim Fehlertext as string ... Start Schleife select case worksheetfunction.countif(Range("KontoISIN"), Val(.Cells(zNr, 5))) case 0 Fehlertext = Fehlertext & Chr(10) & "Wert " & Val(.Cells(zNr, 5)) & " aus Zeile " & zNr & " fehlt" case 1 .Cells(zNr, 4) = WorksheetFunction.VLookup(Val(.Cells(zNr, 5)), Range("KontoISIN"), 2, 0) case else Fehlertext = Fehlertext & Chr(10) & "Wert " & Val(.Cells(zNr, 5)) & " aus Zeile " & zNr & " ist mehrfach in Liste vorhanden" end select ... Schleifenende Msgbox Fehlertext End Sub Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

Anstelle Debugger den Fehler m.e. Meldung abfangen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread