Office: Ordner mit Klick auf Button erstellen

Excelmann · 5. August 2015

Hallo, ich habe volgendes Anliegen:
In Spalte A sind Zahlen 01,02,usw., und in Spalte B sind Einträge als Texte.
Nun möchte ich mit einem klick auf einen Button dass er mir Ordner folgendermaßen erstellt:

1. Pro Zeile ein Ordner
2. Mit dem Ordnernamen aus Spalte A und B mit einem Leerzeichen dazwischen Beispiel: "01 Text"
3. Die Ordner sollen in einem Pfad enstehen der in Zelle D1 steht

Ich habe keine Ahnung von Programmierung, ich bekomme aber meistens hin Code mit Buttons verknüpfen.

Ich bitte um Hilfe, und Vielen Dank im Voraus*Smilie

:)

RPP63 · 7. August 2015

Hallo!

ich bekomme aber meistens hin Code mit Buttons verknüpfen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist ja bereits die halbe Miete! *mrcool
Du musst mittels Dir() prüfen ob das Verzeichnis bereits existiert,
wenn nicht, dann per MkDir() erstellen.
Vielleicht kannst Du dieses Makro ja auf Deine Belange anpassen:
Code:

Sub VerzeichnisPruefen()
Dim Pfad As String, Suche As String, Erfolg As String
Pfad = ThisWorkbook.Path
Suche = Pfad & "\Rechnungen"
Erfolg = "Rechnungen"
If Dir(Suche, vbDirectory) = Erfolg Then
Exit Sub
Else
On Error GoTo VerzeichniserstellungErfolglos
MkDir Suche
Exit Sub
VerzeichniserstellungErfolglos:
MsgBox "Das Unterverzeichnis Rechnungen konnte nicht angelegt werden!" & vbCrLf & _
"Bitte unbedingt manuell nachholen," & vbCrLf & _
"sonst funktioniert das Programm nicht!", _
vbCritical, "Fehlendes Verzeichnis"
MsgBox "Diese Datei wird jetzt geschlossen!", vbInformation, _
"Sicherheitsmaßnahme"
ThisWorkbook.Save
ThisWorkbook.Close
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ralf

Excelmann · 7. August 2015

Danke für den Code. Da ich keine Ahnung habe was der code macht, habe ich nach probieren folgenden Fehler erhalten:
http://www.ms-office-forum.net/forum...1&d=1438946782

Ich weis nicht wie das gehen soll mit dem Anpassen

RPP63 · 7. August 2015

Hallo!
Das erfüllt ja den Straftatbestand der Vergewaltigung. *tongue.gif*
Ich schlage vor, dass Du mal eine Datei hochlädst, anhand derer man Deine Intention erkennen kann.
Wo genau soll gespeichert werden?
Wie lautet also der komplette Pfad?
Den Rest habe ich wohl verstanden.
(das FileSystemObject kann man nehmen, hier dürften aber die (uralten) DOS-Befehle das Gleiche bewirken)

Gruß Ralf

Kimba06 · 7. August 2015

Hallo Excelmann,
versuch es mal so: Code:

Sub Makro1()
'
' Makro1 Makro
'

'
a = 1
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

For a = 1 To letztezeile
Pfadname = Cells(1, 4) & "\" & Cells(a, 1) & " " & Cells(a, 2)
With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists(.GetParentFolderName(Cells(1, 4))) _
Then CreateFolder.GetParentFolderName (Cells(1, 4))
If Not .FolderExists(Pfadname) Then .CreateFolder Pfadname
End With

Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruss Achim

Excelmann · 7. August 2015

Soo, hier ist die Datei.
Ich komme da alleine nicht weiter. Es wäre auch schön eine Eingabemaske zu haben wo man nach drücken den Buttons einstellen kann wo gespeichert werden soll.
Ich habe da mit codes rumprobiert aber das haut bei mir und mit meinem Wissen nicht hin. Beim Programmieren bin ich nicht der hellste.*upps *boah
Ich danke sehr wenn das jemand fixen kann.

Kimba06 · 7. August 2015

Hallo,
in #1 schreibst Du noch das der Pfad in D1 steht!?
Was den nun? Vielleicht solltest Du Dir erst mal im klaren sein was Du willst, bevor sich andere Arbeit for nothing machen.
Gruss Achim

Excelmann · 7. August 2015

Ooohhh ja entschuldige das hatte ich bei der probiererei aus den Augen verlohren. *boah
Das mit dem Pfad in D1 ist schon richtig

@Kimba06 dein Script funtzt wunderbar. Vielen vielen Dank!!!

HS(V) · 7. August 2015

Trotz gelöst.
Code:

Sub hsv()
Dim sn As Variant, i As Long
sn = Cells(1).CurrentRegion
For i = 1 To UBound(sn)
CreateObject("shell.application").Namespace(cells(1,4).value)NewFolder sn(i, 1) & " " & sn(i, 2)
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Z.B. in Zelle D1:
C:\users\hsv\documents

Office: Ordner mit Klick auf Button erstellen

Ordner mit Klick auf Button erstellen

Ordner mit Klick auf Button erstellen

Ordner mit Klick auf Button erstellen

Ordner mit Klick auf Button erstellen

Ordner mit Klick auf Button erstellen - Similar Threads - Ordner Klick Button

Outlook - Ordner gesendete Elemente wechseln

Öffentlicher Ordner Kontakte aktualisieren

Nach einer Datei suchen in mehreren Ordnern?

Ordner: Synchronisierungsprobleme

Datei in mehreren Ordnern suchen und wenn gefunden öffnen?! Macro / VBA

Outlook 2019: Schriftart der Ordner/Posteingang ändern

Wenn Sie in Word auf einen Link zu einem Google Drive-Ordner klicken, gibt Ihr Webbrowser eine ...