Clever-Excel-Forum

Hallo zusammen,
dürfte ich mal wieder Eure werte Hilfe in Anspruch nehmen?

Sicher für Euch ein einfaches Thema.

Ich möchte bei einem String alles von rechts bis einschließlich des zweiten Leerzeichens abschneiden und mit dem linken Teil dann weiterarbeiten.
die Strings können z.B. wie folgt aufgebaut sein:

BBBBBBAAAAAXXXXX BA 2 (MS) 739,2 kWp ...... Ergebnis so: BBBBBBAAAAAXXXXX BA 2 (MS)

AAAXXXXCCCCZZZ LLLLLNNN 3 (MS)- WR 27-39 1,06 MWp ...... Ergebnis so: AAAXXXXCCCCZZZ LLLLLNNN 3 (MS)- WR 27-39

LLLLLNNNNN PVA 1 143,22 kWp ...... Ergebnis so: LLLLLNNNNN PVA 1

Ich habe da schon etwas probiert das mir aber sehr umständlich erscheint.

Code:
            Z = InStrRev(.Range("C" & sCell.Row - 2), " ")

            If Z > 0 Then

              Test1 = Trim(Mid(.Range("C" & sCell.Row - 2), Z + 0))

              Test1 = Trim(Left(.Range("C" & sCell.Row - 2), Z - 1))

              .Range("C" & sCell.Row - 2) = Test1

              Z = InStrRev(.Range("C" & sCell.Row - 2), " ")

              Test1 = Trim(Mid(.Range("C" & sCell.Row - 2), Z + 0))

              Test1 = Trim(Left(.Range("C" & sCell.Row - 2), Z + 4))

              .Range("C" & sCell.Row - 2) = Test1

            End If

Ginge das auch einfacher bzw. in einem Rutsch, dass ab dem vorletzten Leerzeichen im String alles in die Tonne soll und nur der Rest übrig bleibt?

Vielleicht kann mir jemand einen Tipp geben?

Hallo,

unter "schöne" Programmierung fällt das nicht:

Code:
Sub F_en()

Cells(1, 1) = "A 1 2 3 4 5"

dim Tx

Tx = split(cells(1, 1))

ReDim preserve Tx(ubound(Tx)-2)

debug.print join(Tx)

end sub

mfg

(getestet, aber abgetippt)

Hallo Fennek,
vielen Dank für Dein Beispiel!

Mit Deinem Zahlenbeispiel funktioniert das bestens.

Leider aber nicht mit meinen o.g. Beispielen.

Wenn ich z.B. diesen String "BEESENLAUBLINGEN BA 1-1 (MS) 478,8 kWp" einsetze, dann kommt folgendes zurück:
BEESENLAUBLINGEN BA 1-1" es fehlt aber hier dieser Teil "(MS)".

Ich würde also dieses Ergebnis erwarten: "BEESENLAUBLINGEN BA 1-1 (MS)"

Woran kann dies jetzt noch liegen?

das Zeichen nach "(MS)" ist das geschützte Leerzeichen 160.

Zitat:BBBBBBAAAAAXXXXX BA 2 (MS) 739,2 kWp

Hallo,

weitere Variante mit Bereinigung des Zeichens 160:

Sub aaa()

  Dim strQ As String, strS As String, strZ As String

  

  strS = Chr(32)

  strQ = Replace(ActiveCell.Value, Chr(160), strS)

  strZ = Left(strQ, InStrRev(Left(strQ, InStrRev(strQ, strS) - 1), strS) - 1)

  Debug.Print strZ

End Sub

Gruß Uwe

Guten Morgen Uwe,

das passt jetzt prima!

Super und vielen Dank für Deine Mühe.

sharky51

Fennek

sharky51

Fennek

Kuwer

sharky51