Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Daten dynamisch kopieren von Datei zu Datei |
04.04.2016 09:13:42 |
Peter |
|
|
|
04.04.2016 15:17:26 |
Benjaminus |
|
|
|
05.04.2016 06:57:58 |
Gast70117 |
|
|
Von:
Peter |
Datum:
04.04.2016 09:13:42 |
Views:
1154 |
Rating:
|
Antwort:
|
Thema:
Daten dynamisch kopieren von Datei zu Datei |
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!
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Daten dynamisch kopieren von Datei zu Datei |
04.04.2016 09:13:42 |
Peter |
|
|
|
04.04.2016 15:17:26 |
Benjaminus |
|
|
|
05.04.2016 06:57:58 |
Gast70117 |
|
|