Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Text in Spalten

Text in Spalten
20.10.2008 14:09:42
Tom
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
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text in Spalten
20.10.2008 14:18:42
Rudi
Hallo,
Zahlen alle 4-stellig? : Feste Breite
Alternativ per Formel: =links(A1;Finden(" ";A1)-1) bzw. =Teil(A1;Finden(" ";A1)+1;255)
Gruß
Rudi
AW: Text in Spalten
20.10.2008 14:23:54
Tom
Hallo Rudi,
Nein, Zahlen gehen von 1 bis 1300 ...
Gruß
TOM
AW: Text in Spalten
20.10.2008 17:09:32
rofu
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
Anzeige
AW: Text in Spalten
20.10.2008 18:40:42
Tom
DANKE !!
AW: Text in Spalten
20.10.2008 14:39:00
Tino
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

Anzeige
AW: Text in Spalten
20.10.2008 14:56:25
Tom
Hallo Tino,
perfekt - vielen Dank!
Gruß
TOM

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige