Thema Datum  Von Nutzer Rating
Antwort
13.12.2019 10:22:56 Tobias
NotSolved
13.12.2019 10:51:15 Mase
NotSolved
13.12.2019 12:14:01 Gast26486
NotSolved
Blau If Abfrage mit mehreren möglichen Werten
 14.12.2019 13:41:59 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
14.12.2019 13:41:59		 Views:
597		 Rating:
     
Antwort:
  Ja
Thema:
If Abfrage mit mehreren möglichen Werten

Also ich mache sowas meistens mit Select case

Sub Beispiel1()
 
 x = "A1"
 
 Select Case Range(x)
 Case "Str1", "Str2", "Str3", "Str4"
   MsgBox Range(x)
 End Select
 
End Sub

Manchmal schreibe ich aber auch eine benutzerdefinierte Funktion dafür.

Sub Beispiel2()
 x = "A1"
 If IsIn(Range(x), "Str1", "Str2", "Str3", "Str4") Then MsgBox Range(x) Else MsgBox "nicht gefunden"
End Sub

Function IsIn(Text, ParamArray Texts()) As Boolean
  arr = Texts
  IsIn = Not IsError(Application.Match(Text, arr, 0))
End Function

Gruß Mr. K.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
13.12.2019 10:22:56 Tobias
NotSolved
13.12.2019 10:51:15 Mase
NotSolved
13.12.2019 12:14:01 Gast26486
NotSolved
Blau If Abfrage mit mehreren möglichen Werten
 14.12.2019 13:41:59 xlKing
NotSolved