Office: (Office 365) Zelle mit Text und Zahlen aufteilen

Helfe beim Thema Zelle mit Text und Zahlen aufteilen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, gibt es eine Möglichkeit eine Zelle (A2 und A3) aufzuteilen? Die Zelle enthält Text und Zahlen und sollten wie in der Mustertabelle ab Spalte B... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Fuji59, 12. Dezember 2023.

  1. Fuji59 Neuer User

    Zelle mit Text und Zahlen aufteilen


    Hallo,
    gibt es eine Möglichkeit eine Zelle (A2 und A3) aufzuteilen?
    Die Zelle enthält Text und Zahlen und sollten wie in der Mustertabelle ab Spalte B bis Spalte G aufgeteilt werden.
    Ist das überhaupt möglich?
    Schon mal Danke im Voraus
     
  2. Beverly
    Beverly Erfahrener User
    Hi,

    mit VBA schon - z.B. so:

    Code:
    Sub Trennen()
        Dim intSpalte As Integer
        Dim lngZeile As Long
        Dim intZaehler As Integer
        intSpalte = 2
        For lngZeile = 2 To Cells(Rows.Count, 1).End(xlUp).Row
            Cells(lngZeile, intSpalte) = Cells(lngZeile, intSpalte) & Mid(Cells(lngZeile, 1), 1, 1)
            For intZaehler = 2 To Len(Cells(lngZeile, 1))
                If (IsNumeric(Cells(lngZeile, intSpalte)) And IsNumeric(Mid(Cells(lngZeile, 1), intZaehler, 1))) Or _
                    (Not IsNumeric(Cells(lngZeile, intSpalte)) And Not IsNumeric(Mid(Cells(lngZeile, 1), intZaehler, 1))) Then
                    Cells(lngZeile, intSpalte) = Cells(lngZeile, intSpalte) & Mid(Cells(lngZeile, 1), intZaehler, 1)
                Else
                    Cells(lngZeile, intSpalte) = RTrim(LTrim(Cells(lngZeile, intSpalte)))
                    intSpalte = intSpalte + 1
                    Cells(lngZeile, intSpalte) = Cells(lngZeile, intSpalte) & Mid(Cells(lngZeile, 1), intZaehler, 1)
                End If
            Next intZaehler
            intSpalte = 2
        Next lngZeile
    End Sub

    Zelle mit Text und Zahlen aufteilen GrußformelZelle mit Text und Zahlen aufteilen Beverly's Excel - Inn
     
  3. RPP63_neu hat Ahnung
    Moin!
    =LET(a;A2;
    n;SEQUENZ(LÄNGE(a));
    x;(ISTZAHL(--TEIL(a;n;1))+ISTZAHL(--TEIL(a;n+1;1))=1)*(n+1);
    TEXTTEILEN(TEXTKETTE(TEIL(a;n;1)&WENN(ISTZAHL(XVERGLEICH(n+1;FILTER(x;x);0;2));";";""));";"))

    Habe ich von hier:
    Ziffern und Nichtziffern trennen

    Gruß Ralf
     
    RPP63_neu, 13. Dezember 2023
    #3
  4. Fuji59 Neuer User

    Zelle mit Text und Zahlen aufteilen

    Hallo Karin,
    danke für den VBA-Code. Hab es mit dem Code versucht und funktioniert auch. Doch bei mir ist der Rechner mit ca. 5000 Datensätze ewig gelaufen.

    Hallo Ralf,
    mit Deinem Befehl hat es super funktioniert und die ca. 5000 Datensätze waren in kürzester Zeit durch. Auf diese Weise habe ich eine Menge Zeit gespart.

    Dennoch vielen Dank für Eure Mithilfe und wünsche Euch ein schönes Weihnachtsfest.

    Gruß Martin
     
  5. Beverly
    Beverly Erfahrener User
    Hi Martin,

    nicht alle Excel-Versionen kennen die gepostete Formel - so z.B. ist sie in Excel2016 ungültig. Gewiss dauert es mit VBA länger, weil der String Zeichen für Zeichen durchlaufen wird - aber zumindest ist er in Excel2016 (und allen anderen Versionen) gültig... Zelle mit Text und Zahlen aufteilen *;)*


    Zelle mit Text und Zahlen aufteilen GrußformelZelle mit Text und Zahlen aufteilen Beverly's Excel - Inn
     
  6. lupo1
    lupo1 Tutorial Guru
    Beverly hat sich einfach die Zeit gespart, die Stringbereiche vorher in Variant-Arrays zu packen. Damit wäre es genauso schnell geworden.

    Danke RPP63 für die Verlinkung!
     
  7. Fuji59 Neuer User
    Wie würde denn der VBA-Code mit dem Variant-Arrays aussehen?
    Da ich mich mit VBA nicht so auskenne, könntet Ihr mir da mit dem VBA-Code nochmal helfen?
     
  8. RPP63_neu hat Ahnung

    Zelle mit Text und Zahlen aufteilen

    Warum willst Du VBA-Code, wenn Du doch eine funktionierende schnelle Formel hast?
     
    RPP63_neu, 15. Dezember 2023
    #8
  9. Fuji59 Neuer User
    Es ist aus reiner Interesse wie so ein Code dann aussieht und vielleicht lerne ich VBA etwas mehr kennen.
     
  10. Beverly
    Beverly Erfahrener User
    Hi,

    es gibt sicher verschiedene Möglichkeiten, hier eine davon, wenn (wie in deiner Mappe) feststeht, in wieviele Spalten aufgeteitlt werden soll:

    Code:
    Sub Trennen()
        Dim intSpalte As Integer
        Dim lngZeile As Long
        Dim intZaehler As Integer
        Dim lngZaehler As Long
        Dim arrWerte()
        For lngZeile = 2 To Cells(Rows.Count, 1).End(xlUp).Row
            ReDim Preserve arrWerte(0 To 5, 0 To lngZaehler)
            arrWerte(intSpalte, lngZaehler) = Mid(Cells(lngZeile, 1), 1, 1)
            For intZaehler = 2 To Len(Cells(lngZeile, 1))
                If (IsNumeric(arrWerte(intSpalte, lngZaehler)) And IsNumeric(Mid(Cells(lngZeile, 1), intZaehler, 1))) Or _
                    (Not IsNumeric(arrWerte(intSpalte, lngZaehler)) And Not IsNumeric(Mid(Cells(lngZeile, 1), intZaehler, 1))) Then
                    arrWerte(intSpalte, lngZaehler) = arrWerte(intSpalte, lngZaehler) & Mid(Cells(lngZeile, 1), intZaehler, 1)
                Else
                    arrWerte(intSpalte, lngZaehler) = RTrim(LTrim(arrWerte(intSpalte, lngZaehler)))
                    intSpalte = intSpalte + 1
                    If intSpalte < 6 Then arrWerte(intSpalte, lngZaehler) = Mid(Cells(lngZeile, 1), intZaehler, 1)
                End If
            Next intZaehler
            lngZaehler = lngZaehler + 1
            intSpalte = 0
        Next lngZeile
        Range("B2").Resize(lngZaehler, 6) = Application.Transpose(arrWerte())
    End Sub
    

    Zelle mit Text und Zahlen aufteilen GrußformelZelle mit Text und Zahlen aufteilen Beverly's Excel - Inn
     
