Hallo Forumsteilnehmer,
mir wurde bereits gut geholfen bei meinen Fragen, daher wende ich mich auch wieder mit einem neuen Anliegen an euch.
In dem u.g. Code, der für eine Kundennummersuche angelegt ist, bekomme ich einen Laufzeit / Objektdefinierter Fehler. Falls ich aber die Do While schleife unsichtbar mache und dafür die ebenfalls genannte IF THEN Else Schleife laufen lasse, bekomme ich zwar keine Fehlermeldung aber auch keine Daten von Zeilen im Excel Blatt in meine Textboxen.
Worksheets("Kunde").Activate
Dim i As Long
Dim tr As Long
i = 1
'''If Cells(i, 2) Val(TextBox1.Value) Or Cells(i, 2) = "" Then
'''i = i + 1
'''Else
'''tr = i
Do While Cells(i, 2) Val(TextBox1.Value) Or Cells(i, 2) = ""
i = i + 1
Loop
tr = i
'Kundenanschrift
Titel.Value = Cells(tr, 4).Value
Anrede.Value = Cells(tr, 5).Value
Vorname.Value = Cells(tr, 6).Value
NameK.Value = Cells(tr, 7).Value
Strasse.Value = Cells(tr, 8).Value
Hausnummer.Value = Cells(tr, 9).Value
PLZOrt.Value = Cells(tr, 10).Value
Ort.Value = Cells(tr, 11).Value
PLZPostfach.Value = Cells(tr, 12).Value
Postfach.Value = Cells(tr, 13).Value
Telefon.Value = Cells(tr, 14).Value
Fax.Value = Cells(tr, 15).Value
Email.Value = Cells(tr, 16).Value
Danke für Eure Hilfe
Gruss
Christian