Hallo,
wie kann ich aus Excel heraus auf dem Laufwerk D einen Ordner anlegen lassen dessen Name auf der Textbox 1 kommt. In dem Ordner sollen wiederrum die Ordner "IN" und "OUT" angelegt werden.

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ordner anlegen lassen

23.05.2017 13:57:00

yummi
AW: Ordner anlegen lassen

23.05.2017 13:59:14

yummi
AW: Ordner anlegen lassen

23.05.2017 14:08:40

Jens
AW: Ordner anlegen lassen

23.05.2017 15:19:16

yummi
AW: Ordner anlegen lassen

23.05.2017 14:10:20

UweD

AW: Ordner anlegen lassen

23.05.2017 13:57:00

yummi

Hallo Jens,


function Ordner_Anlegen(ByVal strOrdner as string)
If Dir("D:\" & strOrdner, vbDirectory) = "" Then
MkDir ("D:\" & strOrdner)
MsgBox "Ordner '' & strOrdner & '' wurde angelegt!"
Else
MsgBox "Ordner ''& strOrdner & '' ist vorhanden!"
End If
End function

Aufruf z.B.:


Ordner_Anlegen me.textbox1.text

Gruß
yummi

AW: Ordner anlegen lassen

23.05.2017 13:59:14

yummi

Hallo Jens
sry In und Out fehlt noch

function Ordner_Anlegen(ByVal strOrdner as string)
If Dir("D:\" & strOrdner, vbDirectory) = "" Then
MkDir ("D:\" & strOrdner)
MsgBox "Ordner '' & strOrdner & '' wurde angelegt!"
Else
MsgBox "Ordner ''& strOrdner & '' ist vorhanden!"
End If
Ordner_Anlegen strOrdner & "/IN"
Ordner_Anlegen strOrdner & "/OUT"
End function

Gruß
yummi

AW: Ordner anlegen lassen

23.05.2017 14:08:40

Jens

und wo pflege ich das ein sodass es funktioniert? Modul?

AW: Ordner anlegen lassen

23.05.2017 15:19:16

yummi

ja in modul

AW: Ordner anlegen lassen

23.05.2017 14:10:20

UweD

Hallo
kommt die Textbox aus einer Userform?
dann so...

Private Sub TextBox1_AfterUpdate()
    Dim Pfad As String
    
    Pfad = "C:\temp\" ' Voreinstellung bei dir D:\ 
    
    Pfad = Pfad & Me.TextBox1.Value
    
    If Dir(Pfad, vbDirectory) <> "" Then
        MsgBox "Bereits vorhanden"
        Exit Sub
    End If
    MkDir (Pfad)
    MkDir (Pfad & "\IN")
    MkDir (Pfad & "\OUT")
    
End Sub

LG UweD

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn(finden dann)

34081
zelle färben wenn andere zelle wert

23512
excel text links von zeichen

16681

Weitere Forumthreads anzeigen

excel zeichen einfügen am anfang

16052

scrollen in excel nicht möglich

15741

formeln kopieren ohne anpassung der zellbezüge

15343

excel formel enthält

14267

excel wenn wert in zelle dann andere zelle kopieren

12306

excel ab bestimmten zeichen abschneiden

11938

excel erste ziffer entfernen

11417

excel summe zeigt 0

10634

excel zelle farbig wenn andere zelle text

10521

zählenwenns mit oder

9511

excel links zeichen abschneiden

9498

excel string enthält teilstring

9480

excel wenn leer dann leer lassen

9079

excel vba variable in zelle schreiben

8864

excel teil bis leerzeichen

8800

zählenwenn datumsbereich

8428

excel formel doppelte werte nur einmal zählen

8178

excel zelleninhalt in andere zelle übernehmen

8062

excel text ab bestimmten zeichen

7989

excel formel rechts ab zeichen

7915

wenn wert größer als und kleiner als dann

7806

letzte zeile vba

7675

excel datum und uhrzeit in einer zelle

7521

excel zellen ausblenden button

7291

excel umrechnung minuten in stunden

7167

excel zelleninhalt ausblenden wenn

7070

cursor kreuz statt pfeil

7068

excel aus kalenderwoche monat ermitteln

6935

excel wenn datum älter als dann rot

6521

excel summewenn nicht

6515

excel daten untereinander statt nebeneinander

6294

excel vba zellinhalt löschen

6182

excel wenn wert negativ dann 0

6026

wenn formel mit uhrzeit

6006

excel nur letzten 4 zeichen einer zelle

5981

excel wenn wert in liste vorhanden dann

5920

excel nur das erste wort einer zelle

5910

excel shortcut blatt wechseln

5872

excel zahlen fortlaufend funktioniert nicht

5838

wenn mehrere zellen leer dann

5829

excel datei durch mich selbst gesperrt obwohl nicht geöffnet

5734

excel letzten buchstaben entfernen

5705

@ in excel formel

5689

sverweis summe aller werte

5676

excel wenn zelle leer dann wert aus anderer zelle sonst

5582

excel wort in zelle suchen und ausgeben

5539

excel uhrzeit minuten addieren

5492

excel vba suchen und anzeigen

5379

zählen wenn nicht leer

5341

excel summewenns über mehrere spalten

5321

excel führende nullen entfernen formel

5224

zelle färben, wenn andere zelle wert

5182

excel vba abfrage ja nein

5105

excel aus namen e mail adresse

5082

sverweis nicht gefunden dann 0

5082

excel vba zellfarbe ändern

5053

wenn farbe dann

5053

buchstaben aus excel zelle entfernen

4974

excel wert aus anderer zelle übernehmen wenn bedingung erfüllt

4903

excel summewenn ungleich

4847

excel formel anführungszeichen

4841

excel string enthält teilstring

4789

excel datum + monate

4769

excel summe zwischen zwei datumsangaben

4754

vba mit passwort schützen

4727

excel zeichen finden von rechts

4710

vba if or mehrere bedingungen

4679

excel liniendiagramm mit mehreren linien

4659

excel datumsformat lässt sich nicht ändern

4654

excel bildgröße an zelle anpassen

4588

punkte entfernen excel

4564

excel erste vier zeichen löschen

4556

text aus anderer zelle übernehmen excel

4516

excel als text gespeicherte zahl in zahl umwandeln vba

4508

zeilenumbruch excel vba

4482

excel zählen wenn enthält

4469

excel spaltennummer ermitteln in der ein wert steht

4452

excel vba prüfen ob tabellenblatt existiert

4430

makro stoppen

4411

excel datum automatisch einfügen bei eingabe

4362

excel tabelle kopieren ohne inhalt

4360

excel summe und runden in einer zelle

4357

excel aktuelle zeit

4332

vba excel userform schließen

4327

durchschnitt aus prozentwerten

4327

excel kalenderwochen in datum umwandeln

4324

excel wert in spalte suchen und zeile ausgeben

4308

excel verketten mit datum

4300

excel vba verweis auf zelle anderes tabellenblatt

4285

excel gruppen benennen

4260

excel gruppieren geht nicht

4229

wenn funktion zu viele argumente

4199

vba zeilenumbruch

4182

excel dropdown leere zellen ignorieren funktioniert nicht

4158

excel blattschutz filtern erlauben

4142

excel umbruchvorschau ausblenden

4075

excel aktuelles jahr ausgeben

4025

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn(finden dann)

34081
zelle färben wenn andere zelle wert

23512
excel text links von zeichen

16681

Weitere Forumthreads anzeigen

excel zeichen einfügen am anfang

16052

scrollen in excel nicht möglich

15741

formeln kopieren ohne anpassung der zellbezüge

15343

excel formel enthält

14267

excel wenn wert in zelle dann andere zelle kopieren

12306

excel ab bestimmten zeichen abschneiden

11938

excel erste ziffer entfernen

11417

excel summe zeigt 0

10634

excel zelle farbig wenn andere zelle text

10521

zählenwenns mit oder

9511

excel links zeichen abschneiden

9498

excel string enthält teilstring

9480

excel wenn leer dann leer lassen

9079

excel vba variable in zelle schreiben

8864

excel teil bis leerzeichen

8800

zählenwenn datumsbereich

8428

excel formel doppelte werte nur einmal zählen

8178

excel zelleninhalt in andere zelle übernehmen

8062

excel text ab bestimmten zeichen

7989

excel formel rechts ab zeichen

7915

wenn wert größer als und kleiner als dann

7806

letzte zeile vba

7675

excel datum und uhrzeit in einer zelle

7521

excel zellen ausblenden button

7291

excel umrechnung minuten in stunden

7167

excel zelleninhalt ausblenden wenn

7070

cursor kreuz statt pfeil

7068

excel aus kalenderwoche monat ermitteln

6935

excel wenn datum älter als dann rot

6521

excel summewenn nicht

6515

excel daten untereinander statt nebeneinander

6294

excel vba zellinhalt löschen

6182

excel wenn wert negativ dann 0

6026

wenn formel mit uhrzeit

6006

excel nur letzten 4 zeichen einer zelle

5981

excel wenn wert in liste vorhanden dann

5920

excel nur das erste wort einer zelle

5910

excel shortcut blatt wechseln

5872

excel zahlen fortlaufend funktioniert nicht

5838

wenn mehrere zellen leer dann

5829

excel datei durch mich selbst gesperrt obwohl nicht geöffnet

5734

excel letzten buchstaben entfernen

5705

@ in excel formel

5689

sverweis summe aller werte

5676

excel wenn zelle leer dann wert aus anderer zelle sonst

5582

excel wort in zelle suchen und ausgeben

5539

excel uhrzeit minuten addieren

5492

excel vba suchen und anzeigen

5379

zählen wenn nicht leer

5341

excel summewenns über mehrere spalten

5321

excel führende nullen entfernen formel

5224

zelle färben, wenn andere zelle wert

5182

excel vba abfrage ja nein

5105

excel aus namen e mail adresse

5082

sverweis nicht gefunden dann 0

5082

excel vba zellfarbe ändern

5053

wenn farbe dann

5053

buchstaben aus excel zelle entfernen

4974

excel wert aus anderer zelle übernehmen wenn bedingung erfüllt

4903

excel summewenn ungleich

4847

excel formel anführungszeichen

4841

excel string enthält teilstring

4789

excel datum + monate

4769

excel summe zwischen zwei datumsangaben

4754

vba mit passwort schützen

4727

excel zeichen finden von rechts

4710

vba if or mehrere bedingungen

4679

excel liniendiagramm mit mehreren linien

4659

excel datumsformat lässt sich nicht ändern

4654

excel bildgröße an zelle anpassen

4588

punkte entfernen excel

4564

excel erste vier zeichen löschen

4556

text aus anderer zelle übernehmen excel

4516

excel als text gespeicherte zahl in zahl umwandeln vba

4508

zeilenumbruch excel vba

4482

excel zählen wenn enthält

4469

excel spaltennummer ermitteln in der ein wert steht

4452

excel vba prüfen ob tabellenblatt existiert

4430

makro stoppen

4411

excel datum automatisch einfügen bei eingabe

4362

excel tabelle kopieren ohne inhalt

4360

excel summe und runden in einer zelle

4357

excel aktuelle zeit

4332

vba excel userform schließen

4327

durchschnitt aus prozentwerten

4327

excel kalenderwochen in datum umwandeln

4324

excel wert in spalte suchen und zeile ausgeben

4308

excel verketten mit datum

4300

excel vba verweis auf zelle anderes tabellenblatt

4285

excel gruppen benennen

4260

excel gruppieren geht nicht

4229

wenn funktion zu viele argumente

4199

vba zeilenumbruch

4182

excel dropdown leere zellen ignorieren funktioniert nicht

4158

excel blattschutz filtern erlauben

4142

excel umbruchvorschau ausblenden

4075

excel aktuelles jahr ausgeben

4025

Ordner anlegen lassen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread