Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1784to1788
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
1784to1788
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner erstellen auf Knopfdruck

Ordner erstellen auf Knopfdruck
27.09.2020 05:08:51
Specker
Hallo
Leider kenne ich mich nicht aus mit VB, daher bin ich hier gestrandet.. ;)
Ich bräuchte für mein Warenwirtschaftsprogramm eine Excel Funktion, die mir ganz bestimmte Ordner erstellt, in dem Verzeichnis, in der die Excel Datei liegt.
Ich habe verschiedene Zellen in meiner Vorlage (A1-A20) mit Werten wie „828-001“, „828-002“ etc.
Aus jedem dieser Zellenwerte müsste ein Ordner erstellt werden, der einen Unterordner beinhaltet.
Für die Zelle A1 mit dem Wert "828-001" müsste ein Ordner erstellt werden namens "Artikel828-001".
In diesem Ordner müsste ein weiterer Ordner namens "pics" liegen.
Also von A1 bis A20 stehen zahlen drin wie 828-001. Es müssten also aus diesem Zellen-Bereich die entsprechenden Ordner erstellt werden.
Wenn nur A1 bis A6 mit Werten gesetzt wäre, dürften auch nur 6 Ordner erstellt werden. (Die jeweils den Unterordner "pics" beinhaltet.
Der erste Order muss also quasi einfach nur "Artikel"+"Wert von A1" heißen. Ohne Leerzeichen.
Zweiter Ordner "Artikel"+"Wert von A2" etc.
Also z.b. "Artikel944-007".
Über ein activeX Button müsste die Funktion dann ausgeführt werden können.
Könnt ihr mir helfen das umzusetzen? Ich wäre euch unendlich dankbar.
Gruß - Ben

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

Betreff
Datum
Anwender
Anzeige
AW: Ordner erstellen auf Knopfdruck
27.09.2020 11:21:33
volti
Hallo Ben,
hier noch eine Variante:

Code:


[Cc]
 
Option Explicit

Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
        ByVal lpPath As String) As Long

Sub ErstelleOrdner()
'Sub erstellt Ordner lt. Liste im aktuellen Verzeichnis
 Dim iZeile As Long
 
 With ActiveSheet
   For iZeile = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
     If .Cells(iZeile, "A").Value <> "" Then
        MakeSureDirectoryPathExists ThisWorkbook.Path & "&bsol;Artikel" _
                           & .Cells(iZeile, "A").Value & "&bsol;pics&bsol;"
     End If
   Next iZeile
 End With
 MsgBox "Ordner wurden erstellt!", vbInformation, "Ordner erstellen"

End Sub
 
____________________
viele Grüße aus Freigericht
Karl-Heinz

Anzeige
AW: Ordner erstellen auf Knopfdruck
27.09.2020 19:59:12
Specker
Hi Karl-Heinz
Es funktioniert super!!! Tausend Dank!!! :)
Ich habe lediglich eine kleine Sache ergänz: 
If .Cells(iZeile, "A").Value  "" And iZeile
Ich wollte ja, dass maximal bis Zeile 20 nach Zellwerten gesucht wird. Das habe ich unglücklich ausgedrückt. Genauer gesagt, hatte ich das garnicht formuliert ^^
Wie auch immer, jetzt läufts! Danke nochmal!
Gruß - Ben
-----
@ Armin
Den Code habe ich irgendwie nicht zum laufen gebracht, obwohl ich den Zellwert angepasst hatte.
Trotzdem auch dir danke! :)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige