Bankeinzugformular mit Daten versorgen

Erstmal ein Hallo an alle hier im Forum.
Ich habe folgendes Problem. Aus einer langen Excel Liste mit Vereinsmitgliedern sollen die Daten in einen Banküberweisungsträger eingelesen werden. Den Überweisungsträger habe ich selbst erstellt und an die Felder des Orginals angepasst.
Bis jetzt habe ich den Überweisungsträger einfach immer kopiert und so eine lange Liste mit den Überweisungsträger erhalten. Dann habe ich die Felder immer so geändert wie es gerade erforderlich war. Meistens also den Betreff und den Betrag der Überweisung.
Nun würde ich gerne die ganzen einzelnen Spalten in einer Excel Tabelle verwalten und nur noch zum drucken an Word übergeben.
Excel Tabelle von Aufbau:
Name / Vorname / Kontonummer / Bank / Betrag / Betreff1 / Betreff2 / Emfänger / Kontoemfänger
also:
A3 = Name / B3 = Vorname / C3 = Kontonummer
A4 = Name
Irgendwie bekomme ich das aber mit dem Datenimport in die Wordfelder nicht auf die Reihe.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
vielleicht als Anregung:
ich bedrucke ein einzelnes Überweisungsformular (eigentlich etwas antik) und gebe die Betreff-Zeilen händisch ein. Die DAten kommen aus einer Userform (letztendlich Tabelle).
Das Word-Formular ist als Dokumentenvorlage abgelegt.

Sub Ueberweisung()
Dim ObjWord As Object
Dim DocNeu As Object
Dim Drucker As String
Set frm3 = Uf_Ueberweisung
Drucker = "normal"
On Error Resume Next
Set ObjWord = GetObject("Word.Application")
If ObjWord Is Nothing Then
Set ObjWord = CreateObject("Word.Application")
End If
Call NeuDoc(ObjWord, "Ueberweisungen", DocNeu)
If Not DocNeu Is Nothing Then
With DocNeu
.FormFields("Vorname").Result = frm3.TextBox1.Value     'Vorname
.FormFields("Konto").Result = frm3.TextBox2.Value       'Konto
.FormFields("Blz").Result = frm3.TextBox3.Value         'BLZ
.FormFields("Bank").Result = frm3.TextBox9.Value        'Bank
.FormFields("Betrag").Result = frm3.TextBox4.Value      'Betrag
.FormFields("Zweck1").Result = frm3.TextBox5.Value      'Verwendung1
.FormFields("Zweck2").Result = frm3.TextBox6.Value      'Verwendung2
.FormFields("eName").Result = frm3.TextBox7.Value       'eigenerName
.FormFields("eKonto").Result = frm3.TextBox8.Value      'eigenesKonto
.FormFields("Datum").Result = Date
.FormFields("eBank").Result = frm3.TextBox10.Value
.FormFields("eBLZ").Result = frm3.TextBox11.Value
End With
End If
ObjWord.Application.DisplayAlerts = 0
ObjWord.Application.Activate
If Drucker = "Bildschirm" Then
ObjWord.Visible = True
ObjWord.ActiveDocument.PrintPreview
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 10)
Else
ObjWord.Application.PrintOut
End If
ObjWord.ActiveDocument.Close 0  ' (0 = wdDoNotSaveChanges)
ObjWord.Application.Quit
Set DocNeu = Nothing
Set ObjWord = Nothing
End Sub

Mit freundlichen Grüßen
Albrecht

Beliebteste Forumthreads (12 Monate)

Bankeinzugformular mit Daten versorgen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bankeinzugformular mit Daten versorgen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread