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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen