objektdefinierter fehler Loop schleife
11.08.2017 11:16:33
Sigi
ich habe eine Datenbank, die nach dem wert findKSTDaten in spalte B durchsucht werden soll. Wird der wert gefunden, soll der wert 8 zellen weiter rechts (siehe offset) in eine Listbox (Additem) eingetragen werden
Leider funktioniert es nicht, es kommt immer anwendungs- oder objektdefinierter Fehler bei der Zeile die mit ErgebnisDaten beginnt
Ich hoffe ihr könnt mir helfen
Danke schon mal
Private Sub Hinzufügen()
Dim findKSTDaten As String
Dim LastrowDaten As Long
Dim ErgebnisDaten As Range 'Suchergebnis in Tabelle Datenbank
Dim Firstaddress As String
LastrowDaten = Worksheets("Datenbank").Range("B" & Rows.Count).End(xlUp).Row
With Worksheets("Datenbank").Range("B6:B" & LastrowDaten)
findKSTDaten = lb_KST.Caption
ErgebnisDaten = Worksheets("Datenbank").Range("B").Find(what:=findKSTDaten, LookIn:=xlValues)
lst_VorhandeneDaten.AddItem ErgebnisDaten.Offset(0, 8).Value
If Not ErgebnisDaten Is Nothing Then
Firstaddress = ErgebnisDaten.Address
Do
lst_VorhandeneDaten.AddItem ErgebnisDaten.Offset(0, 8)
Set ErgebnisDaten = .FindNext(ErgebnisDaten)
If ErgebnisDaten Is Nothing Then
GoTo DoneFinding
End If
Loop While Not ErgebnisDaten Is Nothing And ErgebnisDaten Firstaddress
End If
DoneFinding:
End With
End Sub