Zellwerterhöhung mit Bedingung... noch einmal
07.06.2005 17:58:13
Norb
Tut mir echt total leid, dass ich das noch einmal ausgrabe aber das betreffende Thema ist schon soweit nach unten gerutscht, dass es nicht mehr erkannt wird.
Ich habe folgenden Code von Ransi:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
[b1] = [b1] - ([a1] * ([c1].Text = "Montag"))
[b2] = [b2] - ([a1] * ([c1].Text = "Dienstag"))
End Sub
Ich habe jetzt noch eine Frage. Ich versuche nun diese Formel in Tabelle1 einzusetzen und es funktioniert alles (Danke nochmal!)
Ich möchte nun in eine andere Zelle zB A2 Daten eintragen und in sollen diese summiert werden zb in B14 eingefügt wenn C1 Montag ergibt und in B15 wenn C1 Dienstag ergibt. Alles in allem das Gleiche wie schon angegeben aber alles bis auf C1 ändert sich.
Ich habe einfach versucht das ganze zu kopieren und die Werte zu ändern. Aber egal wie ich es drehe und wende bzw. Versuche ein Ergebnis zusammenzubasteln, es will nicht funktionieren. Liegt es an dem "If Target.Address "$A$1" Then Exit Sub"? Soll heißen dass alle Werte bis auf A1 (warum eigentlich die Dollarzeichen für einen fixen Bezug. Ich habe es ohne versucht und es funktioniert nicht aber warum?) einfach komplett ignoriert werden wegen "then exit sub". eine neue Prozedur mit dem Worksheet_change kann ich ja anscheinend nicht schreiben, da diese anscheinend nicht zweimal existieren darf.
Ich versuche mir irgendwie etwas logisches zusammenzubasteln aber wirklich entwickeln tut sich das nicht. Ich hatte bis zu diesem Beispiel hier gar nichts mit VB zu tun.
Ich hoffe, man hilft mir nochmal. Danke im Vorraus.
Norb
Anzeige