Kombinationsfeld Auswahl
22.04.2009 09:01:33
Markus
ich habe mal wieder ein kleines Problem:
Ich habe ein Kombinationsfeld (Tabelle 1), dass ich mit einem Druckbereich in einem anderen Tabellenblatt (Auswertung) verknüpft habe. So weit so gut. Ich kriege das auch alles angezeigt.
Jetzt will ich aber, dass wenn ich ein Kriterium ausgewählt habe, er in dem Tabellenblatt (Auswertung) in einer Zelle nebendem Kriterium "1" schreibt. Kommt eine Tabelle 2 dazu soll er auch (wenn gleiches Kriteriumausgewählt) auch eine 2 daraus machen. Viel wichtiger aber, wenn der Benutzer sich mit der Eingabe vertan hat, soll er die "1" auch wieder abziehen. (Wie ein Counter aufwärts zählen oder abwärts zählen)
Ich habe es mit If versucht, aber da ich ca. 20 verschiedene Kriterien habe, zieht er mir bei allen anderen immer 1 ab anstatt nur bei der jeweiligen Zelle. Hier ein Beispiel was ich gemacht habe:
Private Sub cb_gruende_Change()
If ActiveSheet.Range("I22") = "Lo" Then
Lo = Worksheets("Auswertung").Cells(8, 3)
Worksheets("Auswertung").Cells(8, 3) = Lo + 1
Else
Lo = Worksheets("Auswertung").Cells(8, 3)
Worksheets("Auswertung").Cells(8, 3) = Lo - 1
End If
Das wollte ich dann mit allen Kriterien machen, aber sobald ich mehrere habe funktioniert das nicht mehr so richtig. Hat einer eine Idee?
Mfg,
Markus