kennt jemand die Möglichkeit, Daten aus einer Accesstabelle in bestimmte Zeilen einer Exeltabelle zu importieren.
Vielen dank im voraus !!
ciau manila
Vielen dank im voraus !!
ciau manila
binde die ADO-Bibliothek unter extras/Verweise ein und starte dann folgendes MAkro:
Sub MitarbeiterlisteErstellen()
Dim ADOC As ADODB.Connection
Dim DBS As ADODB.Recordset
Dim s As String
Dim Pfad As String
Dim i As Integer
ChDir ThisWorkbook.Path
Set ADOC = New ADODB.Connection
With ADOC
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open "Infosystem.mdb"
End With
Set DBS = New ADODB.Recordset
With DBS
.Open Source:="Mitarbeiter", _
ActiveConnection:=ADOC, _
CursorType:=adOpenKeyset, _
LockType:=adLockOptimistic
i = 2
Sheets("Mitarbeiter Gesamt").Activate
If Not .EOF Then
Do While Not .EOF
Cells(i, 1).Value = DBS!Name
Cells(i, 2).Value = DBS!Vorname
Cells(i, 3).Value = DBS!Straße
Cells(i, 4).Value = DBS!PLZ
Cells(i, 5).Value = DBS!Ort
Cells(i, 6).Value = DBS!Gebäude
Cells(i, 7).Value = DBS!Etage
Cells(i, 8).Value = DBS!ZimmerNr
Cells(i, 9).Value = DBS!Telefon
Cells(i, 10).Value = DBS!Fax
Cells(i, 11).Value = DBS!Mail
i = i + 1
.MoveNext
Loop
Else
MsgBox "Datensatz nicht gefunden"
End If
.Close
End With
ADOC.Close
Set DBS = Nothing
Set ADOC = Nothing
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de
aber weis jemand ob ich die daten, ähnlich wie in einem Wordserienbrief,hand haben kann. ich meine das ich die kundennummer in eine Feld ( z.B. A11) eingeben kann und dann in b 11, 12,13 die benutzerspezifische adresse steht ...
oder kann ich in Excel die Elemente des Worseriendrucks übernehmen.
Vielen dank im vorraus !!
Manila