ThisWorkbook.Path mit Unterordner
17.09.2007 21:38:00
edie
benötige Hilfe für folgendes Problem:
sPath = ThisWorkbook.Path so erweitern damit der Daten-Import
aus dem Unterordner "Planung" statt windet.
Habe probiert: sPath = ThisWorkbook.Path & "\Planung\"
funktioniert nicht. Kann mir jemand helfen?
Hier der VBA-Code aus dem Archiv.
Sub Importieren()
Dim rng As Range
Dim sFormula As String, sPath As String
Dim sWkb As String, sWks As String
sPath = ThisWorkbook.Path
sWkb = Range("F1").Value
If Dir(sPath & "\" & sWkb) = "" Then
Beep
MsgBox "Testdatei wurde nicht gefunden!"
End If
sWks = Range("F2").Value
sFormula = "='" & sPath & "\"
sFormula = sFormula & "[" & sWkb & "]"
sFormula = sFormula & sWks & "'!"
For Each rng In Selection.Cells
rng.Formula = sFormula & rng.Address
Next rng
With Selection
.Value = .Value
End With
End Sub
Vielen Dank im Voraus.
Grüße