Excel Zahlen und Buchstabensalat

[Simone_111]

Hallöchen,

ich hätte eine Frage bzgl Excel und zwar:

Bsp.: In Spalte A steht :01AA1234Y oder
12BB4567_Q oder 77WFD9876MWF usw (ca.1000 Zeilen lang)

Ich bräuchte jetzt aber in Spalte B nur die 4-stellige Zahl (1234 und 4567 und 9876). Wie soll man die filtern, alles was ich mache (Glätten, irgendwelche Formeln etc.) klappt nicht, da die Länge unregelmäßig ist. Gibts dazu einen Makro? Oder sonst einen Rat.

Viiieeeelen Dank an alle Helfer!

Grüße Simone

 

[1724]

Hallo
In etwa so dürfte es funktionieren - sofern der Zelleninhalt immer etwa dem entspricht, wie du es angegeben hast.
Kopiere zuerst die Spalte A in die Spalte B. Dannach mit folgendem Code ein Makro erstellen und los gehts!

Sub Simone()
Range("B1").Select
Do While ActiveCell <> Empty

Do While Len(ActiveCell.Value) <> 4
If IsNumeric(Right(ActiveCell, 1)) Then
ActiveCell = Right(ActiveCell, 4)
Else
ActiveCell = Left(ActiveCell, Len(ActiveCell.Value) - 1)
End If
Loop

ActiveCell.Offset(1, 0).Select
Loop

End Sub
'Written by 1724

Greez 1724