Zuerst einmal Hallo an alle!
Also ich bin blutiger Anfänger, was die VBA-Programmierung angeht und schon habe ich ein Problem, bei welchem ich aboslut nicht weiterkomme.
Die Situation ist so, in ein Excel werden per Inputbox 17 Werte eingegeben, diese in die nächste leere Zeile geschrieben. Dabei sollten diese dann in die Textmarken in einer Word-Vorlage, welche zuvor geöffnet wird, geschrieben werden. Leider stimmt die Reihenfolge (Exceltabelle kommt aus einem Buchhaltungsprogramm und kann nicht geändert werden resp. das Buhaltungsprogramm kann nicht dementsprechend angepasst werden) in der Exceltabelle und im Wordbrief nicht überein.
Nun zu meiner Frage, ich bring es einfach nicht zu Stande, dass ebendiese Werte in das Word übertragen werden! Könnt ihr mir da weiterhelfen oder muss ich dafür ev. ein zweites Makro schreiben, ich wäre einfach für eure Hilfe sehr dankbar.
Hier mein Code:
Bin für jede Hilfe dankbar, vielen Dank im Voraus und herzliche Grüsse
Bekki
Also ich bin blutiger Anfänger, was die VBA-Programmierung angeht und schon habe ich ein Problem, bei welchem ich aboslut nicht weiterkomme.
Die Situation ist so, in ein Excel werden per Inputbox 17 Werte eingegeben, diese in die nächste leere Zeile geschrieben. Dabei sollten diese dann in die Textmarken in einer Word-Vorlage, welche zuvor geöffnet wird, geschrieben werden. Leider stimmt die Reihenfolge (Exceltabelle kommt aus einem Buchhaltungsprogramm und kann nicht geändert werden resp. das Buhaltungsprogramm kann nicht dementsprechend angepasst werden) in der Exceltabelle und im Wordbrief nicht überein.
Nun zu meiner Frage, ich bring es einfach nicht zu Stande, dass ebendiese Werte in das Word übertragen werden! Könnt ihr mir da weiterhelfen oder muss ich dafür ev. ein zweites Makro schreiben, ich wäre einfach für eure Hilfe sehr dankbar.
Hier mein Code:
Visual Basic-Quellcode
- Private Sub CommandButton1_Click()
- Dim str1, str2, str3, str4, str5, str6, str7, str8, str9, str10, str11, str12, str13, str14, str15, str16, str17 As String
- Dim i As Integer
- Dim AppWD As Object
- 'Wordvorlage öffnen
- Set AppWD = CreateObject("Word.Application")
- AppWD.documents.Add "C:\Users\Rebekka\Desktop\V2.dotx"
- 'Zähler
- i = 1
- j = 1
- 'leere Zeile
- While Not Cells(i, j).Value = ""
- i = i + 1
- Wend
- str1 = InputBox("Wert1")
- Cells(i, 1) = str1
- AppWD.Bookmarks("Textmarke9").Cells.Text = "str1"
- str2 = InputBox("Wert2")
- Cells(i, 2) = str2
- AppWD.Bookmarks("Textmarke10").Cells.Text = "str1"
- str3 = InputBox("Wert3")
- Cells(i, 3) = str3
- AppWD.Bookmarks("Textmarke14").Cells.Text = "str1"
- str4 = InputBox("Wert4")
- Cells(i, 4) = str4
- AppWD.Bookmarks("Textmarke11").Cells.Text = "str1"
- 'lösche der Übersichtlichkeit halber mal die anderen Inputboxen weg, sind ja alle gleich aufgebaut
- str17 = InputBox("Wert17")
- Cells(i, 17) = str17
- AppWD.Bookmarks("Textmarke1").Cells.Text = "str1"
- AppWD.Visible = TrueAppWD.SaveAs
- "C:\DeinPfad\DeinName.doc"
- End Sub
Bin für jede Hilfe dankbar, vielen Dank im Voraus und herzliche Grüsse
Bekki