Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte durch Funktion prüfen

Forumthread: Werte durch Funktion prüfen

Werte durch Funktion prüfen
27.10.2017 10:26:18
Nautica
Hallo,
ich möchte gerne eine Funktion schreiben um einen Wert einer Zelle zu prüfen.
Dieser muss bspw. immer 7stellig sein und mit der gleichen Zahlenfolge (zB. 345)beginnen.
Zum Beispiel:
3451112 True
3458738 True
3458769 True
3467789 False
345181 False
Hat jemand eine Idee? Vielleicht mit der Split Funktion?
Bin dankbar für jede Hilfe :)
LG, Nautica
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte durch Funktion prüfen
27.10.2017 10:32:59
Fennek
Hallo,
ungetestet

function Nautica(rng as range) as boolean
with rng
if len(.value) = 7 and left(.value,3) = "345" then Nautica = true
end with
end function
mfg
AW: Werte durch Funktion prüfen
27.10.2017 10:42:07
Nautica
Perfekt! Funktioniert!
Wie kann ich das ganze noch auf Zahlen einschränken?
Hab ich vergessen zu erwähnen, sorry!
Anzeige
AW: spezialcells(2,1) owT
27.10.2017 10:53:45
Fennek
AW: spezialcells(2,1) owT
27.10.2017 11:23:41
Nautica
Habe es einfach mit in die If Bedingung geschrieben, leider kommt dann ein Fehler (#Wert).
Function Nautica(rng As Range) As Boolean
With rng
If Len(.Value) = 7 And Left(.Value, 3) = "941" And .SpecialCells(2, 1) Then Nautica = True
End With
AW: sso nicht
27.10.2017 11:39:02
Fennek
es sollte auch
If isnumeric(.Value) And Left(.Value, 3) = "941" Then Nautica = True
gehen
Anzeige
AW: Werte durch Funktion prüfen
27.10.2017 19:42:55
Gerd
Moin Nautica!
Function Nautica2(Zelle As Range, DreiZiffernLinks As Long) As Boolean
Nautica2 = WorksheetFunction.RoundDown(Zelle.Value, -4) = DreiZiffernLinks * 10000
End Function
Gruß Gerd
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige