Mehrere Texte gleich trennen

[winkla10]

Hey,

ich bekomme vom Kunden immer eine bestimmte Liste geschickt, die ich manuell trennen muss.
Die Beispieldatei ist das original und ich brauch es so abgeändert:
EMCU 163 899-6

EGSU 918 353-1

EISU 931 282-2

EMCU 838 736-2

EGHU 938 964-2
EGHU 938 964-2

FFAU 167 388-4
FFAU 167 388-4
FFAU 167 388-4
FFAU 167 388-4
FFAU 167 388-4

Sprich "TTTT ZZ ZZZ-Z"

Wie kann ich Zellen markieren und gleichzeitig abändern ohne alles einzeln anzuklicken?

[HKindler]

Hi,

=LINKS(A3;4)&TEXT(--RECHTS(A3;7);" 000 000-0")

[winkla10]

Hi Helmut,

vielen Dank. Geht das nicht einfacher über - Zellen Formartieren -> Benutzerdefiniert?

[HKindler]

Nein. Mit Zellformaten kannst du nur Zahlen beeinflussen. Bei Texten kannst du nur feste Strings vorne oder hinten hinzufügen.

[el-rettev]

Hallo,

mit Text in Spalten kann man leider nicht vorgeben, dass nur das erste Leerzeichen als Trenner benutzt werden sollen.
Eine Möglichkeit wäre daher mit Power Query zu arbeiten.
Alternativ mit VBA.
Hier wenn Text in Spalte A und dieser soll aufgeteilt in Spalte B und Spalte C.

Code:

Sub TextAufteilen()
    Dim letzteZeile As Long
    Dim text As String
    Dim erstesLeerzeichen As Integer
    Dim teil1 As String
    Dim teil2 As String
    Dim i As Long
   
    ' Letzte Zeile in Spalte A ermitteln
    letzteZeile = Cells(Rows.Count, "A").End(xlUp).Row
   
    ' Schleife über alle Zeilen mit Daten in Spalte A
    For i = 2 To letzteZeile ' Start bei Zeile 2, da Zeile 1 die Überschriften sein könnte
        ' Text aus aktueller Zeile lesen
        text = Range("A" & i).Value
       
        ' Position des ersten Leerzeichens finden
        erstesLeerzeichen = InStr(text, " ")
       
        ' Text in zwei Teile aufteilen
        teil1 = Left(text, erstesLeerzeichen - 1)
        teil2 = Mid(text, erstesLeerzeichen + 1)
       
        ' Ergebnisse in die entsprechenden Zellen schreiben
        Range("B" & i).Value = teil1
        Range("C" & i).Value = teil2
    Next i
End Sub

[RPP63]

Moin!
Zunächst mal würde ich exakt wie Helmut (HKindler) vorgehen.

Wie kann ich Zellen markieren und gleichzeitig abändern ohne alles einzeln anzuklicken?

Das geht nur mittels VBA!
Markiere die Spalte A ab A3 (Leerzellen können mitmarkiert werden).
Dann lässt Du folgendes Makro laufen:

Code:

Sub specialFormat()
Dim Cell As Range
For Each Cell In Selection.SpecialCells(xlCellTypeConstants)
  If Cell Like "???? ??? ???-?" Then
  Else
    Cell = Format(Cell, "@@@@ @@@ @@@-@")
Next
End Sub

Gruß Ralf