Fehlermeldung
15.06.2013 15:40:49
hartmut
ich habe untenstehenden code in einer userform stehen.
wenn ich auf einlesen der daten klicke und kein wert in der userform ist dann kommt eine fehlermeldung. wer kann mir hier eine hilfestellung geben so das bei einem fehler nicht der debugger (es wird die Zeile mit den 6 ? gelb hinterlegt) kommt sondern eine msgbox mit dem hinweis das kein eintrag gemacht wurde.
Ein großes DANKE für eure tatkräftige unterstützung
Gruß
Hartmut
Private Sub tbCable_Number_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim rngLast As Range, lngZ As Long, vTst
With Sheets("Cable List")
Set rngLast = .Cells(.Rows.Count, 15).End(xlUp) ' letzter Eintrag Sp. 15
' Suche mit Match = VERGLEICH
? vTst = 5 + Application.Match(tbCable_number, _
.Range(.Cells(6, 15), rngLast), 0)
If IsNumeric(vTst) Then ' wenn gefunden, ...
lngZ = vTst
tbCable_number = .Cells(lngZ, 15) ' war schon gleich
tbCable_Type = .Cells(lngZ, 16)
tbEndjunction_from = .Cells(lngZ, 17)
tbLocation_from = .Cells(lngZ, 18)
tbEndjunction_to = .Cells(lngZ, 19)
tbLocation_to = .Cells(lngZ, 20)
End If
End With
End Sub