Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1248to1252
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
1248to1252
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Funktion für Makro

Funktion für Makro
Alifa
Hallo,
kann mir jemand helfen bei einer Funktion:
Eine Zahl mit 3 bis 6 Stellen(ohne 0) soll geprüft werden. Der Wert der Ziffern soll auf- und absteigend sein.
Beispiel: 315462=WAHR 264513=WAHR 12354=FALSCH 312=WAHR 123=FALSCH.
Danke im Voraus
Alifa

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

Betreff
Benutzer
Anzeige
AW: Funktion für Makro
21.02.2012 19:57:52
Hajo_Zi
Hallo Alifa,
solltest Du nicht erklären warum Wahr und Falsch?
Die letzten beiden könnte mann vielleicht noch verstehen aber die ersten beiden sehe ich keine Logik zum Ergebnis.

AW: Funktion für Makro
21.02.2012 20:36:38
Alifa
Die erste Zahl:
1 kleiner als 3, die nächste Ziffer(5) ist größer,dann folgt eine kleinere(4) ....deswegen Wahr. 135462 wäre falsch. Der Ziffernwert soll jeweils von einer Ziffer zur anderen nach oben und unten varriiren. Alle Ziffern sind unterschiedlich.
Gruß Alifa
AufAb-Ziffern im String
21.02.2012 22:41:05
Erich
Hi Erhard,
probier mal 

Option Explicit
Function AufAb(sT As String) As Boolean
Dim ii As Long
For ii = 1 To Len(sT) - 2
If Mid(sT, ii, 1)  Mid(sT, ii + 1, 1) And _
Mid(sT, ii + 1, 1) > Mid(sT, ii + 2, 1) Then Exit Function
Next ii
AufAb = True
End Function
Da kommt das raus:
 AB
1315462WAHR
2264513WAHR
312354FALSCH
4312WAHR
5123FALSCH

Formeln der Tabelle
ZelleFormel
B1=AufAb(A1)

Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige
AW: AufAb-Ziffern im String
22.02.2012 08:05:20
Alifa
Hi Erich,
die Funktion passt genau! Vielen Dank und einen guten Tag wünscht Dir
Erhard

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige