Große Excel-Tabelle an Word übergeben...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Daten_nach_Word_uebertragen() 'Fügt Daten aus Excel ab der Cursorposition im aktiven Worddokument ein Dim doc As Document, wks As Worksheet, Zelle As Range, I As Long, Zeile As Long, strText As String Set wks = ActiveWorkbook.Worksheets("Tabelle2") 'Tabelle mit zu exportierenden Daten Application.ActivateMicrosoftApp xlMicrosoftWord Set doc = ActiveDocument With doc 'Daten in Worddokument einfügen For Zeile = 2 To 2 'wks.Cells(wks.Rows.Count, "A").End(xlUp).Row 'Inhalte eines Datensatzes in eine Text-String einlesen strText = "Datensatz: " & Zeile - 1 & vbLf For I = 1 To 129 Set Zelle = wks.Cells(Zeile, I) 'nächste Zeile überträgt Zellwerte 'strText = strText & "(" & wks.Cells(1, I).Text & "): " & Zelle.Value & vbLf 'nächste Zeile überträgt in der Tabelle angezeigte Werte (so wie formatiert, wichtig bei Datum und Prozent) strText = strText & "(" & wks.Cells(1, I).Text & "): " & Zelle.Text & vbLf Next I 'Datensatz in Word einfügen .Application.Selection.TypeText strText .Application.Selection.TypeText vbLf Next Zeile .Application.WindowState = wdWindowStateMinimize End With MsgBox "Daten sind übertragen" End Sub

Hallo Ben,
hab das Makro nochmal an deine Wünsche angepasst. Das Makro fragt jetzt in 2 Eingabeboxen die zu übertragenden Zeilen ab.
Gruss
Franz


Sub Daten_nach_Word_uebertragen()
'Fügt Daten aus Excel ab der Cursorposition im aktiven Worddokument ein
Dim doc As Document, wks As Worksheet, Zelle As Range, I As Long, Zeile As Long, strText As String
Set wks = ActiveWorkbook.Worksheets("Tabelle2") 'Tabelle mit zu exportierenden Daten
'Eingabe der zu übertragenden Zeilen
Zeile1 = Val(InputBox("1. Zeile die übertragen werden soll?", "Datentransfer nach Word", 2))
If Zeile1 < 2 Then Exit Sub
Zeile2 = Val(InputBox("Letzte Zeile die übertragen werden soll?", "Datentransfer nach Word", 2))
If Zeile2 <= Zeile1 Then Exit Sub
Application.ActivateMicrosoftApp xlMicrosoftWord
Set doc = ActiveDocument
With doc
'Daten in Worddokument einfügen
For Zeile = Zeile1 To Zeile2   'wks.Cells(wks.Rows.Count, "A").End(xlUp).Row
'Inhalte eines Datensatzes in eine Text-String einlesen
strText = "Datensatz: " & Zeile - 1 & vbLf
For I = 1 To 129
Select Case I
Case 13 To 17, 41 To 46, 62 To 67, 87 To 92, 120 To 124
'do nothing,
'Daten in diesen Spalten nicht übertragen
'm -q, ao -at, bj -bo, ci -cn, dp -dt
Case Else
Set Zelle = wks.Cells(Zeile, I)
'nächste Zeile überträgt Zellwerte
'strText = strText & "(" & wks.Cells(1, I).Text & "): " & Zelle.Value & vbLf
'nächste Zeile überträgt in der Tabelle angezeigte Werte (so wie formatiert, wichtig bei Datum und Prozent)
strText = strText & "(" & wks.Cells(1, I).Text & "): " & Zelle.Text & vbLf
End Select
Next I
'Datensatz in Word einfügen
.Application.Selection.TypeText strText
.Application.Selection.TypeText vbLf
Next Zeile
.Application.WindowState = wdWindowStateMinimize
End With
MsgBox "Daten sind übertragen"
End Sub

Beliebteste Forumthreads (12 Monate)

Große Excel-Tabelle an Word übergeben...

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Große Excel-Tabelle an Word übergeben...

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread