Hallo Zusammen,
ich hoffe ich werde nicht gesteinigt, weil ich vielleicht ein neues Thema begonnen habe, dass es möglicherweise schon gibt. Aber trotz intensiver Suche konnte ich die Lösung für mein aktuelles Problem noch nicht finden.
Ich bin seit ein paar Tagen immer mal wieder damit beschäftigt, eine möglichst komfortable Lösung für die Erstellung unterschiedlicher Statistiken in einer unserer Abteilungen zu basteln.
Es geht um folgendes: Ich möchte gezielt Formularfelder aus einem Word-Formular per Knopfdruck auslesen und in eine bestehende Excel-Datei (Statistik) einpflegen. Das funktioniert ja schon wunderbar mit diesem Code:
Code:
Sub Word_nach_Excel()
Dim xlApp As Object
Dim xlWkb As Object
Dim xlWks As Object
Dim oDoc As Document
Set oDoc = ActiveDocument
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlWkb = xlApp.Workbooks.Add
Set xlWks = xlWkb.Worksheets(1)
If oDoc.FormFields("kk1").CheckBox = True Then
xlWks.Range("A1").Value = "ja"
ElseIf oDoc.FormFields("kk2").CheckBox = True Then
xlWks.Range("A1").Value = "nein"
End If
xlWks.Range("B1").Value = oDoc.Bookmarks("Text1").Range.Text
xlWks.Range("C1").Value = oDoc.Bookmarks("Vorname").Range.Text
xlWks.Range("D1").Value = oDoc.Bookmarks("Name").Range.Text
xlWks.Range("E1").Value = oDoc.Bookmarks("Straße").Range.Text
xlWks.Range("F1").Value = oDoc.Bookmarks("PLZ").Range.Text
xlWks.Range("G1").Value = oDoc.Bookmarks("Ort").Range.Text
Set xlApp = Nothing
Set oDoc = Nothing
End Sub
Nun möchte ich aber weitere Formulare über den selben Vorgang auslesen. Die ausgelesenen Daten sollen ebenfalls in diese Excel-Tabelle übertragen werden. Wie schaffe ich es nun, dass immer die nächst mögliche freie Zeile gewählt wird?
Ich habe da schon so einen Code-Schnipsel gefunden, hab aber ehrlich gesagt keine Ahnung wie ich den in Deinen Code einbauen soll. Er lautet:
Code:
z = Range("A65565").End(xlUp).Row + 1
Kann mir vielleicht jemand behilflich sein? Wäre echt spitze!
Vielen Dank für Eure Hilfe!
Schöne Grüße
Jareth85 |