Ich hab nur die Angabe der Tabelle hinzugefügt und die Spalten in der gesucht werden soll sind jetzt Spalte AF und AG und in AH soll er das Ergebnis schreiben.
Ich benutze Access 2007 und bei mir ist alles auf Englisch.. Jetzt find ich natürlich die Verweise ned?!?!
So schauts jetzt aus (Mein Eingabefeld heißt bis jetzt "textbox1", das ändere ich dann am Ende, nur damit ich weiß das es nicht daran liegt :-).
Jetzt läufts bis zu der Stelle "... End(xlUp)" und er sagt "Variable not defined".
Option Compare Database
Option Explicit
Sub test()
NameSuchen "textbox1.text"
End Sub
Private Sub NameSuchen(GesuchterName$)
Dim rng As Object
Dim AV As Variant
Dim R&, C&, LR&
LR = Sheets("Combined Edit").Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Sheets("Combined Edit").Range("AF1:AH" & LR)
AV = rng.Value
For R = 1 To UBound(AV)
For C = 1 To 2
If AV(R, C) = GesuchterName Then
AV(R, 3) = GesuchterName
End If
Next
Next
rng.Value = AV
End Sub
|