Anstelle Checkbox "nur" Zelle anklicken
Sonja
ich habe mir heute die Arbeit gemacht und in eine Mappte 100 Checkboxen eingebaut. Das ganze funtioniert auch ganz toll. Aber...
Die Mappe wird aufgeplustert und sehr, sehr langsam.
Eigentlich bräuchte ich auch keine Checkbox, sonder eine Klick auf die Zelle würde reichen. Mit "If Target.Adress" habe ich es aber nicht geschafft, mein Problem zu lösen.
Bei der Checkbox ist folgender Code hinterlegt, der auch funktioniert, wie ich es möchte. Ich möchte:
In Tabelle1 / A1 steht eine Zahl. Bei Klick soll genau diese Zahl in Tabelle2 / $A$3 eingetragen werden.
In Tabelle1 / A2 steht eine Zahl. Bei Klick soll genau diese Zahl in Tabelle2 / $A$3 eingetragen werden.
In Tabelle1 / A3 steht eine Zahl. Bei Klick soll genau diese Zahl in Tabelle2 / $A$3 eingetragen werden. etc
(Wenn das ganze schon mal ausgeführt wurde, dann steht in B1/B2/B3 die RE-Nummer und es kommt eine MsgBox, das ist aber soweit gelöst)
Private Sub Box1_Click()
If Range("B1") "" Then
MsgBox "Für diese Buchung existiert bereits eine Rechnung. Neue Rechnung nicht möglich!"
Exit Sub
End If
If Box1 = True Then
Sheets("Tabelle2").Select
Worksheets("Tabelle2").Range("A3").Value = "1"
Else
Worksheets("Tabelle2").Range("A3").Value = "100"
Exit Sub
End If
End Sub
Private Sub Box2_Click()
If Range("B2") "" Then
MsgBox "Für diese Buchung existiert bereits eine Rechnung. Neue Rechnung nicht möglich!"
Exit Sub
End If
If Box2 = True Then
Sheets("Tabelle2").Select
Worksheets("Tabelle2").Range("A3").Value = "2"
Else
Worksheets("Tabelle2").Range("A3").Value = "100"
Exit Sub
End If
End Sub
Hoffe, das ist so einigermaßen verständlich beschrieben.
Grüße Sonja