AW: Zellenwerte in andere Datei übertragen
06.06.2015 16:41:17
Daniel
Hi
with Workbooks("A_Rechnungen.xlsx").Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlup).Offset(1, _
0)
.value = Thisworkbook.Sheets("Rechnungen").Range("H31").value
.Offset(0, 7).value = Thisworkbook.Sheets("Rechnung").Range("F47").Value
End With
oder mit Variablen für die Zeilennummer:
With Workbooks("A_Rechungen.xlsx").Sheets("Tabelle1")
ze = .Cells(.Rows.count, 1).end(xlup).Row + 1
.Cells(ze, 1).value = Thisworkbook.Sheets("Rechnungen").Range("H31").value
.Cells(ze, 8).value = Thisworkbook.Sheets("Rechnungen").Range("F47").value
End With
Tabellenblattame für die Datei A_rechnungen ggf noch anpassen.
ThisWorkbook ist immer die Datei, in der sich das Makro das gerade läuft befindet
ActiveWorkbook ist die Datei, die gerade aktiv ist.
gruß Daniel