VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Severus	Datum: 16.12.2010 09:20:50	Views: 898	Rating:	Antwort:
Thema: Aw:Wenn Dann Sonst
SMU schrieb am 16.12.2010 09:09:26: Hallo erstmal, ich bringe mir grad vba bei und hab mal die frage wieso bei diesem Code die beiden ersten "Then" Pfade nicht funktionieren. Private Sub CommandButton1_Click() If Range("ag3").Value = Range("a3").Value Then Range("ah3").Value = Range("ac5").Value Then Range("ai3").Value = Range("ad5").Value Then Range("aj3").Value = Range("ae5").Value End If End Sub Ich habe bei VB tutor unter VBA Excel Chapter 4 einen Code gefunden indem auch mehrere Then Pfade sind. Wieso funktioniert das bei mir nicht?? Danke für alle Antworten im voraus. gruß smu Ich wqeiß natürlich nicht, was genau Du willst, aber in VBA müsste das entweder If Range("ag3").Value = Range("a3").Value Then 'Befehl 1 ElseIf Range("ah3").Value = Range("ac5").Value Then 'Befehl 2 ElseIf Range("ai3").Value = Range("ad5").Value Then 'Befehl 3 ElseIf Range("aj3").Value = Range("ae5").Value 'Befehl 4 End If oder If Range("ag3").Value = Range("a3").Value and _ Range("ah3").Value = Range("ac5").Value and _ Range("ai3").Value = Range("ad5").Value and _ Range("aj3").Value = Range("ae5").Value Then 'Befehl End If oder If Range("ag3").Value = Range("a3").Value or _ Range("ah3").Value = Range("ac5").Value or _ Range("ai3").Value = Range("ad5").Value or _ Range("aj3").Value = Range("ae5").Value Then 'Befehl End If heißen Severus

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