ciao zusammen,
moechte gerne einen uebergeordneten Ordnernamen in eine Excelzelle uebernehmen. Kann mir da jemand helfen?
Danke im voraus fuer die Hilfe.
gruss
fabrice
Hallo Fabrice,
ist zwar nicht die eleganteste Art, aber eine selbstgestrickte Funktion dürfte Dein Problem lösen:
Public Function UeberOrdner() As String
Dim i As Integer
For i = Len(ActiveWorkbook.Path) To 1 Step -1
Debug.Print i
If Mid(ActiveWorkbook.Path, i, 1) = "\" Then
UeberOrdner = Left(ActiveWorkbook.Path, i - 1)
Exit Function
End If
Next i
End Function
Erstelle im Makro-Editor (Alt+F11) in der gewünschten Mappe ein neues Modul (oben links im Projektfenster), kopiere das Makro hinein und speichere die Tabelle. Jetzt kannst Du in jeder beliebigen Exceltabelle in die gewünschte Zelle die Funktion eingeben: =UeberOrdner()
Dort wird dann der Name des übergeordneten Ordners angezeigt.
Gruß
(Woly)
Hallo Woly,
vielen Dank für die Lösung.
Ich hätte da noch eine Zusatzfrage.
Bei deiner Version zeigt es leider den ganzen Pfad an, wie z.B. C:\Winnt…usw…\Profiles. Meine Vorstellung ist das nur noch Profiles steht. Was kann ich machen?
Vielen Dank und Gruss
fabrice
Hallo Fabrice,
dann nimmst Du ganz einfach dieses Makro:
Public Function UeberOrdner() As String
Dim i As Integer
For i = Len(ActiveWorkbook.Path) To 1 Step -1
Debug.Print i
If Mid(ActiveWorkbook.Path, i, 1) = "\" Then
UeberOrdner = Left(ActiveWorkbook.Path, i - 1)
Exit For
End If
Next i
For i = Len(UeberOrdner) To 1 Step -1
If Mid(UeberOrdner, i, 1) = "\" Then
UeberOrdner = Mid(UeberOrdner, i + 1)
End If
Next i
End Function
Gruß
(Woly)