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

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
05.04.2016 06:57:58		 Views:
605		 Rating:
     
Antwort:
  Ja
Thema:
Daten dynamisch kopieren von Datei zu Datei		 
Option Explicit

Sub Aktualisieren()
 
'* > unnötige selbst löschen
 
'* > 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

'nimm die erste freie Zelle in Spalte A
Dim rngZiel As Range
Set rngZiel = ThisWorkbook.Sheets("Daten").Cells(Rows.Count, 1).End(xlUp)
'wenn nicht leer
If rngZiel.Row <> 1 Then Set rngZiel = rngZiel.Offset(1)
 
Application.ScreenUpdating = False
 
'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
 
'"Anlage.xlsx" ist aktiv und alle Daten in Ziel kopieren
'es wurde kein Blattname spezifiziert, daher
'wenn Leerzeilen dazwischen
ActiveSheet.UsedRange.Copy rngZiel
'wenn 1 Block geht auch
'ActiveSheet.Range("A1").CurrentRegion.Copy rngZiel

'* > 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")

'"Anlage.xlsx" schließen
Workbooks(2).Close False
 
Application.ScreenUpdating = True
 
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
04.04.2016 09:13:42 Peter
NotSolved
04.04.2016 15:17:26 Benjaminus
NotSolved
Rot Daten dynamisch kopieren von Datei zu Datei
 05.04.2016 06:57:58 Gast70117
NotSolved