Hallo,
hab ein grundsätzliches Problem.
Ich muss oft Daten aus Access nach Excel nach vorgegebenen Kriterien schieben. Das Makro funktioniert eigentlich super, aber nur mit Suchkriterien in Form von Zahlen. Diesmal ist es aber eine Kombination aus Zahl, Leerzeichen und Wort: z. B: 3 Huber, 4 Maier usw. Der Grund für den Wortanhang besteht darin, das man sich unter Zahlen nichts vorstellen kann, was damit gemeint ist. Das gleiche gilt für Suchkriterien aus Wörtern - ich bekomme es einfach nicht hin, das das Makro auch nach eindeutigen Wörtern sucht.
Das Makro läuft zwar durch, bringt aber als MSGBox die u.g. Fehlermeldung, das es nach Zahl/Wort- oder Wort-Suchkriterien nichts findet.
Am Makroanfang sind natürlich noch die Variablen und der Pfad
s = "kundenmerkmal=" & UserForm32.kundenmerkmal
Set ADOC = New ADODB.Connection
With ADOC
ADOC.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & pfad & ""
End With
Set dbs = New ADODB.Recordset
With dbs
.Open Source:="kundenstammdaten1", _
ActiveConnection:=ADOC, _
CursorType:=adOpenKeyset, _
LockType:=adLockOptimistic
.Find Criteria:=s, SearchDirection:=adSearchForward
Sheets("Edikettenblatt").Activate
Range("e1").Select
If Not .EOF Then
Do While Not .EOF
If dbs!anrede = 0 Then
ActiveCell.Value = ""
Else
ActiveCell.Value = dbs!anrede
End If
dbs.Find Criteria:=s, Skiprecords:=1
ActiveCell.Offset(1, 0).Select
Loop
Else
MsgBox "Datensatz nicht gefunden"
End If
.Close
End With
ADOC.Close
Set dbs = Nothing
Set ADOC = Nothing
Kann mir jemand einen Tipp geben, woran das liegt. Vielleicht hat jemand auch gleich ein passendes Makro?
Für Eure Hilfe schon mal Danke.
Gruß
Stefan