da gibt´s viele unterschiedliche Vorgehensweisen....
Wenn Du nicht zuviele Bereiche in Deinen Mappen löscht, könnte es mit dieser Art gehen:Sub Rahel()
Range("A1:" & ActiveCell.SpecialCells(xlLastCell).Address).Select
Selection.Copy
Application.CutCopyMode = False
Range("A1").Select
End Sub
wie wäre es hiermit? Dieses Makro bringt den normalen Datei-Öffnen-Dialog zum Vorschein und öffnet dann die ausgewählte Datei aus dem Verzeichnis - hier werden gem. Suffix nur Excel-Dateien angezeigt:Private Sub Rahel02()
Code eingefügt mit Syntaxhighlighter 1.14
' Dieses Makro ist für einen Nutzer mit nur einer HDD geschrieben worden;
' bei Bedarf ist der Teil der Laufwerksregelung anzupassen
'
Const LWC = "C:\" ' Konstante Festplatte 1
' Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
'
'
' Wechsel des Laufwerkes
'
ChDrive LWC
'
''' Wechsel auf das vorgesehene Speicherverzeichnis, wenn
''' dieses unterschiedlich von dem in Extras/Optionen festgelegten ist
''ChDir Speicherort
'
' Einlesen des Namens der Datei und Beendigung bei Abbruch
dName = Application.GetOpenFilename _
("Exceldateien (*.xls),*.xls")
If dName = False Then Exit Sub
'
' Oeffnen der Datei
Workbooks.Open dName
'
'
'' Wechsel auf das vorgesehene Speicherverzeichnis
'ChDir Speicherort
''
'
'' Schließen der Mappe mit den einzulesenden Mappe
' ActiveWindow.Close
Application.ScreenUpdating = True
End Sub