Fehlersuche Funktion Auswahl aus bestimmten Werten

Forumthread: Fehlersuche Funktion Auswahl aus bestimmten Werten
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Fehlersuche Funktion Auswahl aus bestimmten Werten

03.11.2017 10: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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Fehlersuche Funktion Auswahl aus bestimmten Werten

03.11.2017 11:26:09

Michael
Oder noch übersichtlicher...

03.11.2017 11:31:30

Michael
AW: Oder noch übersichtlicher...

03.11.2017 11:37:09

Nautica
Freut mich! Und das Array brauchst Du auch nicht

03.11.2017 11:45:50

Michael

AW: Fehlersuche Funktion Auswahl aus bestimmten Werten

03.11.2017 11: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

Oder noch übersichtlicher...

03.11.2017 11: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

AW: Oder noch übersichtlicher...

03.11.2017 11: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 11:45:50

Michael

...die Fallauswahl (2. Variante) ist in dem Fall noch besser.
LG
Michael