Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Split Text


Betrifft: Split Text von: Sigi
Geschrieben am: 21.10.2019 17:59:57

Hallo,
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
Danke!
Gruß
Sigi

  

Betrifft: AW: Split Text von: Daniel
Geschrieben am: 21.10.2019 18:11:45

HI


sErg = Split(Split(stxt1, "_")(2), ".")(0)

Gruß Daniel


  

Betrifft: AW: Split Text von: Sigi
Geschrieben am: 21.10.2019 18:21:18

Hallo Daniel,

Danke für Deine Unterstützung!

Leider funktioniert das sErg nur für 'HA'
Beim Text stxt1 = "Ang_31.10.2019_1.NA.xlsx" sollte '1.NA' ausgegeben werden.

Gruß
Sigi


  

Betrifft: AW: Split Text von: Daniel
Geschrieben am: 21.10.2019 18:43:07

sorry, hatte ich übersehen, dass du keine einheitlichen Trennzeichen hast.


sErg = split(left(stxt1, instrrev(stxt1, ".") - 1), "_")(2)


  

Betrifft: AW: Split Text von: Piet
Geschrieben am: 21.10.2019 18:25:36

Hallo Sigi

probier es bitte mal so, mit Mid und İnstrRev Funktion. Die İnstrRev Funktion sucht "_" vom Ende des Textes.

mfg Piet

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 = Mid(sTxt, InStrRev(sTxt, "_") + 1, 20) 'sollte HA anzeigen
    MsgBox sErg
        sErg = Mid(stxt1, InStrRev(sTxt, "_") + 1, 20) 'sollte HA anzeigen
    MsgBox sErg
End Sub



  

Betrifft: AW: Split Text von: Sigi
Geschrieben am: 21.10.2019 18:49:18

Hallo,
so funktioniert es super.
Danke!
sTxt = "Ang_31.10.2019_HA.xlsx"
stxt1 = "Ang_31.10.2019_1.NA.xlsx"
sErg = Split(Left(stxt1, InStrRev(stxt1, ".") - 1), "_")(2)
serg ="1.NA"
Gruß
Sigi