Funktion für Zahlenkette

Forumthread: Funktion für Zahlenkette

02.04.2014 09:53:51

Alifa

Hallo,
ich such wieder einmal eine Funktion für ein Makro. Zeichenketten mit 2 bis 8 Gliedern sollen geprüft werden, ob alle Glieder sich in einen aufsteigenden String einordnen lassen. Beispiel: 257634 ist WAHR(234567). 25891 ist FALSCH, da sich kein aufsteigender String daraus bilden lässt. Danke im Voraus
Alifa

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Funktion für Zahlenkette

02.04.2014 13:11:45

Christian
etwas kürzer..

02.04.2014 13:37:33

Christian
AW: Funktion für Zahlenkette VBA

02.04.2014 14:12:30

UweD
AW: Funktion für Zahlenkette VBA

02.04.2014 17:31:46

Alifa

AW: Funktion für Zahlenkette

02.04.2014 13:11:45

Christian

Hallo Alifa,
VBA keine Ahnung, daher Ansatz mit Formel:

	A	B
1	257364	WAHR
2	25891	FALSCH

Formeln der Tabelle

Zelle	Formel
B1	{=UND(SUMME((MAX(TEIL(A1;ZEILE($A$1:INDEX(A:A;LÄNGE(A1))); 1)1)-ZEILE($A$1:INDEX(A:A;LÄNGE(A1))))-(KGRÖSSTE(TEIL(A1;ZEILE($A$1:INDEX(A:A;LÄNGE(A1))); 1)1;ZEILE($A$1:INDEX(A:A;LÄNGE(A1))))))=-1LÄNGE(A1); SUMME((VERGLEICH(TEIL(A1;ZEILE($1:$1000); 1); TEIL(A1;ZEILE($1:$1000); 1); 0)=ZEILE($1:$1000))1)-1=LÄNGE(A1))}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Matrix verstehen

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
MfG Christian

etwas kürzer..

02.04.2014 13:37:33

Christian

Hallo Alifa,

	A	B
1	257364	WAHR
2	25891	FALSCH

Formeln der Tabelle

Zelle	Formel
B1	{=SUMME(MAX(TEIL(A1;ZEILE($A$1:INDEX(A:A;LÄNGE(A1))); 1)1)-ZEILE($A$1:INDEX(A:A;LÄNGE(A1))))+LÄNGE(A1)=SUMMENPRODUKT((0&TEIL(A1;SPALTE(1:1); 1))1)}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Matrix verstehen

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
MfG Christian

AW: Funktion für Zahlenkette VBA

02.04.2014 14:12:30

UweD

Sicherlich einfacher machbar... Function Folge(TXT) Dim strTemp As String Dim i As Long, j As Long, L As Long L = Len(TXT) - 1 ReDim arr(L) ' Splitten For i = 0 To L arr(i) = Mid(TXT, i + 1, 1) Next ' Sortieren BubbleSort For i = 0 To L For j = i + 1 To L If arr(i) > arr(j) Then strTemp = arr(i) arr(i) = arr(j) arr(j) = strTemp End If Next j Next i ' Prüfen For i = L To 1 Step -1 If arr(i) - arr(i - 1) 1 Then Folge = "! unterbrochene Folge !" 'Falsch Exit Function End If Next Folge = "! fortlaufende Folge !" 'Wahr End Function
Aufgerufen wird die Funktion so..
Tabelle1

	A	B
1	12845	! unterbrochene Folge !
2	21534	! fortlaufende Folge !

verwendete Formeln
Zelle	Formel	Bereich
B1	=Folge(A1)

Tabellendarstellung in Foren Version 5.49

Gruß UweD

AW: Funktion für Zahlenkette VBA

02.04.2014 17:31:46

Alifa

Danke UweD und Christian! Das passt
Viele Grüße
Alifa

Beliebteste Forumthreads (12 Monate)

Forumthread: Funktion für Zahlenkette

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread