Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 07:35:33
Matrix auslesen und in Liste umwandeln
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1588to1592
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
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige