Ordner anlegen
13.08.2007 20:43:20
WalterK
nachfolgenden Code habe ich im Forum gesehen (von ransi 12.08.2007 13:30:14) und bräuchte ihn etwas abgeändert, scheitere aber kläglich mit meinen Versuchen:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Sub test()
Dim wsh
Dim DesktopPath
Dim Ordnername
Ordnername = "Irgendwas"
Set wsh = CreateObject("Wscript.shell")
On Error Resume Next
MkDir wsh.specialfolders("Desktop") & "\" & Ordnername
Set wsh = Nothing
End Sub
Folgendes sollte ich abgeändert haben:
als Pfad möchte ich vorgeben: "C:\MeinOrdner\ExcelDateien\"
der Ordnername sollte ausgelesen werden aus: Tabell4!C4 & tabelle 4!F4
wenn bereits ein Ordner mit dieser gesamten Pfadangabe besteht, soll eine entsprechende Meldung erscheinen, damit man abbrechen kann und/oder einen anderen Ordnernamen vergeben kann.
Vielleicht kann mir jemand helfen!
Servus, Walter