AW: Daten in neue Excel Datei kopieren
21.07.2014 15:23:37
Martin
Hallo Max,
ich fühle mich etwas veralbert, wenn mir trotz entsprechenden Hinweis nicht alle grundlegenden Informationen mitteilst. Ich gehe jetzt einfach davon aus, dass die Spalten immer aus dem aktuellen Blatt der Quelldatei kopiert werden sollen (...kann ich nur so raten):
Sub Makro1()
Dim varSourceFile As Variant
varSourceFile = Application.GetOpenFilename("Excel-Dateien (*.xl*), *.xl", 1, "Quelldatei _
auswählen...")
'Abbrechen, falls keine Datei ausgewählt
If varSourceFile = False Then Exit Sub
'Quelldatei öffnen
Workbooks.Open Filename:=varSourceFile
'Spalten C, F und J kopieren
Range("B:B,F:F,J:J").Copy
'Neue Arbeitsmappe anlegen
Workbooks.Add
'Datei einfügen
ActiveSheet.Paste
End Sub
Viele Grüße
Martin