Thema:

Zelle mit Text und Zahlen aufteilen

Die Seite wird geladen...
  1. Zelle mit Text und Zahlen aufteilen - Similar Threads - Zelle Text Zahlen

  2. DATEDIF Ergebnis

    in Microsoft Excel Hilfe
    DATEDIF Ergebnis: Hallo, ich bitte um Hilfe bei DATEDIF z. B. =DATEDIF(Anfangsdatum;Enddatum;"Y") ergibt zB. 8 in derZelle. Ich möchte aber, dass in einer Zelle 8 Jahre steht. Was muss hier hinter "Y" noch...
  3. Text aus einer Zelle in Zahl umwandeln

    in Microsoft Excel Hilfe
    Text aus einer Zelle in Zahl umwandeln: Hallo, ich habe ein kleines Problem mit Zellen, die offenbar Text enthalten, aber in Zahlen umgewandelt werden sollen. Und zwar steht z.B. in A2: 36.7 ° C und in A3: 27.12.2023 12:58 In A4: 36.7...
  4. Text in Zelle mit Punkt und Komma in Zahl umwandeln

    in Microsoft Excel Hilfe
    Text in Zelle mit Punkt und Komma in Zahl umwandeln: Hallo, wie kann ich wenn in A1 1.200,000 steht, das in Zahl umwanden ? Hab es mit der Formel =WECHSELN(A1;",";",")*1 probiert, geht nicht. Jemand ein Idee ? Danke
  5. Zellen mit Zahlen und Text fortlaufend nummerieren

    in Microsoft Excel Hilfe
    Zellen mit Zahlen und Text fortlaufend nummerieren: Hallo zusammen, ich hoffe Ihr könnt mir hier weiterhelfen. Ich möchte Zahlen, die in einer Zelle mit Text stehen fortlaufend nummerieren. In A3:A6 steht bereits die Formel, die das Zahlenformat...
  6. Excel Text gleicher Text in Zelle (kleiner 3) zählen

    in Microsoft Excel Hilfe
    Excel Text gleicher Text in Zelle (kleiner 3) zählen: Ich bin seit Tagen schon am suchen und am verzweifeln... Ich habe in einer Tabelle im Bereich B12 bis SK12 Texte stehen. Ich benötige eine Formel, welche mir ein bestimmtes Wort zählt, aber nur...
  7. Excel - vergleich von 2 Zellen Text / Zahl mit Fehleingabe

    in Microsoft Excel Hilfe
    Excel - vergleich von 2 Zellen Text / Zahl mit Fehleingabe: Hallo Profis, ich habe eine ganze Weile nach einer Formel gesuch jedoch noch nichts gefunden ich hoffe ihr könnt mir helfen. Problematik: ich möchte in Zelle c4 ein Suchwort eingeben. Die...
  8. VBA- Zellen mit 2 Bedingungen Zählen (Farbe und Text)

    in Microsoft Excel Hilfe
    VBA- Zellen mit 2 Bedingungen Zählen (Farbe und Text): Hallo zusammen, Nach mehreren Tagen Recherche und diversen Codes ausprobieren und anpassen bin ich echt am Ende und suche hier im Forum Hilfe. Zu meinem Problem: - Ich möchte eine Spalte...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden