Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Unterorden der Datei per VBA | Herbers Excel-Forum


Betrifft: Unterorden der Datei per VBA von: PeTeR
Geschrieben am: 12.11.2009 12:51:47

Hallo VBA-Freaks,

ich bräuchte bitte kurz eure Hilfe:

activeworkbook. path ist der ganze Pfad. Ich brauche nur den letzten Unterordner.

z. B.: C:\....\Länder\Ägypten - Die Datei liegt im Ordner Ägypten.

Vielen Dank für eure Hilfe

PeTeR

  

Betrifft: AW: Unterorden der Datei per VBA von: Oberschlumpf
Geschrieben am: 12.11.2009 12:59:56

Hi Peter

Meinst du so?

Sub sbTest()

    Dim larstrUnterordner() As String

    larstrUnterordner = Split(ActiveWorkbook.Path, "\")

    MsgBox larstrUnterordner(UBound(larstrUnterordner))

End Sub
mit MsgBox wird die unterste Verzeichnisebene von ActiveWorkbook.Path angezeigt.
(allerdings weiß ich nicht, ob es in Excel 2007 noch die Split-Funktion gibt)

Hilfts?

Ciao
Thorsten




  

Betrifft: AW: Unterorden der Datei per VBA von: Luschi
Geschrieben am: 12.11.2009 13:55:42

Hallo Thorsten,

die Split()-Funktion gibt es auch in Excel2007 noch!

Gruß von Luschi
aus klein-Paris


  

Betrifft: vielen Dank für die Info!...owT von: Oberschlumpf
Geschrieben am: 12.11.2009 14:16:54




  

Betrifft: AW: Unterorden der Datei per VBA von: PeTeR
Geschrieben am: 12.11.2009 14:03:11

Hallo Thorsten,

SUPER - ja, genau so!!

Die Funktion SPLIT kannte ich noch gar nicht - man lernt eben nie aus.

Ganz herzlichen Dank

PeTeR