Hallo habe folgendes Problem ich muss eine

… exel liste erstellen bei der wenn man auf ein feld klickt ein Kreuzchen erscheint die Kreuzchen die dann enstehen sollen sich dann in einem bestimmten bereich addieren.

Klick in Zelle soll ein kreuz erscheinen lassen

… exel liste erstellen bei der wenn man auf ein feld klickt
ein Kreuzchen erscheint die Kreuzchen die dann enstehen sollen
sich dann in einem bestimmten bereich addieren.

Hallo Grußlose®,

in eine Zelle klicken und dann soll etwas geschehen geht nur mit Vba.
Du hast deine Version nicht angegeben wie hier erwünscht, in XL 2000 könntest du via Ansicht—Symbolleisten–Formular Kontrollkästechen in die Tabelle „ziehen“.

Klick in diese Kästchen wechselt dann zwischen leer und einem kreuz.
Du kannst sie mit einer Zelle verknüpfen und diese Zellen kannst da dann auswerten.

Gruß
Reinhard

hallo,
Kreuze zählen wäre einfach mit dem Befehl zählenwenn(von:bis;„x“)
eben wie Reihhard erwähnt in VBA wie folgt in zur passenden Tabelle:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell = „x“
End Sub

Danke schnonmal für die Antworten

hab da noch ne frage wie bekomme ich das hin das die Kreuzchen nur in einem bestimmtem bereich gesetzt werden können

hab da noch ne frage wie bekomme ich das hin das die Kreuzchen
nur in einem bestimmtem bereich gesetzt werden können

Hallo Excel-Carl

Welcher Bereich soll es denn sein??

Private Sub Worksheet\_SelectionChange(ByVal Target As Range)
 If Target.Column \> 3 Then Exit Sub ' \>\> nur Spalten A:C
 If Target.Row \> 10 Then Exit Sub ' \>\> nur Zeilen 1 : 10
Target.Offset(0, 0).Value = "+"
End Sub

Die zwei if sagen: Das Makro wird nur in den Spalten A:C und in den Zeilen 1 bis 10 ausgeführt. - Diese Bedingungen musst Du Deinen Vorgaben entsprechend anpassen.

Noch etwas anderes

Ich habe oben geschrieben: Target.Offset(0, 0).Value = „+“
Tilo hat geschrieben: ActiveCell = „x“
Der Unterschied zwischen den beiden Anweisungen: Wenn Du mehrere Zellen markierst, wird bei meiner Formulierung der ganze Bereich mit + gefüllt, bei Tilo nur die erste der ausgewählten Zellen.

Grüsse Niclaus

Vielen Dank für die Antwort

Hab mich wohl nicht so ganz klar ausgetrückt mach das grad zu ersten mal ich will nur in einer spalte kreuzchen setzten können bzw. exel vorgeben in welchen kästchen ich x haben will.

Gruß
Carl

Hab mich wohl nicht so ganz klar ausgetrückt mach das grad zu
ersten mal ich will nur in einer spalte kreuzchen setzten
können bzw. exel vorgeben in welchen kästchen ich x haben
will.

Hallo Carl,

Klick in Zelle setzt ein „x“, nochmaliger Klick in die Zelle löscht es wieder usw.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Intersect(Target, Range(„E:E“))
If Target Is Nothing Then Exit Sub
Target.Value = IIf(Target.Value = „x“, „“, „x“)
End Sub

Gruß
Reinhard

1 „Gefällt mir“

Vielen Dank Reinhard ist genau das was ich gebraucht habe

Gruß Carl