Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vierstellige Ziffer aus String Extrahieren

Vierstellige Ziffer aus String Extrahieren
16.05.2018 16:15:48
Hans
Hi,
ich suche eine Lösung für folgendes Problem
ich habe Daten wie folgt
IST - Soll
00RST5123 _5123_00RST
DS2150.02 _2150_DS.02
2130 _2130
FTIR-+5823.06 _5823_FTIR-+.06
Jetzt suche ich Eine Formel die mir die Daten von IST nach Soll Konvertiert.
Gerne auch mit mehreren Schritte. Einzig Gemeinsamkeit ist die 4-Stillige Ziffer die vorangestellt werden soll.
Habt ihr eine Lösung?
Gruß und danke

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
=--TEIL(A1;SUCHEN("_?_";"_"&A1&"_");4)
16.05.2018 16:26:47
lupo1
AW: =--TEIL(A1;SUCHEN("_?_";"_"&A1&"_");4)
16.05.2018 16:40:07
Hans
Hi,
Argh da hat mir Das Forum was verwurschtelt. also nochmal:
IST
00RST5123
DS2150.02
2130
FTIR-+5823.06
Soll
_5123_00RST
_2150_DS.02
_2130
_5823_FTIR-+.06
Gruß und Danke
1) ohne -- 2) statt 6 nimm 99
16.05.2018 16:45:26
lupo1
=TEIL(A1;SUCHEN("_?_";"_"&A1&"_")-1;99)
16.05.2018 17:44:26
lupo1
=TEIL(A1;SUCHEN("_?_";"_"&A1&"_")-1;99)
(ich hatte einen Schritt übersprungen, sorry)
AW: =TEIL(A1;SUCHEN("_?_";"_"&A1&"_")-1;99)
16.05.2018 18:03:40
Hans
Nee das klappt nicht. Ich glaub du meinst die falsche Richtung.
Aus 00RST5123 soll _5123_00RST werden.
Der Suchtext '_?_' ist ja im Original nicht vorhanden.
Danke und Gruß
Dein Ist und Soll solltest Du korrekt darstellen
16.05.2018 18:20:36
lupo1
- und zwar peinlich korrekt mit jedem einzelnen Zeichen! -; dann klappt's auch mit den Antworten.
Anzeige
AW: Dein Ist und Soll solltest Du korrekt darstellen
16.05.2018 19:02:07
Hans
Also Wenn ich in A1: 00RST5123 eingebe kommt in der "Formelzelle" nicht _5123_00RST raus.
Alle Zeichen sind oben dargestellt.
Gruß und Danke.
Die 4stellige Zahl ist die mit Unterstrichen
16.05.2018 19:43:56
lupo1
drumrum ... so war es zu verstehen aufgrund Deines ersten Beitrags.
Dass die Zahl in jedem Beispiel doppelt vorkommt, verpflichtet Dich zu einer eindeutigen Beschreibung, die Du bis jetzt immer noch nicht gebracht hast, was genau zu geschehen hat.
Es gibt diese 4stelligen Zahlen auch mit "Dezimalpunkt" (falls es einer ist, aber auch da fehlt es an einer exakten Beschreibung).
jetzt erst gepeilt! Mann o Mann ...
16.05.2018 20:11:20
lupo1
... das sah aber auch dämlich aus im OT. Das folgende geht mit VERWEIS vermutlich noch kürzer:
{=TEIL(A1;MIN(WENN(ISTZAHL(
TEIL(A1;ZEILE($1:$99);4)*
TEIL(A1;ZEILE($1:$99);1));ZEILE($1:$99)));4)&"_"&WECHSELN(A1;TEIL(A1;MIN(WENN(ISTZAHL(--
TEIL(A1;ZEILE($1:$99);4));ZEILE($1:$99)));4);)}
Anzeige
minimal kürzer
16.05.2018 20:15:34
lupo1
{=TEIL(A1;MIN(WENN(ISTZAHL(-(0&
TEIL(A1;ZEILE($1:$99);4)));ZEILE($1:$99)));4)&"_"&WECHSELN(A1;TEIL(A1;MIN(WENN(ISTZAHL(--(
TEIL(A1;ZEILE($1:$99);4)));ZEILE($1:$99)));4);)}
AW:Versuch
16.05.2018 19:50:47
CitizenX
Hallo;
AB
100RST5123 _5123_00RS3
Verwendete Formeln
AB
100RST5123 {="_" &TEIL(A1;MIN(WENN(ISTZAHL(SUCHEN(ZEILE($1:$9);A1));SUCHEN(ZEILE($1:$9);A1)));4)&"_"& WENNFEHLER(WECHSELN(A1;TEIL(A1;MIN(WENN(ISTZAHL(SUCHEN(ZEILE($1:$9);A1));SUCHEN(ZEILE($1:$9);A1)))-1;4);"");"")}
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!
Table to HTML by CitizenX 2017
geht bestimmt noch kürzen...
VG
Steffen
Anzeige
AW: AW:Versuch
17.05.2018 12:53:29
niclaus
Hallo Steffen
"Schönheitsfehler" ergibt Deine Formel, bei folgenden Werten in Spalte A: 
2130            >>>    _2130_           statt    _2130
FTIR-+5823.06   >>>    _5823_FTIR-3.06  statt    _5823_FTIR-+.06

