Guten Morgen,
ich habe folgenden Code aus dem Forum:
Dim myFile As String
myFile = Application.GetOpenFilename("Excel Dateien (*.xls; *.xlt; *.xla)," & _
"*.xls; *.xlt; *.xla")
If myFile = "Falsch" Then Exit Sub
Workbooks.Open Filename:=myFile
'bis hierher läufts wie ich es möchte nun wollte ich so fortfahren:
lgLfdNr = Workbooks("myFile").Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row + 1
aber da bringt's mir nen Fehler. Es ist halt das Problem, das der Workbookname und auch Pfad variabel sind....
Kann mir jemand weiterhelfen?
Ich bin auch schon soweit, dass ich mir den Pfad mit und ohne Namen der Excelmappe in Zellen ausgegeben habe, falls das was hilft
In A2 steht der Pfad ohne Excelmappenname
und in A3 steht der Excelmappenname...
Grüße
Markus