Laufzeitfehler 1004 - Dateiname
04.03.2015 10:42:54
Moncada
ich habe mit folgendem Makro ein Problem. Ich möchte mit dem ersten Sub Ordner_Wählen() den Quellordner auswählen lassen. Das funktioniert meiner Meinung auch, denn die MsgBox gibt mir den richten Pfad aus.
Sobald es aber ans Sub TestNacheinanderÖffnen() geht, gibt er mir folgende Fehlermeldung aus:
Laufzeitfehler 1004: 'Dateiname' wurde nicht gefunden. Überprüfen Sie die Rechtschreibung des _
_
Dateinamens etc.
Allerdings bin ich mir sicher, dass die entsprechende Datei im Ordner liegt (immerhin habe ich sie zu Testzwecken eingestellt).
Irgendwelche Ideen? Mein aktueller Code:
Public LetzteZeile As Integer
Public HGB As Variant
Public StB As Variant
Public DBO As Variant
Public Quellordner As Variant
Public Dateien As String
Sub Mengengerüst_LetzteZeile()
HGB = Workbooks("Test Abgleich MG mit Gutachten").Worksheets("Steuerblatt").Range("B3")
StB = Workbooks("Test Abgleich MG mit Gutachten").Worksheets("Steuerblatt").Range("B4")
DBO = Workbooks("Test Abgleich MG mit Gutachten").Worksheets("Steuerblatt").Range("B5")
End Sub
Sub Ordner_Wählen()
MsgBox "Bitte wählen Sie den Quellordner aus.", vbExclamation + vbOKOnly
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Title = "Bitte wählen Sie den Quellordner aus."
.InitialView = msoFileDialogViewThumbnail
.ButtonName = "Ok"
.Show
Quellordner = .SelectedItems(1) & "\"
MsgBox Quellordner
End With
End Sub
Sub TestNacheinanderÖffnen()
Dateien = Dir$(Quellordner & "*xls")
Workbooks.Open (Dateien)
LetzteZeile = Cells.SpecialCells(xlCellTypeLastCell).Row
MsgBox LetzteZeile
Range(HGB & LetzteZeile).Copy
Workbooks("Test Abgleich MG mit Gutachten").Worksheets(3).Range("a1").PasteSpecial _
xlPasteValues
Range(StB & LetzteZeile).Copy
Workbooks("Test Abgleich MG mit Gutachten").Worksheets(3).Range("B1").PasteSpecial _
xlPasteValues
Range(DBO & LetzteZeile).Copy
Workbooks("Test Abgleich MG mit Gutachten").Worksheets(3).Range("C1").PasteSpecial _
xlPasteValues
End Sub