Daten aus anderem Workbook kopieren
30.01.2020 17:24:44
Sonja
ich habe kaum Ahnung von VBA, konnte mir aber bisher einiges zusammen klauen.
Ich möchte folgendes Marko umschreiben.
Statt von einem Tabellenblatt zum anderen (von 2 zu 1), soll aus einer anderen Datei zu Tabelle 1 kopiert werden.
Kann mir jemand mein Makro entsprechend ergänzen .....PLEEEAASE :D
Sub test()
Dim wks1 As Worksheet
Dim lngLetzte As Long
Set wks1 = Sheets("Tabelle1")
wks1.UsedRange.Offset(rowOffset:=1, columnOffset:=1).ClearContents
With Sheets("Tabelle2")
lngLetzte = .Cells(.Cells.Rows.Count, "A").End(xlUp).Row
.Range(.Cells(2, "A"), .Cells(lngLetzte, "C")).Copy wks1.Cells(2, 2)
End With
End Sub