VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
If...then...Anweisung mit mehreren Bedingungen	02.07.2014 19:54:14	Franz
If...then...Anweisung mit mehreren Bedingungen	03.07.2014 03:19:12	Gast74108
If...then...Anweisung mit mehreren Bedingungen	03.07.2014 10:53:01	Franz
If...then...Anweisung mit mehreren Bedingungen	03.07.2014 14:19:39	Gast77766

Ansicht des Beitrags:

Von:
Franz

Datum:
02.07.2014 19:54:14

Views:
1360

Rating:

Antwort:

Thema:
If...then...Anweisung mit mehreren Bedingungen

Hallo Zusammen, 
ich habe folgendes vor:

If cmd1.BackColor = RGB(255, 0, 0) Or cmd2.BackColor = RGB(255, 0, 0) Or cmd3.BackColor = RGB(255, 0, 0) Or cmd4.BackColor = RGB(255, 0, 0) Then
Label1.Caption = "Hallo"
ElseIf cmd1.BackColor = RGB(255, 0, 0) And cmd.BackColor = RGB(255, 0, 0) Or cmd2.BackColor = RGB(255, 0, 0) And cmd4.BackColor = RGB(255, 0, 0) Then
Label1.Caption = "Guten Morgen"
ElseIf cmd1.BackColor = RGB(255, 0, 0) And cmd2.BackColor = RGB(255, 0, 0) And cmd3.BackColor = RGB(255, 0, 0) And cmd4.BackColor = RGB(255, 0, 0) Then
Label1.Caption = "Guten Abend"
ElseIf cmd1.BackColor = RGB(255, 0, 0) And cmd2.BackColor = RGB(255, 0, 0) Or cmd2.BackColor = RGB(255, 0, 0) And cmd3.BackColor = RGB(255, 0, 0) Or cmd3.BackColor = RGB(255, 0, 0) And cmd4.BackColor = RGB(255, 0, 0) Or cmd4.BackColor = RGB(255, 0, 0) And cmd1.BackColor = RGB(255, 0, 0) Then
Label1.Caption = "Guten Tag"
Else
Label1.Caption = "Bye"
End If

Mein Probem ist jetzt, dass dieses nicht so funktioniert wie ich es mir gedacht habe. Habt ihr vllt. eine Idee wie man das verbessern kann?

Gruß Franz

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
If...then...Anweisung mit mehreren Bedingungen	02.07.2014 19:54:14	Franz
If...then...Anweisung mit mehreren Bedingungen	03.07.2014 03:19:12	Gast74108
If...then...Anweisung mit mehreren Bedingungen	03.07.2014 10:53:01	Franz
If...then...Anweisung mit mehreren Bedingungen	03.07.2014 14:19:39	Gast77766