Ich habe Deine Formel etwas geändert, dann sind die Ergebnisse auch bei diesen beiden Werten richtig. Auch wieder eine Matrix-Formel!
Tabelle2

 ABCDEFGHI
1Formel in B1{="_"&TEIL(A1;MIN(WENN(ISTZAHL(SUCHEN(ZEILE($1:$99);A1));SUCHEN(ZEILE($1:$99);A1)));4)&
WENN(WECHSELN(A1;TEIL(A1;MIN(WENN(ISTZAHL(SUCHEN(ZEILE($1:$99);A1));SUCHEN(ZEILE($1:$99);A1)));4);"")<>"";"_"&
WECHSELN(A1;TEIL(A1;MIN(WENN(ISTZAHL(SUCHEN(ZEILE($1:$99);A1));SUCHEN(ZEILE($1:$99);A1)));4);"");"")}


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Das funktioniert aber nicht bei folgendem String:
xs33as4444   das ergibt wohl ein falsches Ergebnis:      _33as_xs4444

Grüsse Niclaus
Anzeige
AW: AW:Versuch
17.05.2018 17:21:05
Hans
HI,
Ihr Seit Super :)
bei 05KCV0245 Klapps Schon nicht mehr,dafür bei fast allen anderen geht ab gut.
Vll. können wir das in einzel Steps machen?
1. Beginn und Ende 4-Stellige Zahl
2. Elemente Verketten.
Gr und Danke
AW: AW:Versuch
17.05.2018 17:21:42
Hans
HI,
Ihr Seit Super :)
bei 05KCV0245 Klapps Schon nicht mehr,dafür bei fast allen anderen sehr gut.
Vll. können wir das in einzel Steps machen?
1. Beginn und Ende 4-Stellige Zahl
2. Elemente Verketten.
Gr und Danke
AW:UDF
17.05.2018 18:50:44
CitizenX
Hallo,
wenn eine UDF auch in Frage kommt, dann teste mal Die:

Option Explicit
Function Textteil(Bereich As String)
Dim regex As Object: Set regex = CreateObject("vbscript.regexp")
With regex
.Pattern = "(.*)(\d{4})"
.Global = False
If .test(Bereich) Then
Textteil = IIf(Len(.Execute(Bereich)(0).SubMatches.Item(0)), .Replace(Bereich, "_$2_$1") _
, .Replace(Bereich, "_$2"))
End If
End With
End Function
ALT+F11-> Einfügen -Modul,und Code ins Modul einfügen
AB
105KCV0245_0245_05KCV
2FTIR-+5823.06_5823_FTIR-+.06
32130_2130
Verwendete Formeln
AB
105KCV0245=textteil(A1)
2FTIR-+5823.06=textteil(A2)
32130=textteil(A3)

Table to HTML by CitizenX 2017
VG
Steffen
Anzeige
AW: AW:UDF
17.05.2018 19:33:22
niclaus
Hallo Steffen
Super! Da ist meine Function ein Dreck dagegen - aber sie funktioniert auch.
Function hans(zelle)
yy = ""
xx = zelle
xxl = Len(xx)
For i = 1 To xxl
yy = yy & Mid(xx, i, 1)
If Not IsNumeric(yy) Then yy = ""
If Len(yy) = 4 Then Exit For
Next
yy3 = Replace(xx, yy, "")
If yy3 = "" Then
yy2 = "_" & yy
Else
yy2 = "_" & yy & "_" & Replace(xx, yy, "")
End If
hans = yy2
End Function

Grüsse Niclaus

308 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
unterschiedliche Buchstaben in Textzellen finden
Rob

Liebe xls-Profis,
ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
Einfache Beispiele:
A1 B1
Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
20.08.2008 10:26:10
Thread-ID: 1003114
8 Beiträge
Zellen- Inhalt auf Zahl 0 zurücksetzen
Lemmi

Hallo zusammen,
ich habe eine Arbeitsliste in der durch eine Drop- Down Menü Auswahl 0,1,2,3 sowie Leerstelle- Auswahl durchgeführt wird. (ab Spalte M6)
In der Spalte ab O6 wird eine Bewertung Durchgeführt. Diese wird auch durch Drop- Down umgesetzt!
Wird nun in der Spalte O di...
02.09.2008 17:35:00
Thread-ID: 1006885
12 Beiträge
Anzeige
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
In Textfile bestimmte Zeile suchen
Pascal

In einem Textfile soll nach einer bestimmten Zeile (immer der gleiche Text) gesucht werden.
Wird dieser Text gefunden, so soll alles vom Beginn weg des Textfiles bis und mit dieser Zeile (plus zusätzlich noch die nächste Zeile) gelöscht werden.
Geht das irgendwie ?
Wenn ja, wie ?
24.09.2008 16:14:00
Thread-ID: 1012111
8 Beiträge
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Zellinhalte Zahlen und Text extrahieren
Marky

Hallo Excel Spezialisten !
Ich würde gerne aus zwei nebeneinander stehenden Spalten die Zellinhalte extrahieren.
Die Zellinhalte bestehen aus Zahlen und Text. Die aus den Zellen zu extrahierenden Zahlen und Texte
stehen immer in den Spalten K10 und N10.
Die Zielzellen sind immer...
29.09.2008 12:55:00
Thread-ID: 1013076
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
4
7
11
9
4
7
11
5
5
2
2
6
6
1
4
2
7
7
9
3
2
2
2
3