Zahlen von Text trennen

Text · 1970-01-01T00:00:00+00:00

Hallo, ich habe folgendes Problem: ich habe eine Excel-Liste mit mehreren hundert Einträgen in Spalte A. Diese Einträge haben folgende Struktur: Artikel_ Setkopf_anlegen_I8006024_IT_Jan VAR ZHAW B8006015_BE Artikel_ Setkom1_anlegen_F8006025_FR Unterstriche sind nicht bei jedem Eintrag vorhanden. Ich möchte bei jedem Eintrag die Zahl mit dem davor stehenden Buchstaben (also in Zeile1 z. bsp. I8006024) in eine eigene Spalte kopieren (z. bsp. in Spalte B). Die Anzahl der Zeichen von Links und von Rechts ist unterschiedlich. Im Archiv habe ich nachgesehen konnte aber nichts finden. Kann mir hier jemand mit einer Formel helfen? Sollte es keine Formel geben, dann auch VBA. Mit freundlichen Grüßen Stefan

Hi zusammen,
augenscheinlich ist Stefans Aufgabenstellung noch nicht klar - siehe Zeile 8:

	A	B	C
8	Artikel_ Setkom1_anlegen_F8006025_FR	1_anlegen_F8006025	m1_anlegen_F8006025
9	VAR ZHAW B8006015_BE	8006015	B8006015

Formeln der Tabelle

Zelle	Formel
B8	{=TEIL(LINKS(A8;MAX(ISTZAHL(TEIL(A8;SPALTE(2:2); 1)1)SPALTE(2:2))); VERGLEICH(1;ISTZAHL(TEIL(A8;SPALTE(2:2); 1)1)1;0); LÄNGE(A8))}
C8	=TEIL(A8;FINDEN(B8;A8)-1;LÄNGE(B8)+1)

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Matrix verstehen

Hier wird die 1. "1" hinter dem "m" gefunden. Dies ist eine Zahl mit einem Buchstaben davor.
Stefan, kannst du eine Regel formulieren, nach der nicht diese Fundstelle,
sondern die weiter hinten stehende 8 gefunden werden soll?
Möglicherweise soll die zu findende Zehl mindenstens 2 oder vielleicht 5 Stellen haben?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hallo Stefan
Mit ein ganz wenig VBA geht das recht einfach.
Kopier diesen Code mal in ein Modul:

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function machs(Zelle As Range, welche_Stelle As Long)
    Dim Regex As Object
    Dim objM As Object
    machs = ""
    Set Regex = CreateObject("vbScript.Regexp")
    With Regex
        .Pattern = "[A-ZÄÖÜ]8[0-9]+"
        .Global = True
        Set objM = .Execute(Zelle.Text)
        If objM.Count >= welche_Stelle Then _
            machs = objM(welche_Stelle - 1).Value
    End With
End Function

Jetzt kennt dein Excel eine neue rattenscharfe Funktion.
=machs() ;-)
Die kannst du in deiner Tabelle jetzt aufrufen wie jede ander Funktion auch.
=machs() erwartet nur 2 Argumente:
Die Zelle die untersucht werden soll und den wievielten Treffer sie aus der Zelle extrahieren soll.
Tabelle1

	A	B	C	D	E
1	Artikel_ Setkopf_anlegen_I8006024_IT_Jan 8006024 I8006024	I8006024	I8006024
2	VAR ZHAW B8006015_BE 8006015 B8006015	B8006015	B8006015
3	Artikel_ Setkom1_anlegen_F8006025_FR 1_anlegen_F8006025 m1_anlegen_F8006025	F8006025	F8006025	F8006025
4

Formeln der Tabelle

Zelle	Formel
B1	=machs($A1;SPALTE(A1))

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi

verwendete Formeln
Zelle	Formel	Bereich
B9	{=TEIL(LINKS(A9;MAX(ISTZAHL(TEIL(A9;SPALTE(1:1);1)1)SPALTE(1:1)));VERGLEICH(1;ISTZAHL(TEIL(A9;SPALTE(1:1);1)1)1;0);LÄNGE(A9))}	$B$9
F9	=TEIL(A9;FINDEN(B9;A9)-1;LÄNGE(B9)+1)

verwendete Formeln
Zelle	Formel	Bereich
B13	=TEIL(A13;FINDEN(8;A13)-1;LÄNGE(A13))
F13	=TEIL(B13;FINDEN(B9;B13)-1;LÄNGE(B9)+1)

	A	B	F
14	http://www.excelformeln.de/formeln.html?welcher=102
15	Artikel_ Setkom1_anlegen_F8006025_Frtutu	F8006025

verwendete Formeln
Zelle	Formel	Bereich
B15	{=LINKS(TEIL(A15;FINDEN(8;A15)-1;LÄNGE(A15));1)&TEIL(LINKS(TEIL(A15;FINDEN(8;A15)-1;LÄNGE(A15));MAX(ISTZAHL(TEIL(TEIL(A15;FINDEN(8;A15)-1;LÄNGE(A15));SPALTE(2:2);1)1)SPALTE(2:2)));VERGLEICH(1;ISTZAHL(TEIL(TEIL(A15;FINDEN(8;A15)-1;LÄNGE(A15));SPALTE(2:2);1)1)1;0);LÄNGE(TEIL(A15;FINDEN(8;A15)-1;LÄNGE(A15))))}	$B$15

Forumthread: Zahlen von Text trennen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zahlen und Text in Excel Trennen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

	A	B	F
13	Artikel_ Setkom1_anlegen_F8006025_FR	F8006025_FR	F8006025

	A	B	C	D
1	Artikel_ Setkom1_anlegen_F8006025_FR 1_anlem1_anlegen_XX8gen_F80060	F8006025	F80060
2		F8006025	X8	F80060