Hallo zusammen,

habe hier viel gefunden was mir weiterhilft doch leider nicht alles. Möchte mit einer Schleife überprüfen ob eine Ordner vorhanden ist und wenn nicht einen anlegen lassen. Klappt auch alles soweit. Leider wird der Zelleninhalt nicht übernommen. Hoffe ihr könnt mir helfen.

Zelleninhalt is 2017-01

Sub Ordner_anlegen()

' Prüfen ob Ordner bereits existiert und wenn nicht fragen
' ob er angelegt werden soll

Dim Test
Dim Ordner As String
Dim Antwort As Integer

Worksheets("Versuchsübersicht").Activate

For Test = 4 To 50 Step 1

Cells(Test, 1).Select
Selection.UnMerge

Ordner = "C:\Users\Sebastian\Desktop\Versuch\& Selection.Name"