Split Text
21.10.2019 17:59:57
Sigi
ich möchte gerne nachfolgende splitten
Sub Schaltfläche1_Klicken()
Dim sTxt As String, stxt1 As String, sErg As String
sTxt = "Ang_31.10.2019_HA.xlsx"
stxt1 = "Ang_31.10.2019_1.NA.xlsx"
sErg = Mid(sTxt, 5, 10) 'Datum
MsgBox sErg
sErg = Split(Left(sTxt, "_")(2)(Len(sTxt)) - 5) 'sollte HA anzeigen
MsgBox sErg
sErg = Split(Left(stxt1, "_")(2)) - 5 'sollte 1.NA anzeigen
MsgBox sErg
End Sub
Gruß
Sigi