Microsoft Excel

Herbers Excel/VBA-Archiv

Text in Spalten | Herbers Excel-Forum


Betrifft: Text in Spalten von: Tom
Geschrieben am: 20.10.2008 14:09:42

Hallo,

ich möchte mit der Funktion Text in Spalten erreichen, dass alle Zeilen, die mit einer Zahl beginnen, nach der Zahl in eine neue Spalte geschoben werden - nur finde ich hierfür nur die Funktionen nach Leerzeichen, Komma usw...

Wer hat ne Lösung?

In A1: 1020 Maier Huber Müller
soll geändert werden in
A1 1020 B1 Maier Huber Müller

Danke vorab
TOM

  

Betrifft: AW: Text in Spalten von: Rudi Maintaire
Geschrieben am: 20.10.2008 14:18:42

Hallo,
Zahlen alle 4-stellig? : Feste Breite
Alternativ per Formel: =links(A1;Finden(" ";A1)-1) bzw. =Teil(A1;Finden(" ";A1)+1;255)

Gruß
Rudi


  

Betrifft: AW: Text in Spalten von: Tom
Geschrieben am: 20.10.2008 14:23:54

Hallo Rudi,

Nein, Zahlen gehen von 1 bis 1300 ...

Gruß
TOM


  

Betrifft: AW: Text in Spalten von: rofu
Geschrieben am: 20.10.2008 17:09:32



Für Zahl trennen

=LINKS(A4;FINDEN(" ";WECHSELN(A4;".";" ";LÄNGE(A4)-LÄNGE(WECHSELN(A4;" ";""))))-1)

Für Text trennen

=RECHTS(A4;LÄNGE(A4)-FINDEN(" ";WECHSELN(A4;".";" ";LÄNGE(A4)-LÄNGE(WECHSELN(A4;" ";"")))))

Ausgangspunkt:

z.B.in A4: 4456 AAA BBB CCC
Ergebnis in B4= 4456
Ergebnis in C4= AAA BBB CCC

LG
rofu


  

Betrifft: AW: Text in Spalten von: Tom
Geschrieben am: 20.10.2008 18:40:42

DANKE !!


  

Betrifft: AW: Text in Spalten von: Tino
Geschrieben am: 20.10.2008 14:39:41

Hallo,
hier mal eine Möglichkeit mit einer Hilfstabelle.
Achtung bisheriger Inhalt wird überschrieben!!

Option Explicit

Sub Trennen()
Dim Bereich As Range
Dim TempSheet As Worksheet
Dim akSheet As Worksheet
Set akSheet = ActiveSheet
With Application
 .ScreenUpdating = False
 .DisplayAlerts = False
    Set Bereich = Range("A1", Cells(Rows.Count, "A").End(xlUp))
    Set TempSheet = Sheets.Add
    With TempSheet
        Bereich.Copy .Range("A1")
        Set Bereich = .Range("A1", .Cells(.Rows.Count, "A").End(xlUp))
        
        
        Bereich.Offset(0, 1).FormulaR1C1 = _
         "=IF(ISERR(LEFT(RC1,FIND("" "",RC1))),RC1,LEFT(RC1,FIND("" "",RC1)))"
        Bereich.Offset(0, 1).Value = Bereich.Offset(0, 1).Value
        
        Bereich.Offset(0, 2).FormulaR1C1 = _
         "=IF(ISERR(RIGHT(RC1,LEN(RC1)-FIND("" "",RC1))),"""",RIGHT(RC1,LEN(RC1)-FIND("" "",RC1)))"
        Bereich.Offset(0, 2).Value = Bereich.Offset(0, 2).Value
        
        Bereich.EntireColumn.Delete
        .Columns("A:B").Copy akSheet.Range("A1")
        .Delete
    End With
 .ScreenUpdating = True
 .DisplayAlerts = True
End With
End Sub



Gruß Tino


  

Betrifft: AW: Text in Spalten von: Tom
Geschrieben am: 20.10.2008 14:56:25

Hallo Tino,

perfekt - vielen Dank!

Gruß
TOM


Beiträge aus den Excel-Beispielen zum Thema "Text in Spalten"