Application.GetOpenFilename
05.11.2013 16:44:24
Valerie
ich hoffe Ihr könnt mir helfen. Ich möchte aus einem anderen Excel Daten importieren.
Ich wähle eine bestimmte Datei aus und will daraus eine Zelle kopieren, die ich in meine Zieldatei einfügen will. Das klappt auch im ersten Durchgang. Wenn ich dann aber wieder in die andere Datei springen will kriege ich einen Fehler. Entweder sagt er mir, dass die Datei schon geöffnet ist und wenn ich es mit "Workbooks(import).Activate" probiere kriege ich einen Laufzeitfehler.
Bin für jede Hilfe dankbar
Sub Daten_holen()
'
ChDrive "I"
ChDir "I:\Eigene Dateien"
Dim Import As Variant
'Zeile einfügen im Aktiven Workbook
Rows("3:3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'Auswahl der zu importierenden Datei
Import = Application.GetOpenFilename("Microsoft Excel-Dateien (*.xls;*.xlsm;*.xlsx),*.xls;*.xlsm;*.xlsx")
Workbooks.Open Filename:=import
'Kopieren einer bestimmten Zelle
Range("B4").Copy
Windows("2013_AktuelleDatei").Activate
'Einfügen der Zelle
Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks(Import).Activate
Range("B5").Copy
'Kopieren andere Zelle
Range("B5").Copy
Windows("2013_AktuelleDatei").Activate
'einfügen andere Zelle
Range("B3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False