Autmatisch Ordner erstellen

[Mase]

Anstelle:

Code:

wsh.Run """" & folderName & """"

Zusammengefasst also so:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    Dim pNr As String
    Dim pName As String
    Dim pbzl As String
    Dim folderName As String
  
    If Target.Column < 3 Then
        pNr = Me.Cells(Target.Row, "C").Text
        pName = Me.Cells(Target.Row, "D").Text
      
        folderName = basisPfad & UCase(Left(pbzl, 2)) & "\" & pNr & " " & pName & "\"
        Shell "Explorer.exe " & folderName, vbNormalFocus
    End If
End Sub