AW: Dateipfad in Zelle schreiben
26.02.2019 18:05:29
Gregy
Vielen Dank an alle! habe ich auch so umgesetzt. Jetzt tritt folgender Fehler auf
Laufzeitfehler 9:
Index außerhalb des gültigen Bereichs
Und zwar in der Zeile lstRow = Workbooks(varName_imp).Sheets("GAEB_Konverter_LV").Cells(Rows.Count, 4).End(xlUp).Row
Interessanterweise bekomme ich das Phänomen nicht wieder wech...
Hier der gesamte Code
Option Explicit
Dim Stamm_imp As String
Dim varFile_imp As Variant
Dim varName_imp As Variant
Dim Blatt_imp As String
Public Sub gaeb_import()
Application.ScreenUpdating = False
Dim lstRow As Long
' On Error GoTo Err
Stamm_imp = ActiveWorkbook.Name
varFile_imp = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx", , "XLSx", " _
Auswahl", False)
If TypeName(varFile_imp) Like "Boolean" Then
MsgBox "Keine Datei gewählt!", vbInformation
Exit Sub
Else
varName_imp = Left$(varFile_imp, InStrRev(varFile_imp, "\"))
Workbooks.Open varFile_imp
lstRow = Workbooks(varName_imp).Sheets("GAEB_Konverter_LV").Cells(Rows.Count, 4).End( _
xlUp).Row
Workbooks(Stamm_imp).Sheets("Liste").Range("C3").Value = varFile_imp
Workbooks(varName_imp).Sheets("GAEB_Konverter_LV").Range("B2:B" & lstRow - 3).Copy
Workbooks(Stamm_imp).Sheets("Kalkulation").Range("C5").PasteSpecial xlPasteValues
Workbooks(varName_imp).Sheets("GAEB_Konverter_LV").Range("C2:C" & lstRow - 3).Copy
Workbooks(Stamm_imp).Sheets("Kalkulation").Range("D5").PasteSpecial xlPasteValues
Workbooks(varName_imp).Sheets("GAEB_Konverter_LV").Range("D2:F" & lstRow - 3).Copy
Workbooks(Stamm_imp).Sheets("Kalkulation").Range("E5").PasteSpecial xlPasteValues
Workbooks(varName_imp).Sheets("GAEB_Konverter_LV").Range("G2:G" & lstRow - 3).Copy
Workbooks(Stamm_imp).Sheets("Kalkulation").Range("BB5").PasteSpecial xlPasteValues
Workbooks(varName_imp).Close
Application.CutCopyMode = False
End If
Sheets("Kalkulation").Range("E5").Select
Exit Sub
Err:
Call MsgBox("FEHLER" _
& vbCrLf & "Bitte wenden Sie sich an den Administrator" _
, vbExclamation, "Fehler")
End Sub
HAt jemand eine Idee? Ich habe dem Dim schon Double zugewiesen, bringt aber auch nix :-/
Vielen Dank!