Auswahl_Filtern_Übertrag
04.03.2016 11:23:08
chris58
Ich habe mir ein Makro geladen, welches von der Datei wo ich das Makro ausführe, die Daten der ausgewählten Dateien in die NEUE Datei eingefügt werden. Leider überschreibt die letztgeladene Datei alle anderen Datensätze.
Ich würde folgendes brauchen:
Alle Daten die in der Spalte A eine "1" stehen haben sollen in die NEUE Datei der nächsten freien Zeile übernommen werden und die angesprochenen Dateien wiedergeschlossen werden. Ich finde nichts passendes, darum meine bitte, ob wer ein solches Makro hat.
Danke
Sub TT_Projects_Import()
Dim Ziel As Workbook
Set Ziel = ThisWorkbook 'für Excel Zwischenspeicherung
Application.Dialogs(xlDialogOpen).Show 'öffne Quelldatei
Worksheets(1).Range("2:65535").Copy 'kopiere alles zur Zieldatei
Ziel.Worksheets(1).Activate 'wechselt zur Zieldatei zurück
Ziel.Worksheets(1).Range("2:65535").PasteSpecial _
Paste:=xlPasteValues
Application.CutCopyMode = False 'setzt Zwischenablage in Datei ein
Worksheets(1).Cells(1, 1).Select 'zeigt Zieldatei wieder an
End Sub