Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1352to1356
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1352to1356
1352to1356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Funktion für Zahlenkette

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
Anzeige
AW: Funktion für Zahlenkette
02.04.2014 13:11:45
Christian
Hallo Alifa,
VBA keine Ahnung, daher Ansatz mit Formel:
 AB
1257364WAHR
225891FALSCH

Formeln der Tabelle
ZelleFormel
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))))))=-1*LÄ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

Anzeige
etwas kürzer..
02.04.2014 13:37:33
Christian
Hallo Alifa,
 AB
1257364WAHR
225891FALSCH

Formeln der Tabelle
ZelleFormel
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

Anzeige
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
 AB
112845! unterbrochene Folge !
221534! fortlaufende Folge !

verwendete Formeln
Zelle Formel Bereich
B1 =Folge(A1) 

Tabellendarstellung in Foren Version 5.49


Gruß UweD

Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige