Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Schleife um Ordner zu erstellen
zurück: untereinander kopieren funktioniert nicht? weiter: Format der Zelle bei Inputbox ? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Crown Sapher
Excel-Ensteiger


Verfasst am:
22. Jan 2013, 12:07
Rufname:
Wohnort: Am schönen linken Niederrhein

Schleife um Ordner zu erstellen - Schleife um Ordner zu erstellen

Nach oben
       Version: Office 2010

Hallo zusammen,

ich habe folgenden Code um einen ordner zu erstellen:

Code:
Sub erstellen2()
    Dim Ord As String
 
    Ord = Sheets("Gruppen").Range("H2")
 
    If Dir(Ord, vbDirectory) <> "" Then
          Exit Sub
    Else
          MkDir Ord
          Exit Sub
    End If
End Sub


Dieser funktioniert auch einwandfrei (in H2 steht der Pfad). Ich möchte nun allerdings eine Schleife aufbauen, die als nächstes den Ordner erstellt zu dem der Pfad in H3 steht. Dann H4 usw. ... das ganze natürlich so lange bis H* = leer

Ich bedanke mich schonmal für Lösungsvorschläge Smile

LG
Crown

_________________
Living is easy with eyes closed!
Gast



Verfasst am:
22. Jan 2013, 12:20
Rufname:


AW: Schleife um Ordner zu erstellen - AW: Schleife um Ordner zu erstellen

Nach oben
       Version: Office 2010

ungetestet:

Sub erstellen2()
Dim Ord As String
dim i as integer
dim ende als boolean

ende=false
i=1

do until ende=true
i=i+1
if Range(8,i)="" then
ende=true
endif
else
Ord = Sheets("Gruppen").Range(8,i)

If Dir(Ord, vbDirectory) <> "" Then
Exit Sub
Else
MkDir Ord
Exit Sub
End If
loop
End Sub
Crown Sapher
Excel-Ensteiger


Verfasst am:
22. Jan 2013, 12:45
Rufname:
Wohnort: Am schönen linken Niederrhein

AW: Schleife um Ordner zu erstellen - AW: Schleife um Ordner zu erstellen

Nach oben
       Version: Office 2010

Funktioniert leider nicht:

Sub erstellen2()
Dim Ord As String
Dim i As Integer
Dim ende as boolean

ende = False
i = 1

Do Until ende = True
i = i + 1
If Range(8, i) = "" Then
ende = True
End If
Else
Ord = Sheets("Gruppen").Range(8, i)

If Dir(Ord, vbDirectory) <> "" Then
Exit Sub
Else
MkDir Ord
Exit Sub
End If
Loop
End Sub

Bei dem Else sagt er mir "Fehler beim Kompilieren. Else ohne If"

Entferne ich das Else kommt folgende Fehlermeldung:
Zitat:
Laufzeitfehler '1004': Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen
und er markiert mir If Range(8, i) = "" Then

LG
Crown

_________________
Living is easy with eyes closed!
Gast



Verfasst am:
23. Jan 2013, 09:16
Rufname:

AW: Schleife um Ordner zu erstellen - AW: Schleife um Ordner zu erstellen

Nach oben
       Version: Office 2010

vor dem "loop" fehlt ein "end if"
Crown Sapher
Excel-Ensteiger


Verfasst am:
23. Jan 2013, 11:27
Rufname:
Wohnort: Am schönen linken Niederrhein

AW: Schleife um Ordner zu erstellen - AW: Schleife um Ordner zu erstellen

Nach oben
       Version: Office 2010

Funktioniert leider noch nicht.

Lasse ich den Code wie er ist und schreibe vor dem Loop noch ein "End If" sagt er mir weiterhin "Else ohne If". Entferne ich das Else sagt er mir "End If ohne If-Block" und markiert mir das neu eingefügte "End If" direkt wieder.

Kannst du den Code sonst noch einmal komplett posten?

Danke schonmal für die Unterstützung.

Gruß
Crown

_________________
Living is easy with eyes closed!
Crown Sapher
Excel-Ensteiger


Verfasst am:
23. Jan 2013, 11:27
Rufname:
Wohnort: Am schönen linken Niederrhein


AW: Schleife um Ordner zu erstellen - AW: Schleife um Ordner zu erstellen

Nach oben
       Version: Office 2010

Funktioniert leider noch nicht.

Lasse ich den Code wie er ist und schreibe vor dem Loop noch ein "End If" sagt er mir weiterhin "Else ohne If". Entferne ich das Else sagt er mir "End If ohne If-Block" und markiert mir das neu eingefügte "End If" direkt wieder.

Kannst du den Code sonst noch einmal komplett posten?

Danke schonmal für die Unterstützung.

Gruß
Crown

_________________
Living is easy with eyes closed!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Rechnung mit Datenblatt erstellen 5 AnnaM 1860 29. Jan 2007, 00:06
AnnaM Rechnung mit Datenblatt erstellen
Keine neuen Beiträge Excel Formeln: Größenspiegel erstellen mit Analyse-Funktion 5 schuhbo 1622 27. Jan 2007, 20:07
< Peter > Größenspiegel erstellen mit Analyse-Funktion
Keine neuen Beiträge Excel Formeln: Aus Matrix eindeutige Werteliste erstellen 4 maninweb 4063 12. Dez 2006, 18:42
maninweb Aus Matrix eindeutige Werteliste erstellen
Keine neuen Beiträge Excel Formeln: Erstellen von Tabellen 4 uweboellert 1563 08. Nov 2006, 20:20
< Peter > Erstellen von Tabellen
Keine neuen Beiträge Excel Formeln: Spielplan Erstellen (Für FIfa) 2 Sven_1987 16842 01. Nov 2006, 23:55
Gast Spielplan Erstellen (Für FIfa)
Keine neuen Beiträge Excel Formeln: Per Formel neues Tabellenblatt erstellen? 3 scorpion23 2574 16. Okt 2006, 18:28
scorpion23 Per Formel neues Tabellenblatt erstellen?
Keine neuen Beiträge Excel Formeln: Auswahlliste erstellen und integrieren 9 fraga 4576 31. Jul 2006, 13:02
fraga Auswahlliste erstellen und integrieren
Keine neuen Beiträge Excel Formeln: excel neuling versucht musik archiv zu erstellen 0 DamonHell 3465 19. Jun 2006, 05:12
DamonHell excel neuling versucht musik archiv zu erstellen
Keine neuen Beiträge Excel Formeln: Diagramm erstellen - Werte zusammenfassen 5 omega 2801 17. Mai 2006, 17:25
omega Diagramm erstellen - Werte zusammenfassen
Keine neuen Beiträge Excel Formeln: Aus einer Rangliste eine geordnete rangliste erstellen 7 Tutzi76 16793 21. März 2006, 17:08
ae Aus einer Rangliste eine geordnete rangliste erstellen
Keine neuen Beiträge Excel Formeln: Formular in Excel erstellen 2 Pebbles 11691 10. März 2006, 13:49
Gast Formular in Excel erstellen
Keine neuen Beiträge Excel Formeln: Einsatz-Statistik erstellen 5 Calmundo 4794 07. Dez 2005, 23:45
Calmundo Einsatz-Statistik erstellen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS