Ordner anhand Zellinhalt erstellen VBA

[kingkong]

Hallo an Euch,

In Zelle C33 habe ich ein Jahr stehen und in Zelle E33 einen Monat.
Nun würde ich gerne bei Klick unter den darunter liegenden Buttons Ordner erstellen.

Habe auch etwas gefunden im Netz, auf meine Ordnerstruktur angepasst was auch soweit gut funktioniert aber sich leider auf das datum von heute bezieht.

Vielleicht könnt Ihr mir helfen die Werte für die Ordner aus den genannten Zelle zu nehmen.


Code für Jahresordner wäre dieser

Code:

Sub Jahresordneranlegen()
'
' Jahresordneranlegen
'

'
    Dim FSO As New FileSystemObject
    Dim Pfad As String

        Pfad = "D:\Produktionslaufwerk\Archiv"

        FSO.CreateFolder Pfad & "\" & Format(Now(), "YYYY")

End Sub

Code für Monatsordner wäre dieser

Code:

Sub Monatsordneranlegen()
'
' Monatsordneranlegen
'

'
    Dim FSO As New FileSystemObject
    Dim Pfad As String

        Pfad = "D:\Produktionslaufwerk\Archiv"

        FSO.CreateFolder Pfad & "\" & Format(Now(), "YYYY") & "\" & Format(Now(), "M MMMM")

End Sub

da diese zwei Codes einwandfrei funktionieren für das aktuelle Datum ärgert mich, das ich den Ordner für das nächste Jahr/Monat im alten Jahr/Monat anlegen muss.


Für Hilfe von Euch bin ich wie immer sehr dankbar.


mein Versuch war dieser 

Code:

Sub TestMonatsordneranlegen()
'
' TestMonatsordneranlegen
'

'
    Dim FSO As New FileSystemObject
    Dim Pfad As String

        Pfad = "D:\Produktionslaufwerk\Archiv"

        FSO.CreateFolder Pfad & "\" & Format(Now(), "YYYY") & "\" & Range("C33")
       
End Sub

Gruß
Euer Affe

[Kuwer]

Hallo,

Code:

FSO.CreateFolder Pfad & "\" & Range("C33").Value

Gruß Uwe

[kingkong]

Danke dir wird sofort probiert.

[kingkong]

Danke kuwer 

hättest du auch eine Idee wie ich beim Monat den Ordnername des Jahres anspreche. welches in C33 steht.

[Kuwer]

Hallo,

Du schriebst doch, dass in C33 das Jahr steht. Zum Helfen wäre es aber auch von Vorteil, zu wissen, was genau in den Zellen steht.

Gruß Uwe

[kingkong]

steht es ja auch, also dieses Problem ist gelöst Kuwer 

Code:

Sub Jahresordneranlegen()
'
' Jahresordneranlegen
'

'
    Dim FSO As New FileSystemObject
    Dim Pfad As String

        Pfad = "D:\Produktionslaufwerk\Archiv"

        FSO.CreateFolder Pfad & "\" & Range("C33").Value

End Sub

Sub Monatsordneranlegen()
'
' Monatsordneranlegen
'

'
    Dim FSO As New FileSystemObject
    Dim Pfad As String

        Pfad = "D:\Produktionslaufwerk\Archiv"

        FSO.CreateFolder Pfad & "\" & Range("C33").Value & "\" & Range("C36").Value

End Sub

mein neues Problem ist das ich genau diesen ordner ansprechen möchte bei diesem Makro

Code:

ActiveWorkbook.SaveAs ("D:\ " & Format(Now(), "DD.MM.YYYY") & ".xlsm")

---

funktioniert nicht wirklich

Code:

Dim Fso As NewFile
    Dim Pfad As String
   
        Pfad = "D:\Produktionslaufwerk\Archiv"
        ActiveWorkbook.SaveAs "\" & Range("C33").Value & "\" & Range("C36").Value & Format(Now(), "DD.MM.YYYY") & ".xlsm"))

[derHoepp]

Hi,

das ist nicht böse gemeint, aber hast du überhaupt versucht den Code nachzuvollziehen? Die Transferleitung ist da nicht die schwerste. Oder suchst du eigentlich einen Auftragsprogrammierer?

Viele Grüße
derHöpp

[schauan]

Hallöchen,

mal ohne Auftrag eine fachliche Antwort.

Schaue mal, was Du übersehen hast. Da fehlt irgendwo
Pfad &
und eine Datei trennt man auch mit einem Backslash vom Pfad ..

[kingkong]

@der Hoepp

ich suche keinen Auftragsprogrammierer ich möchte nur lernen und auch verstehen was ich zusammen gegooglet habe, anpasse so wie ich denke es funktz, nach mit mein nach einem Jahr immer noch wenigen Kenntnissen in Vba wie ich finde.

ich möchte nur Tips oder Anregungen für die Umsetzung da man nur so lernt, keine fertigen Makros und mal so ne Hilfestellung wie es schauan getan hat, war eigentlich sehr hilfreich und schließt weitere solche Fehler hoffe ich aus.

dachte eigentlich dafür ist ein Forum für Anregung Tipps und Hilfe.

achso und ich hab es hinbekommen 


Danke schauan

[Kuwer]

ich möchte nur Tips oder Anregungen ...

Das beruht aber auf Gegenseitigkeit. Siehe #5.  

Gruß Uwe