Textfeld trennen in Excel
Hallo,
ich habe eine Frage und Finde keine Lösung dazu.
ich habe eine Liste in der es 3 Spalten gibt und in Spalte A ist im Test die Artikelnummer, die ich aber in Spalte B stehen habe.
Im beispiel ist die Artikelnummer 102, diese kann aber auch 3 oder 4 stellig sein.
Wie bekomme ich es hin, dass die Artikelnummer in Spalte A entfernt wird?
Beispiel:
A = Bezeichnung
B = Artikelnummer
C = Menge
A: 102 Schraube 5mm
B: 102
C: 50
Rabbit
ich habe eine Frage und Finde keine Lösung dazu.
ich habe eine Liste in der es 3 Spalten gibt und in Spalte A ist im Test die Artikelnummer, die ich aber in Spalte B stehen habe.
Im beispiel ist die Artikelnummer 102, diese kann aber auch 3 oder 4 stellig sein.
Wie bekomme ich es hin, dass die Artikelnummer in Spalte A entfernt wird?
Beispiel:
A = Bezeichnung
B = Artikelnummer
C = Menge
A: 102 Schraube 5mm
B: 102
C: 50
Rabbit
Please also mark the comments that contributed to the solution of the article
Content-Key: 252650
Url: https://administrator.de/contentid/252650
Printed on: April 25, 2024 at 15:04 o'clock
1 Comment
Hallo Rabbit,
mit einer Hilfsspalte z.B. so (ich gehe davon aus das die erste Zeile die Überschriften enthält). Das Ergebnis lässt sich ja dann via Copy n' Paste auf die erste Spalte übertragen (nur Werte einfügen).
oder so
oder via VBA mit einem kleinen Makro
Grüße Uwe
mit einer Hilfsspalte z.B. so (ich gehe davon aus das die erste Zeile die Überschriften enthält). Das Ergebnis lässt sich ja dann via Copy n' Paste auf die erste Spalte übertragen (nur Werte einfügen).
A | B | C | D | |
---|---|---|---|---|
1 | Bezeichnung | Artikelnummer | Menge | Bezeichnung ohne Artikelnummer |
2 | 102 Schraube 5mm | 120 | 50 | =TEIL(A2;FINDEN(" ";A2)+1;LÄNGE(A2)) |
oder so
A | B | C | D | |
---|---|---|---|---|
1 | Bezeichnung | Artikelnummer | Menge | Bezeichnung ohne Artikelnummer |
2 | 102 Schraube 5mm | 120 | 50 | =WECHSELN(A2;B2&" ";"";1) |
oder via VBA mit einem kleinen Makro
Sub RemoveNumbers()
With Sheets(1)
For Each cell In .Range("A2", .Cells(Rows.Count, 1).End(xlUp))
cell.Value = Split(cell.Value, " ", 2, vbTextCompare)(1)
Next
End With
End Sub