Fehler abfangen
11.05.2014 10:56:03
Christian
mit nachfolgendem Code schreibt gewisse Werte in zwei Listboxen.
Das haut aber nur hin, wenn in der Spalte Q auch der Suchbegriff vorhanden ist,
da aber machmal der Suchbegriff fehlt, kommt es logischerweise zum Fehler.
Wie kann ich den Fehler abfangen und in den Listboxen einen Text anzeigen lassen, z.B. "kein Los vorhanden"?
Danke für die Hilfe!
MfG Christian
Private Sub UserForm_Activate()
Dim lngZeileLos As Long
Dim lngZeileTi As Long
lngZeileLvz = ActiveCell.Row
'Los und Titel einlesen
lngZeileLos = lngZeileLvz
lngZeileTi = lngZeileLvz
With wksLvz
Do
lngZeileLos = lngZeileLos - 1
Loop Until .Cells(lngZeileLos, 17).Value = "LOS"
lngZeileLos = lngZeileLos - 1
End With
With Me.ListBox7
.Clear
.AddItem wksLvz.Cells(lngZeileLos + 1, 18)
.List(0, 1) = wksLvz.Cells(lngZeileLos + 1, 19)
End With
With wksLvz
Do
lngZeileTi = lngZeileTi - 1
Loop Until .Cells(lngZeileTi, 17).Value = "TI"
lngZeileTi = lngZeileTi - 1
End With
With Me.ListBox8
.Clear
.AddItem wksLvz.Cells(lngZeileTi + 1, 18)
.List(0, 1) = wksLvz.Cells(lngZeileTi + 1, 19)
End With
End Sub