24.07.2017, 10:07 (Dieser Beitrag wurde zuletzt bearbeitet: 24.07.2017, 10:38 von lxxxangelxxxl.)
Hallo ihr lieben,
erst einmal Danke für die Aufnahme. Ich bin leider kein Excel-Profi wie ihr, aber leider muss ich für die Arbeit etwas machen und weiß nicht weiter.
Gibt es eine Formel, die mir filtert, dass zb. in einer Spalte nur Nummern angezeigt werden die 8-stellig sind? Beispiel: 12345678, aber nicht 1234 5678 oder irgendwie anders dargestellt. Oder eben auch, dass er erkennt, dass es eine 8-stellige Zahl ist: 36597686_15576 (hier sollte er die erste Zahlenreihe erkennen!)
Sprich die Zahlen stehen immer unterschiedlich da...
24.07.2017, 11:04 (Dieser Beitrag wurde zuletzt bearbeitet: 24.07.2017, 11:11 von lupo1.)
=WAHL(1+MAX(;SUMMENPRODUKT({1.-2}* ISTZAHL(--TEIL(A1&"_";ZEILE($1:$99);{8.9}))));"keine genau 8 Stellen enthalten!";TEIL(A1;SUMMENPRODUKT( ISTZAHL(--TEIL(A1&"_";ZEILE($1:$99);8))*ZEILE($1:$99));8);"bitte unter mehreren auswählen!")
Keine genau 8stellige Ziffernfolge: "keine genau 8 Stellen enthalten!"
Eine genau 8stellige Ziffernfolge wird als solche zurückgegeben, z.B. "01234567"
Zwei oder mehr 8stellige Ziffernfolgen ergibt "bitte unter mehreren auswählen!"
Bei einer 8stelligen und einer 9+-stelligen Ziffernfolge wird nichts zurückgegeben (müsste noch angepackt werden)
Achtung: Formel auch sonst noch etwas fehlerhaft! 123456789_12345678 ergibt z.B. falsche "45678"
(24.07.2017, 10:07)lxxxangelxxxl schrieb: Hallo ihr lieben,
erst einmal Danke für die Aufnahme. Ich bin leider kein Excel-Profi wie ihr, aber leider muss ich für die Arbeit etwas machen und weiß nicht weiter.
Gibt es eine Formel, die mir filtert, dass zb. in einer Spalte nur Nummern angezeigt werden die 8-stellig sind? Beispiel: 12345678, aber nicht 1234 5678 oder irgendwie anders dargestellt. Oder eben auch, dass er erkennt, dass es eine 8-stellige Zahl ist: 36597686_15576 (hier sollte er die erste Zahlenreihe erkennen!)
Sprich die Zahlen stehen immer unterschiedlich da...
function i8Zahlen(rng as range) With CreateObject("vbscript.Regexp") .Pattern = "\D\d{8}\D" i8Zahlen = .Test(" " & rng.value & " ") end with end function