Ich habe nun eine einfache MDB Datei mit Tabelle Kunden.
In Kunden steht zB. Maier, jetzt möchte ich aus Excel nach Maier suchen und die Zelle neben Maier zB. Strasse nach Excel kopieren.
Hat jemand ein Beispiel?
Gruß
Patrick
Gruß
Patrick
Gruß Stefan.
Bye
Nike
die Suche war mir neu und nach Deiner Antwort heute morgen hab ich mindestens 50 Beiträge gelesen - aber es klappt nicht. Ich habe aber auch keinen Ansatz wo es jeweils hängt.
Bei manchen Makros hat er den ersten Wert zugwiesen, aber noch nicht mal den hab ich dann in Excel reinkopieren können.
Gruß
Patrick
'erstnals den Verweiss auf MS DAO Object Lybrary nicht vergessen :-)
Private Sub DatenAusMDBLesen()
Dim db As Database
Dim ws As Workspace
Dim rsKunden As Recordset
Dim vName, bgef As Boolean
vName = InputBox("Enter Name", "Name")
Set ws = DBEngine.CreateWorkspace("", "Admin", "", dbUseJet)
Set db = ws.OpenDatabase("D:\db.mdb") 'nur Beispiel
'KUNDEN ist die Tabelle
Set rsKunden = db.OpenRecordset("KUNDEN") 'dbOpenForwardOnly
With rsKunden
.MoveFirst
bgef = False 'hat gefunden ?
If Not .EOF Then
Do While Not .EOF
If rsKunden!Name = vName Then
Cells(1, 1) = rsKunden!Strasse 'nur Beispiel, sonst andere Celle nehmen
bgef = True
Exit Do
End If
.MoveNext
Loop
End If
If Not bgef Then _
MsgBox "Name : " & vName & " nicht in db."
End With
rsKunden.Close
Set db = Nothing
End Sub