Office: VBA If mit mehreren bedingungen

Hallo Profi´s

Ich werd noch Wahnsinnig mit den Verschachtelungen *lol

Bei meinen versuchen stoße ich nur auf Fehler.

Folgendes sollte dieser Code machen

Tooglebutton
Wenn "true" dann Farbe Rot
In K9 leerzeichen
In J9 das Format auslesen und in I9 kopieren
wenn I9 in % format dann
In J9 formel
sonnst ( also wenn I9 zb in Zahl Format ist )
J9 diese Formel
Wenn aber Tooglebutton "false" dann Farbe Grün
In J9 das Format auslesen und in I9 kopieren
wenn I9 in % format dann
K9 Formel
J9 Formel
sonnst J9 formel
Fertig

Code:

Private Sub ToggleButton13_Click()
If ToggleButton13 = True Then
    ToggleButton13.BackColor = &HFF&
    Range("K9").Value = ""
    Range("J9").NumberFormat = Range("I9").NumberFormat
        If Range("I9").NumberFormat = "0%" Then
            Range("J9").FormulaLocal = "=wenn(I9="""";"""";(K9/E9)*100)"
        Else
        Range("J9").FormulaLocal = "=wenn(I9="""";"""";K9)"
        End If
ElseIf ToggleButton13 = False Then
    ToggleButton13.BackColor = &HFF00&
    Range("J9").NumberFormat = Range("I9").NumberFormat
        If Range("I9").NumberFormat = "0%" Then
            Range("K9").FormulaLocal = "=E9*I9"
            Range("J9").FormulaLocal = "=Wenn(I9="""";"""";(K9/E9)*100)"
        Else
            Range("J9").FormulaLocal = "=wenn(I9="""";"""";K9)"
        End If
End If
End Sub

Gruß Rene

 

Moinsens!

Da wirst Du wahrscheinlich etwas genauer angeben müssen, welcher Fehler wo genau auftritt. Und beachte bitte: Unerwartetes Verhalten ist kein Fehler im eigentlichen Sinne.

Wenn ein Laufzeit-Fehler mit entsprechender Meldung auftritt, kannst Du per "Debuggen" auch die Zeile sehen, in der dieser Fehler aufgetreten ist.

Schreibt er aber nur eine Formel, wo Du eigentlich eine andere Formel erwartet hättest, dann ist das ein logischer Denkfehler, für den VBA nichts kann. So auf den ersten Blick scheint der Source genau das zu tun, was Du im "Pflichtenheft" beschrieben hast, sofern ich nichts übersehen habe.

* Im unteren Else-Zweig würde ich ggf. K9 explizit löschen, weil sonst ggf. ungewollte Überreste stehen bleiben. Ganz allgemein: Du bearbeitest J9 und K9, aber nicht in jedem IF oder ELSE Zweig wird unbedingt dafür gesorgt, den aktuellen Status zu bekommen. Du solltest also entweder vorher beide Zellen löschen und dann nur die setzen, die benötigt werden oder in jedem Zweig die jeweils nicht benötigte Zelle löschen, um ungewollte Überreste nach einem Status-Wechsel zu vermeiden. (Ich schätze mal, daß hier Dein "Fehler" zu finden ist...)

* Die "ElseIf ..."-Zeile kannst Du eigentlich komplett durch ein einfaches "Else" ersetzen. Halb gedrückte Toggle-Buttons sollte es eigentlich nicht geben... ;-)

* Farbzuweisung über &Hxxxxxx& geht zwar, ich bevorzuge für die Lesbarkait aber i.a. die rgb( r, g, b ) Funktion. (reine Geschmacksfrage)

Gruß, Michael

 

Hi Rene,

wenn ich deiner Beschreibung folge, würde ich sagen, der Code müsste so aussehen:

Code:

Private Sub ToggleButton13_Click()
    Range("I9").NumberFormat = Range("J9").NumberFormat
    If ToggleButton13 = True Then
        ToggleButton13.BackColor = &HFF&
        Range("K9").ClearContents
        If Range("I9").NumberFormat = "0%" Then
            Range("J9").FormulaLocal = "=wenn(I9="""";"""";(K9/E9)*100)"
        Else
            Range("J9").FormulaLocal = "=wenn(I9="""";"""";K9)"
        End If
    Else
        ToggleButton13.BackColor = &HFF00&
        If Range("I9").NumberFormat = "0%" Then
            Range("K9").FormulaLocal = "=E9*I9"
            Range("J9").FormulaLocal = "=Wenn(I9="""";"""";(K9/E9))"
        Else
            Range("J9").FormulaLocal = "=wenn(I9="""";"""";K9)"
        End If
    End If
End Sub

Bis später,
Karin

 

Moin, nochmal...

Mir fällt gerade noch auf:

Das Ding wäre dann genau verkehrt herum...

Gruß, Michael

 

Hallo

Vielen Dank euch allen Jetzt funkt´s

@miriki : Danke für die Erklärung beim nächsten Problem werde ich genauere angaben machen.
@Beverly: Vielen Dank