Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Fehlersuche Funktion Auswahl aus bestimmten Werten

Fehlersuche Funktion Auswahl aus bestimmten Werten
03.11.2017 09:48:19
Nautica
Hallo, diese "einfache" Funktion hat einen Fehler - findet jemand den Fehler? Steh auf dem Schlauch...
Es soll True zurückgegeben werden, wenn in der Zelle einer dieser Werte steht...
In der Tabelle steht immer #WERT!.
Danke und liebe Grüße
Public Function Auswahl(zelle) As Variant
If (zelle.Value = "AUTO") Or (zelle.Value = "LT") Or (zelle.Value = "TB") Or (zelle.Value =  _
"ST") Or (zelle.Value = "BE") Or (zelle.Value = "ET") Or (zelle.Value = "ER") Or (zelle.Value = "HA") Or (zelle.Value = "OB") Or (zelle.Value = "KT") Or (zelle.Value = "AB") Or (zelle.Value = "AG") Or (zelle.Value = "OL") Or (zelle.Value = "UD") Or (zelle.Value = "ZFTM") Or (zelle.Value = "RE") Then
StimmtAuswahl(zelle) = True
End If
End Function

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Fehlersuche Funktion Auswahl aus bestimmten Werten
03.11.2017 10:26:09
Michael
Hallo!
Beachte: Deine Funktion heißt
Public Function Auswahl(zelle) As Variant
Und Du setzt folgende Funktion dann auf TRUE:
StimmtAuswahl(zelle) = True
:-). Ich würd's generell allerdings so schreiben:
Public Function DieAuswahl(Zelle As Range) As Boolean
Dim a, i&
a = Array("AUTO", "LT", "TB", "ST", "BE", "ET", "ER", "HA", "OB", "KT", _
"AB", "AG", "OL", "UD", "ZFTM", "RE")
With Zelle
For i = LBound(a) To UBound(a)
If .Value = a(i) Then
DieAuswahl = True: Exit For
End If
Next i
End With
End Function
LG
Michael
Anzeige
Oder noch übersichtlicher...
03.11.2017 10:31:30
Michael
...eigentlich so:
Public Function DieAuswahl(Zelle As Range) As Boolean
Select Case Zelle.Value
Case Is = "AUTO", "LT", "TB", "ST", "BE", "ET", "ER", "HA", "OB", "KT", _
"AB", "AG", "OL", "UD", "ZFTM", "RE"
DieAuswahl = True
Case Else: DieAuswahl = False
End Select
End Function
LG
Michael
Anzeige
AW: Oder noch übersichtlicher...
03.11.2017 10:37:09
Nautica
Ach, auf das Boolean hätte ich auch selbst kommen können. Und an Arrays habe ich mich als Anfänger noch nicht rangetraut. Sieht allerdings wesentlich eleganter aus. Ich versuche es mal :)
DANKESCHÖN :)
Freut mich! Und das Array brauchst Du auch nicht
03.11.2017 10:45:50
Michael
...die Fallauswahl (2. Variante) ist in dem Fall noch besser.
LG
Michael
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

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