Code (UserForm)

Sub OrdnerstrukturAnlegen()

'Verweis zu "Microsoft Scripting Runtime" setzen
'Verweis zu "Microsoft Outlook Object Library" setzen
Dim FSO As New FileSystemObject
Dim Pfad As String
Dim i As Long
Dim myolApp As New Outlook.Application

Pfad = "C:UserskaiweDesktop"

'Ordner anlegen
FSO.CreateFolder Pfad & "" & ActiveSheet.Name

For i = 1 To 4

    'Unterordner anlegen
    FSO.CreateFolder Pfad & "" & ActiveSheet.Name & "Ordner " & i
    
    'Hyperlinks einfügen
    ActiveSheet.Hyperlinks.Add anchor:=ActiveCell.Offset(1, i - 1), _
    Address:=Pfad & "" & ActiveSheet.Name & "Ordner " & i, TextToDisplay:="Ordner " & i

Next i

'Ordner in Outlook anlegen
myolApp.GetNamespace("MAPI").Folders("kaiweissmann@outlook.de").Folders("Inbox").Folders.Add ActiveSheet.Name

'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub