Ordner anlegen

Forumthread: Ordner anlegen

Ordner anlegen

13.08.2007 22:43:20

WalterK

Hallo,
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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ordner anlegen

13.08.2007 23:05:23

Chaos
AW: Ordner anlegen

13.08.2007 23:42:57

walterK
AW: Bitteschön

13.08.2007 23:45:43

Chaos

AW: Ordner anlegen

13.08.2007 23:05:23

Chaos

Servus Walter,
ein möglicher Ansatz wäre so:


Sub Ordner()
Dim strpfad
Dim n As String
n = Range("A1").Value
strpfad = "C:\Dokumente und Einstellungen\Christian\Desktop\" & n ' Hier den Pfad eingeben
If Dir(strpfad, vbDirectory) = "" Then
MkDir strpfad
Exit Sub
Else
MsgBox ("schon da! Neu!") ' wenn da kommt MsgBox und springt dann zu nochmal
GoTo nochmal
End If
nochmal:
n = InputBox("Neuer Name")
If StrPtr(n) = 0 Then ' Hier abbrechen der InputBox, falls doch kein neuer Name gewünscht.
Exit sub
End if
strpfad = "C:\Dokumente und Einstellungen\Christian\Desktop\" & n ' Hier den Pfad eingeben
If Dir(strpfad, vbDirectory) = "" Then
On Error Resume Next
MkDir strpfad
Else
MsgBox ("schon da! Neu!")
GoTo nochmal
End If
End Sub

n steht für einen Ordnernamen.
Da ich nicht genau verstanden habe, was du mit Tabelle4!C4 und F4 meintest, hab ich es hier nur mal auf A1 bezogen.
Gruß
Chaos

AW: Ordner anlegen

13.08.2007 23:42:57

walterK

Hallo Chaos,
besten Dank, funktioniert einwandfrei.
Servus, Walter

AW: Bitteschön

13.08.2007 23:45:43

Chaos

Forumthread: Ordner anlegen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread