Exakte Zeile finden
13.10.2005 11:12:47
Roli
Ich suche mit folgendem Code auf dem Blatt "Vertreter" in der Spalte B einen richtigen Begriff heraus, der im textbox kd_vertreter eingeben ist.
sub test()
Dim strPWort As String, j as integer
Application.ScreenUpdating = True
With Worksheets("Vertreter")
j = .Range("B:B").Find(me.kd_vertreter, LookIn:=xlValues).Row
strPWort = .Cells(j, 4)
End With
...
Folgendes Problem: Ich suche eine Möglichkeit, dass in zwei Spalten durchsucht wird und explizit die richtige Zeile herausfindet.
Mit folgendem Code hats nicht geklappt?
j = .Range("B:B").Find(me.kd_vertreter, LookIn:=xlValues).Row and _
.Range("A:A").Find(me.kd_bereich, LookIn:=xlValues).Row
Wie geht das? Bitte helft mir da weiter.
Liebe Grüße
Roli