Das erste Makro öffnet ein Access Formular.
Das Zweite soll einen einzelnen AdressDatensatz in eine Excel Zelle schreiebn
Frage
wie stelle ich am einfachsten einen einzelnen Datensatz Excel zur Verfügung?
mfg
Stefan
Das erste Makro öffnet ein Access Formular.
Das Zweite soll einen einzelnen AdressDatensatz in eine Excel Zelle schreiebn
Frage
wie stelle ich am einfachsten einen einzelnen Datensatz Excel zur Verfügung?
mfg
Stefan
indem Du eine ADO-Connetion öffnest und in der mit einem SQL-Connection-String nach Deinem Satz suchst.
Gruß
Micha
gruss Thomas
Danke für Eure Hilfe
Stefan
Sub DBAdressenAufrufen()
Const Path = "E:\....\Adressen.mdb"
Set AC1 = GetObject(Path)
AC1.Application.Visible = True
End Sub
Sub AdresseSchreiben()
Dim Anschrift As String
Application.Goto Reference:=Worksheets("Tabelle1").Range("Adressenanfang"), _
Scroll:=False
Range("Adressenanfang").Value = Anschrift
End Sub
gruss
Thomas
Es ist eine Adress Db mit gut 100 Datensätzen. (also eine kleine..)
Ich habe folgenden Ablauf:
Im Excel wird ein Rechnungsvorlage geöffnet
Die Adressdaten sollen von der Adressdatenbank audgewählt und eingefügt werden. (Eine Adresse pro Worksheet)
Danach werden manuell noch ein paar Felder ausgefüllt. Wroksheet wird gespeichert und ausgedruckt)
....das ist bereits alles
Danke für Deine Hilfe!!!
bis dahin
Thomas