Hallo,
ganz kurz gesagt. Ich habe nicht viel Ahnung von VBA und habe folgendes Problem bei dem mir hoffentlich jemand helfen kann.
Ich lade mir aus einem Programm wöchentlich immer eine Datei "Anlage" im Excelformat welche eine feste Größe an Spalten von 33 hat. Jedoch hat diese Datei jede Woche unterschiedlich viele Zeilen welche ich kopieren will.
Diese kopierten Zeilen sollen dann an das Ende einer fortlaufend geführten Arbeitsmappe angefügt werden. Die Datei heisst " Eingabedaten" und das Sheet an das es angefügt werden soll hat den Namen "Daten". Dazu muss ich ja die letzte beschriebene Zeile des Sheets "Daten" ermitteln und dann anfügen damit nichts überschrieben wird.
Ich habe versucht selbst etwas zu schaffen und habe meinen Code unten eingefügt.
Ich hoffe wirklich sehr dass mir jemand helfen kann.. Vielen Dank vorab!
[code]
Sub Aktualisieren()
'Letzte Zeile Zieldatei ermitteln
Dim lngZeile, lngSpalte As Long
'Letzte gefüllte Zeile in Spalte A
lngZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'Letzte gefüllte Spalte in Zeile 2
lngSpalte = ActiveSheet.Cells(2, Columns.Count).End(xlToLeft).Column
'Zu kopierende Datei öffnen welche nur ein Sheet besitzt
Workbooks.Open Filename:="Anlage.xlsx"
'Zeilen auswählen
LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range("A1:A" & LetzteZeile).Copy
'Zieldatei öffnen in der Bereich einzufügen ist
Windows("Eingabedaten.xlsm").Activate
'Sheet("Daten") soll ausgewählt werden
'Kopierter Bereich aus Anlage soll ans Ende des Sheets "Daten" der Zieldatei angehängt werden
ActiveSheet.Paste Destination:=.Range("A &lngZeile:A")
End Sub
[/code]