ich habe eine Datei screen.xls. In dieser möchte ich gerne (Zelle A3) den Ornernamen einlesen in der sich die Datei befindet.
ICh brauche nicht den ganzen Pfad. Lediglich den Ordnernamen in dem die Datei sich befindet.
Jemand eine Idee?
Gruß
Julia
Sub Ord()
Dim i, j As Long
p = ThisWorkbook.Path
j = 1
Do
i = InStr(j, p, "\")
If i > 0 Then j = i + 1
Loop Until i = 0
Cells(1, 1) = Mid(p, j)
End Sub
gruß selli
Sub tt()
Dim nam As String, anz As String
Dim i As Integer
Dim zähler As String
nam = ActiveWorkbook.Path
anz = Len(nam)
zähler = 0
For i = anz To 1 Step -1
Select Case Mid(nam, i, 1)
Case "\":
Exit For
End Select
zähler = zähler + 1
Next i
Range("A3").Value = Right(nam, zähler)
End Sub
Gruß
Chaos
Function Ordnername()
Ordnername=split(activeworkbook.path,"\")(ubound(split( _
activeworkbook.path,"\")))
End Function
Gruß, NoNet