Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aus Excel Spalten Ordner in Win erstellen

Forumthread: Aus Excel Spalten Ordner in Win erstellen

Aus Excel Spalten Ordner in Win erstellen
15.05.2018 11:11:15
Maris
Hallo Leute,
kann mir jemand bitte mit einem Makro weiterhelfen. Ich habe eine lange Excelliste und bräuchte für jeden Eintrag ein Ordner in Windows:
Es geht um die Spalten A & B. Aus diesen soll ein Ordnername generiert werden.
"Wert aus Spalte A" - "Wert aus Spalte B"
Speicherort steht in C1 und ist fix.
Kann mir da jemand rasch helfen?
Gruß
Maris
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aus Excel Spalten Ordner in Win erstellen
15.05.2018 11:13:54
Hajo_Zi
Hallo Maris,
es soll nur ein Ordner erstellt werden.
benutze MkDir und das Archiv.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: Aus Excel Spalten Ordner in Win erstellen
15.05.2018 11:22:46
Maris
Nein. Es soll für jede Zeile ein Ordner erstellt werden bis keine Werte mehr in den Zeilen stehen.
Gruß
Maris
Anzeige
AW: Aus Excel Spalten Ordner in Win erstellen
15.05.2018 11:26:33
Maris
Hab jetzt diesen Makro gefunden. Jetzt müßte er nur noch spalte B einbeziehen :-)!
Sub OrdnerAnlegen()
Dim lngI As Long
' Ordner Ablage muss vorhanden sein !!!
For lngI = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
MkDir "C:\test\" & ActiveSheet.Cells(lngI, 1).Text
Next lngI
End Sub

