per VBA werden Daten einer Rechnung in eine andere Tabelle, fortlaufend, geschrieben. Diesen Code habe ich seinerzeit von Ramses bekommen (vielen Dank noch mal!) :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wksSource As Worksheet, wksTarget As Worksheet
Dim iRow As Integer
Set wksSource = Worksheets("Rechnung")
Set wksTarget = Workbooks("Wachsende_Tabelle.xls").Worksheets(1)
iRow = wksTarget.Cells(Rows.Count, 1).End(xlUp).Row + 1
wksTarget.Cells(iRow, 1).Value = wksSource.Range("B14").Value
wksTarget.Cells(iRow, 2).Value = wksSource.Range("G12").Value
wksTarget.Cells(iRow, 4).Value = wksSource.Range("C18").Value
wksTarget.Cells(iRow, 5).Value = wksSource.Range("C17").Value
wksTarget.Cells(iRow, 6).Value = wksSource.Range("F26").Value
End Sub
Das klappt wunderbar. ABER: Meine Rechnung beinhaltet 1 Zelle, in der der Rechnungsempfänger mit Alt+Enter mehrzeilig eingetragen wird. Nun möchte ich die 1. Zeile der Zelle in die "wachsende_Tabelle" in die Spalte G (iROW, 7) und die 2. Zeile der Zelle in die Spalte H (iRow, 8) übertragen lassen. Ist das möglich? Habe es schon mit dem Recorder probiert, leider ohne Erfolg :-(
Würde mich freuen, wenn Ihr mir helfen könntet.
Vielen Dank schon einmal!
LG
Cordula