kann mir jemand helfen, dass Problem zu lösen?
https://www.herber.de/bbs/user/106828.xlsx
Details dazu stehen in der Datei.
Ich weis nicht wie ich das lösen soll.
Besten Dank im Voraus.
Gruß
Sub OrdnerErstellen()
Dim strFolder As String, rngC As Range
Dim strPath As String
strPath = ThisWorkbook.Path & "\"
For Each rngC In Range(Cells(3, 4), Cells(Rows.Count, 4).End(xlUp))
strFolder = strPath
strFolder = strPath & rngC
If Dir(strFolder, vbDirectory) = "" Then
MkDir strFolder
End If
strFolder = strFolder & "\"
strFolder = strFolder & Format(rngC.Offset(, -2), "YYMMDD")
strFolder = strFolder & Left(rngC, 4)
strFolder = strFolder & rngC.Offset(, -3)
strFolder = strFolder & rngC.Offset(, -1)
If Dir(strFolder, vbDirectory) = "" Then
MkDir strFolder
End If
ActiveSheet.Hyperlinks.Add rngC.Offset(, -3), strFolder
Next rngC
End Sub
Gruß