Ordnerpfadanalyse
02.10.2019 11:03:57
Klaus
nehmen wir mal an ich habe folgenden Pfad:
K:\Test\2500-2599\2588_[Variabel]\Test\Test.xlsm
Wie kann ich die den Wert in der eckigen Klammer auslesen. Folgenden Code habe ich aktuell geschrieben.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
If Target "" Then
'Variablendefinition
PfadA = "K:\TEST\"
PfadB = Mid(Target, 4, 2) & "00-" & Mid(Target, 4, 2) & "99\"
PfadC = "2588_" & [Variabel] '[Variabel] möchte iwie erfassen
PfadD = "\TEST\TEST_" & Target
Ext = ".xlsm"
Gpfad = PfadA & PfadB & PfadC & PfadD & Ext
ActiveWorkbook.FollowHyperlink Gpfad
End IF
End If
End Sub