Ich möchte aus datei1 Tabelle1 Die zellwerte in B4 bis B10 in die letzte freie zeile der Datei2 tabelle7 übertragen
dabei Soll Zelle B4 in A, B5 in Spalte B usw. geschrieben werden.
Kann mir bitte jmd helfen ?
Dim lngLetzte As Long
With Workbooks("Datei2.xlsm").Worksheets("Tabelle7")
lngLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
.Cells(lngLetzte + 1, 1).Resize(1, 7) = Application.Transpose(ThisWorkbook.Worksheets("Tabelle1").Range("A4:A10"))
End With
Dim Datei As String
Dim Pfad As String
Dim lngLetzte As Long
Datei = "Datei2.xlsx"
Pfad = "D:\Dokumente\" & Datei
With Workbooks.Open(Pfad).Worksheets("Tabelle7")
lngLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
.Cells(lngLetzte + 1, 1).Resize(1, 7) = Application.Transpose(ThisWorkbook.Worksheets("Tabelle1").Range("A4:A10"))
End With
Workbooks(Datei).Close savechanges:=True