Ordnername per VBA auslesen
16.12.2020 10:06:07
Jo
ich habe folgendes Problem:
Ich habe verschiedene Exceltabellen in verschiedenen Ordnern.
Ich lassen in diesen Exceltabellen regelmäßig Makros zum Aufbereiten
dieser Tabellen laufen (hauptsächlich Formatierungen der Spalten,
Kopf- und Fußzeile, der beinhaltenden Pivottabellen etc.).
An einem Punkt dieses Makros benötige ich den Namen des Ordners (und
nur der Ordnername), in dem sich diese zu bearbeitende Exceltabelle
befindet.
Dieser soll dann - entsprechend formatiert - in die Fußzeile eingefügt
werden (hin und wieder auch in einer Zelle der aufzubereitenden Tabelle).
Bisher habe ich für jede Exeltabelle den entsprechenden Ordnernamen
manuell in das Makro geschrieben, was m.E. auf Dauer doch sehr mühsam ist.
Für Excel habe ich eine Formel gefunden, die mir jedoch nicht hilft,
da ich diese nicht ins Makro einfügen kann.
Für VBA habe ich folgendes gefunden:
Sub Ordnernameanzeigen()
With ThisWorkbook
MsgBox Split(.Path, "\")(UBound(Split(.Path, "\")))
End With
End Sub
nicht gebrauchen kann.
Kann mir jemand helfen?
Vielen Dank im Voraus.
Jo