Anzeige
AW: Aus Excel Spalten Ordner in Win erstellen
15.05.2018 11:56:58
Maris
Spalte B wäre garnicht mehr nötig. Ich habe eine Verketten Funktion in A geschrieben. Aber nun kommt mit dem o.g Makro ein Laufzeitfehler. Kann jemand helfen?
Gruß
Maris
evtl. ungültiger Ordnername?
15.05.2018 12:16:14
Rudi
Hallo,
und existiert c:\test\ bereits?
Gruß
Rudi
AW: evtl. ungültiger Ordnername?
15.05.2018 12:16:59
Maris
Ja der existiert. Es werden auch ca 80 der Ordner geschrieben. Aber nicht alle. An was kann das liegen?
Anzeige
AW: evtl. ungültiger Ordnername?
15.05.2018 12:18:18
Maris
Laufzeitfehler 76 - Pfad nicht gefunden!
AW: evtl. ungültiger Ordnername?
15.05.2018 12:33:05
Maris
Bei diesem Makro der selbe Fehler...
Sub ordner_pruefen_und_anlegen()
Dim sVerz As String
Dim strname As String
For i = 1 To 71
strname = Cells(i, 1)
sVerz = Dir("C:\Test\" & strname, 16)
If sVerz = "" Then MkDir "C:\Test\" & strname
Next i
End Sub
Versteht das jemand?
Anzeige
AW: evtl. ungültiger Ordnername?
15.05.2018 12:37:40
Rudi
Hallo,
es stellt sich die Frage, was in strName steht.
Gruß
Rudi
AW: evtl. ungültiger Ordnername?
15.05.2018 12:42:39
Maris
Diese Werte (hier ein Auszug)
MP200189
MP200193
MP200194
MP200285
MP200334
MP200336
MP200338
MP200466
MP220000
MP220001
MP220002
MP220003
MP220004
MP220005
MP220006
MP220007
MP240025
MP240033
MP320067
MP320068
MP320069
MP320070
MP320072
MP610040
Anzeige
das nütz nix! owT
15.05.2018 12:47:47
Rudi
AW: das nütz nix! owT
15.05.2018 13:34:44
Maris
Könnte vielleicht jemand konkreter werden? Wo soll ich nachschauen?
AW: das nütz nix! owT
15.05.2018 13:39:49
Maris
Das komische ist ab Zeile 56 hört der Code einfach auf Verzeichnisse zu schreiben. Habe ich nur die alphanumerischen Werte (also nicht die Verkettenformel=(A1,"-";B1) in A1 stehen. Werden alle Verzeichnisse erstellt.
Anzeige
Ordner aus Zellinhalten erstellen
15.05.2018 15:09:15
fcs
Hallo Maris,
die Formel 
=VERKETTEN(A1;"-";B1)
in Zelle A1 funktioniert nicht, denn es gibt einen Zirkelbeziug.
Es ist ja auch kein Problem die Zellinhalte im Makro zu verketten.
Grundsätzlich dürfen einige Zeichen wie: * ? : &lt &gt etc. in den Zellen aus denen der Ordnername zusammengesetzt wird nicht vorkommen. Ebenso Zeichen \
Nachfolgend dein Makro angepasst und erweitert um Fehlerbehandlung.
Gruß
Franz 
Sub OrdnerAnlegen()
Dim Zeile As Long, wks As Worksheet, strOrdner As String, strBasisOrdner As String
' Ordner in Zelle C1 muss vorhanden sein !!!
On Error GoTo Fehler
Set wks = ActiveSheet
With wks
strBasisOrdner = .Range("C1").Text
If Right(strBasisOrdner, 1)  "\" Then strBasisOrdner = strBasisOrdner & "\"
For Zeile = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
strOrdner = strBasisOrdner & .Cells(Zeile, 1).Text & "-" & .Cells(Zeile, 2).Text
MkDir strOrdner
Next_Zeile:
Next Zeile
End With
Fehler:
With Err
Select Case .Number
Case 0
Case 52, 76  'Dateiname oder -Nummer falsch / Pfad nicht gefunden
If MsgBox("Zeile:  " & Zeile & vbLf _
& "Ordnername: " & strOrdner & vbLf _
& "Fehler-Nr.: " & .Number & vbLf _
& .Description & vbLf & vbLf _
& "Nächste Zeile abarbeiten?", _
vbOKCancel + vbQuestion, "Fehler Makro: OrdnerAnlegen") = vbOK Then
Resume Next_Zeile
End If
Case 75 'Fehler bei Zugriff auf Datei (Ordner schon vorhanden)
Resume Next_Zeile
Case Else
MsgBox "Zeile:  " & Zeile & vbLf _
& "Ordnername: " & strOrdner & vbLf _
& "Fehler-Nr.: " & .Number & vbLf & .Description, _
vbOKOnly, "Fehler Makro: OrdnerAnlegen"
End Select
End With
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Datein aus Ordner in Listbox
Markus

Hallo,
brauch wieder mal eure Hilfe.
Möchte über ein UserForm nach bestimmte Dateien eines Ordners inkl. Unterordner suchen.
Button: Ordner wählen öffnet Msg Box such dort mein Ordner aus klappt schon.
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDispla...
30.09.2008 12:45:47
Thread-ID: 1013354
2 Beiträge
Dateinamen-Übertrag aus Verzeichnis in Excelspalte
Joerschi

Hallo liebe Excel-Freunde,
folgendes Excel-Problem kann ich nicht lösen:
ich möchte aus einem beliebigen Verzeichnis auf meiner Festplatte die vollständigen Namen aller darin enthaltenen Dateien in eine Excel-Tabelle übertragen. Die Sortierung sollte dabei alphabetisch/nummerisch aufste...
10.10.2008 14:46:00
Thread-ID: 1015594
9 Beiträge
Dateinamen aus Zelle mit Bedingung
Daniel

Hallo Leute,
ich brauche mal wieder Eure Hilfe:
Mit dem folgenden Makro (hier aus dem Forum) bilde ich den Dateinamen aus dem Zellinhalt; das klappt soweit ganz gut:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True Application.EnableEvent...
18.12.2008 14:02:47
Thread-ID: 1033865
3 Beiträge
Auslesen Ordnerinhalte
Thomas

Hallo zusammen,
ich habe folgendes Problem und bitte um Hilfe.
Ich will eine Datei erstellen die Ordnerinhalte wiedergeben soll.
Beispiel:
Es gibt einen Datei-Ordner "Kunden", der beinhaltet weitere Ordner die nach Städten sortiert sind. In den Städteordnern befinden sich Exceld...
19.12.2008 22:25:05
Thread-ID: 1034294
21 Beiträge
Dateien aus Unterverzeichnissen auslesen
Michael

Hallo zusammen,
ich habe ein Verzeichnis mit mehreren Unterverzeichnissen und möchte alle Dateien inkl. der Filestruktur ausgelesen bekommen. Habt ihr sowas schon mal gesehen?
Viele Grüße
Michael
05.02.2009 18:28:00
Thread-ID: 1047464
4 Beiträge
Anzeige
Dateinamen auslesen (aus Ordnernamen in Spalte)
Tobias

Dieses Script sollte eine Dateiliste erstellen, wenn der Ordner- bzw. Verzeichnisname in der Spalte A steht.
Quelle: https://www.herber.de/mailing/072499h.htm
Ich bekomme aber Laufzeitfehler 445. Objekt unterstützt diese Aktion nicht.
Woran kann das liegen? Benutze Excel 2007
08.02.2009 21:31:46
Thread-ID: 1048494
6 Beiträge
Worddateien in Ordner auslesen
Dirk

Hallo Excelgemeinde!
Ich brauche eure Hilfe!!!!
Ich habe folgendes Problem:
Ich muß bestimmte Daten aus allen vorhandenen Word Dokumenten in einem Verzeichnis (inkl. Unterverzeichnisse) auslesen. Ich habe bereits eine Exceldatei mit der ich eine Worddatei in einem Verzeichnis auswäh...
14.03.2009 19:39:18
Thread-ID: 1060243
7 Beiträge
Umbenennen von Windows-Ordnern aus VBA
Windows-Ordnern

Hallo!
Ich habe ein Problem mit umbenennen von Windows-Ordnern aus VBA.
In einem Ordner befinden sich viele Vorlagen-Ordner z.B Vorlage1, Vorlage2 usw.
Wie kann man immer den ersten (alphabetisch) Vorlage-Ordner zur Laufzeit umbenennen.
Da ich ja den vollen Ordnernamen vorher ni...
07.04.2009 13:21:31
Thread-ID: 1067383
8 Beiträge
Dateinamen aus .rar auslesen
Jochen

Hallo zusammen,
in den letzten Tagen habe ich mein Archiv an Anleitungen etc. mal gepackt und zwar alphabetisch (also ein Archiv "A.rar", eins "B.rar" ...) Was ich vorher nicht bedacht hatte: Ohne Inhaltsverzeichnis, weiß ich nicht, ob ich z.B. die ISBN-FAQ unter "T" Telefon oder unter "I"...
18.04.2009 11:53:30
Thread-ID: 1069463
3 Beiträge
Anzeige
Excel Dateien aus Ordner auslesen (Fragebogen)
Bene

Hallo zusammen!
Ich schreibe momentan an meiner Diplomarbeit und brauche in dem Zusammenhang unbedingt eure Unterstützung in Sachen VBA-Programmierung.
Ich habe nicht wirklich Ahnung von VBA und bastel jetzt schon seit einer ganzen Weile an meinem Problem herum. Im Forum konnte ich lei...
05.08.2009 11:36:40
Thread-ID: 1093693
6 Beiträge
Anzeige
Ordner auswählen und dateinamen in listbox eintrag
Thomas

Hallo VBAler
Besteht die Möglichkeit über einen Button den Ordnerdialog aufzurufen, einen Ordner auswählen und anschließend die Dateinamen in diesem Ordner in eine Listbox einzutragen.
Ziel ist es dann in der Listbox einen Eintrag auszuwählen und über einen weiteren Button diese Dateie...
03.12.2009 14:06:51
Thread-ID: 1121529
2 Beiträge
Dateinamen+Pfade auslesen und in neues Tabellenbl.
Helmut

hallo liebe vba'ler,
ich habe schon im online-archiv nachgesehen, aber nichts genau passendes für mein "problem" gefunden, obwohl das thema oft behandelt wurde.
ich möchte aus einem verzeichnis, auch aus einer partition (also z.b. komplettes laufwerk c:), alle dateien mit einer bestimmt...
16.03.2010 10:20:46
Thread-ID: 1146119
13 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige