Thema Datum  Von Nutzer Rating
Antwort
25.05.2018 09:06:45 Hady
Solved
Blau If - Bedingungen und Kriterien
25.05.2018 10:51:25 Gast77950
NotSolved
25.05.2018 12:37:12 Hady
NotSolved
25.05.2018 14:19:32 Gast40300
NotSolved
26.05.2018 10:21:34 Hady
NotSolved
25.05.2018 11:05:20 Gast48823
Solved

Ansicht des Beitrags:
Von:
Gast77950		 Datum:
25.05.2018 10:51:25		 Views:
616		 Rating:
     
Antwort:
  Ja
Thema:
If - Bedingungen und Kriterien 
If Range("A2") = "Text1" Or Range("A2") = "Text2" Or Range("A2") = "Text3" Or ... Then

Cells verlangt numerische Ausdrücke (Zeilenindex und Spaltenindex), keine Zelladresse!

Wenn du es öfters benötigst und etwas eleganter haben willst, schreib ne Hilfsfunktion.

Option Explicit

Sub Bsp()
  
  If TestCell(Range("A2"), "Text1", "Text2", "Text3") Then
    '...
  End If
  
End Sub

'Hilfsfunktion
Public Function TestCell(Cell As Excel.Range, ParamArray Value() As Variant) As Boolean
  Dim v As Variant
  For Each v In Value
    TestCell = (0 = StrComp(Cell, v))
    If TestCell Then Exit Function
  Next
  If UBound(Value) = -1 Then TestCell = True
End Function

 

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
25.05.2018 09:06:45 Hady
Solved
Blau If - Bedingungen und Kriterien
25.05.2018 10:51:25 Gast77950
NotSolved
25.05.2018 12:37:12 Hady
NotSolved
25.05.2018 14:19:32 Gast40300
NotSolved
26.05.2018 10:21:34 Hady
NotSolved
25.05.2018 11:05:20 Gast48823
Solved