Daten in WordDatei ausgeben
26.08.2022 13:36:19
Sk1988
ich habe folgendes Problem ich muss aus einer Excel Tabelle Daten übertragen. Er schreibt mir in die Word-Datei leider nur die oberen 2 Zeilen.
Der obere Code funktioniert:
Dim wdapp As New Word.Application
Dim cb As Control, summe As Double, werte() As String
Dim znr As Double
znr = 2
With wdapp
.Visible = True
.Activate
.Documents.Add
.ActiveDocument.Select
With .Selection
.TypeText "Flüge in den Kontinenten " & Me.cmb_Kontinent & vbTab & "für das Jahr: " & Me.cmb_Jahr & _
vbTab & "Kategorie: " & Me.cmb_Kategorie
.TypeParagraph
.TypeParagraph
.TypeText "Flugnummer:" & vbTab & "Beförderte Passagiere:" & vbTab & vbTab & "Umsatz/:" & vbTab & "Marketingausgaben/:"
.TypeParagraph
While Tabelle1.Range("A" & znr) ""
If cmb_Kontinent = Range("A" & znr) Then
If cmb_Jahr = Range("B" & znr) Then
If cmb_Kategorie = Range("C" & znr) Then
.TypeText "& Cells(2 & znr) &" & vbTab & " & Cells(5 & znr) " & vbTab & " & Cells(6 & znr) & " & vbTab & " & Cells(7 & znr) & "
.TypeParagraph
End If
End If
End If
znr = znr + 1
Wend
End With
.ActiveDocument.SaveAs2 ActiveWorkbook.Path & "\" & Format(Now, "YYMMdd_hhmmss") & "_" & "Fluglinien_" & Me.cmb_Kontinent & Me.cmb_Jahr & Me.cmb_Kategorie & ".docx"
End With
End Sub
Gruß Sk1988