Zahlen in einer Zelle in eine Spalte separieren

[Rage]

Hallo liebe Excel-Gemeinde,

ich brauche bitte Unterstützung :)

folgendes "Hindernis" liegt vor:

   
IST:
A1                                      A2
1234567 - Apfel                                 1234567
7654321 - Kiwi


   
SOLL:
A1                                      A2
1234567 - Apfel                              1234567
7654321 - Kiwi                                7654321


Die Nummern sollten getrennt vom Text in eine andere Spalte transferiert werden ( automatisch wenn ein copy paste befehl in zB. A1 erfolgt, dafür verwende ich: =LINKS(A1;SUMME(1*(ISTZAHL(LINKS(A1;SPALTE(1:1))*1))))*1 )
Dies funktioniert aber leider nur für die erste Nummer die obere, die untere wird nicht übernommen.

Bitte um Hilfe

Vielen Dank :)

[Elex]

Hi

____|________A_______|____B___|_C|_D|_E|_F|_G|_H|_I|_J|_K|
   1|1234567 - Apfel | 1234567|  |  |  |  |  |  |  |  |  |
   2|7654321 - Kiwi  | 7654321|  |  |  |  |  |  |  |  |  |
   3|                |        |  |  |  |  |  |  |  |  |  |

B1  =LINKS(A1;FINDEN(" ";A1))*1

[WillWissen]

Moin,

ich würde zuerst mit Text in Spalten (getrennt - Trennzeichen andere: ALT-0010) die beiden Begriffe trennen und dann die Zahlen auslesen.

Arbeitsblatt mit dem Namen 'Tabelle3'
	A	B	C	D
1	1234567 -  Apfel	7654321 - Kiwi	1234567	7654321

Zelle	Formel
C1	=TEIL(A1;1;SUCHEN("-";A1)-2)
D1	=TEIL(B1;1;SUCHEN("-";A1)-2)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg

Des Weiteren würde ich sie auf keinen Fall mehr zusammen in eine einzige Zelle packen.

[Case]

Hallo, :19:

wenn du das - aus welchen Gründen auch immer (ich bewerte das nicht) - in einer Zelle nebenan möchtest, dann so (im Moment beschränkt auf Spalte A): :21:

  Worksheet_Change_REGEXP_Zahlen_von_Text_trennen_mit_Zeilenumbruch_CF.xlsb (Größe: 16,08 KB / Downloads: 11)

[Rage]

Hallo zusammen,

erstmal vielen lieben Dank schon mal für die schnellen Lösungsvorschläge :)

@ Elex: diese Option funktioniert leider nicht, da ich die Vorgaben Nummer+Apfel/Kiwi aus einer anderen Excel-Tabelle hole. Daher ist eine Abweichung ( in Form von einer Aufteilung ) in diesem Fall nicht möglich.

@ WillWissen: diese Aufteilung kann ich leider auch nicht verwenden, da diese für die Weiterbearbeitung zu aufwendig ist.

@ Case: JA genau, das hab ich gesucht :) :23:
Jetzt brauche ich bitte, bitte, bitte noch die Information wie ich das selbst zum laufen bringe :)

Beste Grüße & Vielen Dank

[Case]

Hallo, :19:

nun - du musst einfach den Code aus meiner Beispieldatei an die gleichen Stellen in deiner Datei kopieren - also einmal in ein allgemeines Modul und einmal in das Klassenmodul der Tabelle in welcher du die Eingaben machst. Wie gesagt im Moment ist das auf Spalte A beschränkt.

Wenn du es nicht hin bekommst, kann ich es dir auch in deine Datei einbauen - dazu brauche ich die aber. :21:

[Rage]

Ha :19:
"einfach" den Code kopieren und da und dort und sowieso einfügen...ziemlich schwierig wenn man sich da nicht wirklich auskennt :22:

habs aber geschafft ;)
vielen lieben Dank dafür :18:

Wie kann ich das in dem Code auf andere Spalten verschieben bzw. ändern?


Desweiteren habe ich noch gleich eine kleine bitte, die 01,02, etc. ( max. immer zweistellig ) sollte auch gleich automatisch ausgeblendet werden.

IST:
A1                                      B2
1234567-01 Apfel                                 1234567
7654321-02 Kiwi                                   01
                                                                 7654321
                                                                 02


SOLL:
A1                                      B2
1234567-01 Apfel                              1234567
7654321-02 Kiwi                                7654321


Vielen Dank

[Case]

Hallo, :19:

für den Fall - nur eine winzige Änderung: :21:

  Worksheet_Change_REGEXP_Zahlen_von_Text_trennen_mit_Zeilenumbruch_CF_1.xlsb (Größe: 17,08 KB / Downloads: 11)

Code:

For lngCount = 0 To objValue.Count - 1 Step 2

[snb]

Verwende ein UDF:

PHP-Code:

Function F_snb(c00)
   F_snb = Join(Filter(Split(Replace(c00, vbLf, "-"), "-"), " ", 0), vbLf)
End Function 


In Zelle B1

PHP-Code:

=F_snb(A1) 


[Rage]

Schönen Guten Morgen,

vielen Dank für eure Hilfe.
Im Moment funktioniert alles so wie ich mir das vorgestellt habe :18:

Perfekt, vielen Dank :23:

Beste Grüße

PS: vll. brauche ich die nächsten 1-2 Tage nochmal Unterstützung