Hallo Helmut,
es ist eigentlich egal, ob du den Backslash zwischen Pfad und Dateiname in den Pfad einbaust oder das wie in deinem Beispiel machst.
Aber bei deinem Beispielcode fehlt im Pfad das s nach User (siehe funktionieren Code):
strpfadname = "C:\Users\fingerh\Desktop"
Schau mal, ob das Makro dann funktioniert.
Als ich das gerade schreibe, denke ich: Lies doch noch mal die Frage durch. Und siehe da, ich glaube ich habe den Fehler im Makro gefunden.
In deiner Frage ist der Pfad wie folgt vorgegeben:
Workbooks.Open Filename: = "G:\Gruppe 02\Meister\2019\Grp 2 KW 1 fertig. xlsm"
Durch den Code wird der Pfad aber wie folgt erstellt:
Workbooks.Open Filename: = "G:\Gruppe 2\Meister\2019\Grp 2 KW 1 fertig. xlsm"
Hier fehlt die Null bei der Gruppe im Pfad. Versuch mal den folgenden Code:
Sub test1()
Dim strDateiname As String
Dim varGruppe As Variant
'Inhalt der aktiven Zelle wird geteilt; Teiler = -
varGruppe = Split(ActiveCell.Value, "-")
'Dateiname wird zusammengesetzt
If CLng(varGruppe(0)) < 9 Then
strDateiname = "G:\Fertigung\Abrechnung\Gruppe 0" & varGruppe(0) & "\Meister\2019\Grp " & varGruppe(0) & " KW " & varGruppe(1) & " fertig.xlsm"
Else
strDateiname = "G:\Fertigung\Abrechnung\Gruppe " & varGruppe(0) & "\Meister\2019\Grp " & varGruppe(0) & " KW " & varGruppe(1) & " fertig.xlsm"
End If
Workbooks.Open strDateiname
End Sub
Gruß
M.O.