Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1780to1784
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1780to1784
1780to1784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner per Excel-Liste erstelln

Ordner per Excel-Liste erstelln
11.09.2020 22:09:46
Jaschke
Hallo,
ich möchte gerne via Marko folgendes lösen:
In Spalte A stehen Projektnamen, z.B. A1 "Äpfel"; A2 "Brinen" usw.
Per Marko soll unter C:\Projektordner\ ein leerer Ordner pro Projekt erstellt werden, der nach dem Projektnamen benannt ist, also
C\Projektordner\Äpfel\; C:\Projektordner\Birnen\
Wie ist das lösbar?
Vielen Dank!!
Gruß Jaschke

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner per Excel-Liste erstelln
12.09.2020 00:34:04
fcs
Hallo Jaschke,
hier ein entsprechendes Makro.
LG
Franz 
Sub Projektordner_erstellen()
Dim rng As Range
Dim sBasis As String
Dim sOrdner As String, sVerzeichnis As String
If MsgBox("Jetzt Projektordner anlegen?", vbQuestion + vbOKCancel) = vbCancel Then Exit Sub
sBasis = "C:\Projektordner"
If Dir(sBasis, vbDirectory) = "" Then
MsgBox "Verzeichnis """ & sBasis & """ existiert nicht!", vbOKOnly, _
"Projekt-Ordner erstellen"
Else
sBasis = sBasis & Application.PathSeparator
With ActiveSheet
For Each rng In .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Cells
sOrdner = Trim(rng.Text)
If sOrdner  "" Then
sVerzeichnis = sBasis & sOrdner
If Dir(sVerzeichnis, vbDirectory) = "" Then
VBA.MkDir sVerzeichnis
End If
End If
Next
End With
End If
End Sub

Anzeige
AW: Ordner per Excel-Liste erstelln
12.09.2020 00:36:27
Marc
Hallo Jaschke,
bitteschön:
Private Sub ordner_erstellen()
Dim letzteZeile As Range
Dim leerRange As Range
Dim ordnerName As String
With ThisWorkbook.Worksheets(1)
Set letzteZeile = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp).Rows)
For Each leerRange In letzteZeile
If Not leerRange Is Nothing Then
ordnerName = leerRange.Value
If Dir("C:\Projektordner\" & ordnerName, vbDirectory) = "" Then
MkDir ("C:\Projektordner\" & ordnerName)
Else
End If
Else
End If
Next
End With
End Sub
Gruß Marc

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige