Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Word via vba aus daten mit excel befüllen
#1
Hallo miteinander, ich bin ein vba laie und sollte für unsere korrespindenzbriefe in word ein vba erstellen, das die kontaktdaten bzw absenderdaten aus excel holt. Dazu soll gesagt sein, wir sind dezentral organisiert und alle von unserem team haben verschiedene kontaktdaten. Die kontaktdaten und teammitglieder sind mit kürzel der teammitglieder in einer excelliste vorhanden. Ich habe eine wordvorlage .dotx mit einem auswahlformularfeld drin. Dort gibt es die auswahl mit allen kürzeln der teammitglieder. Nun sollen je nach auswahl des kürzel des mitglieds via vba automatisch aus excrl die entsprechenden kontakaten erscheinen. Wie programmiere ich das vba? Es muss in word programmiert werden. Danke schon jetzt für eure hilfe!!!
Antwortento top
#2
Hallo,

das könnte so gehen:


Code:
Sub DatenHolen()
'Variabledeklarationen
Dim xlApp As Object 'Excel.Application
Dim xlBook As Object 'Excel.Workbook
Dim xlSheet As Object 'Excel.WorkSheet
Const xlCellTypeVisible = 12
'Objecte zuweisen
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Test\MS_Query.xlsx")
Set xlSheet = xlBook.Worksheets(1)
'Filtern
xlSheet.ListObjects("Tabelle_Abfrage_von_Excel_Files").Range.AutoFilter _
        Field:=1, Criteria1:="Algersdorf"
'Sichtbare Zellen kopieren
xlSheet.Range("A1:B3").SpecialCells(xlCellTypeVisible).Copy
'Kopierte Zellen einfuegen
Selection.PasteExcelTable False, False, False
End Sub
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top
#3
Hallo André,

muss hier nicht statt der XlCellType-Konstante xlCellTypeVisible der Konstantenwert (hier die 12) verwendet werden?
Gruß Stefan
Win 7 / Office 2007
Antwortento top
#4
Hallo Stefan,

ja, aber das hab ich auch gemacht Smile
Oben bei den Dim's steht auch Const xlCellTypeVisible = 12
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top
#5
Hallo André,

sorry, das habe ich übersehen Confused
Gruß Stefan
Win 7 / Office 2007
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste