Const Hauptpfad As String = "N:\Aufträge\Aufträge NL-Nord\"
Public Function Ordnerpfad_rechnungsnummer(Rechnungsnummer As String, Dateiname As String) As String
Dim Ordner1 As String, Ordner2 As String, Ordner3 As String
Ordner1 = Left(Rechnungsnummer, 5) & "xxxx\"
Ordner2 = Mid(Rechnungsnummer, 6, 1) & "xx\"
Ordner3 = Right(Rechnungsnummer, 2)
Ordnerpfad_rechnungsnummer = Hauptpfad & Ordner1 & Ordner2 & Ordner3 & "_" & Dateiname
End Function
Public Sub Test()
MsgBox Ordnerpfad_rechnungsnummer("01157082", "Probe")
End Sub