Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.04.2016 09:13:42 |
Peter |
|
|
|
04.04.2016 15:17:26 |
Benjaminus |
|
|
Daten dynamisch kopieren von Datei zu Datei |
05.04.2016 06:57:58 |
Gast70117 |
|
|
Von:
Gast70117 |
Datum:
05.04.2016 06:57:58 |
Views:
606 |
Rating:
|
Antwort:
|
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
|
- 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
|
|
04.04.2016 09:13:42 |
Peter |
|
|
|
04.04.2016 15:17:26 |
Benjaminus |
|
|
Daten dynamisch kopieren von Datei zu Datei |
05.04.2016 06:57:58 |
Gast70117 |
|
|