Thema Datum  Von Nutzer Rating
Antwort
Rot Daten dynamisch kopieren von Datei zu Datei
 04.04.2016 09:13:42 Peter
NotSolved
04.04.2016 15:17:26 Benjaminus
NotSolved
05.04.2016 06:57:58 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Peter		 Datum:
04.04.2016 09:13:42		 Views:
1155		 Rating:
     
Antwort:
  Ja
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

 

Ihre Antwort
  • 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: Name: Email:



  • 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
Rot Daten dynamisch kopieren von Datei zu Datei
 04.04.2016 09:13:42 Peter
NotSolved
04.04.2016 15:17:26 Benjaminus
NotSolved
05.04.2016 06:57:58 Gast70117
NotSolved