Supportnet / Forum / Tabellenkalkulation

hallo community, wie kann ich per mausklick in eine zelle ein häkchen oder x oder so "hineinklicken" bzw. bei nochmaligem klicken wieder rausnehmen? danke, dietmar

Bei Access geht sowas in einer 'Zelle' zubewerkstelligen, in Excel nur über die Programmierung in Excel-VBA. Du mußt ein Kontrollfeld erstellen, Code schreiben, was passieren soll, wenn man geklickt hat, auf welche Zelle, Tabell, Arbeitsmappe sich das auswirkt...

hallo michael,

hast du einen entsprechenden vba-code?
(bitte nicht über kontrollkästchen...)

danke, dietmar

Kannst du kurz beschreiben, was die Tabelle für Funktion haben soll?

Vielleicht kann ich bis morgen was programmieren ...

hallo michael,

beispiel:
Überschrift von
Spalte A: Vorname
Spalte B: Name
Spalte C: Frau
Spalte D: Mann.

nun möchte ich in den Spalten C oder D ein "x" setzen, je nach Geschlaecht der Person, die dann eingegeben wird.

Weiterverarbeitung später in Word/Serienbrief mit Filterfunktion.

Anmerkung:
Das eigentliche Ziel ist anders, würde hier aber zu weit führen.

danke, dietmar

Hi Dietmar,

nachfolgend ein Makro, dass ein x in die Zelle schreibt, wenn diese angeklickt wird:

Private Sub Worksheet_selectionchange(ByVal Target As Excel.Range)
   If Target.Column = 3 Then 'Die Zahl 3 sagt die Spalte aus.
          ActiveCell.FormulaR1C1 = "x"
 End If
   If Target.Column = 4 Then 'Die Zahl 4 sagt die Spalte aus.
          ActiveCell.FormulaR1C1 = "x"
          End If
End Sub

Um den Code einzufügen, öfffne in Excel mit der Tastenkombination ALT und F11 die VBA- Umgebung und kopiere den Code in die Tabelle (stehen auf der rechten Seite im VBA Projekt Fenster), in der der Code ausgeführt werden soll.

Ich hoffe, ich konnte Dir weiterhelfen,
coros
_{Und nicht vergessen, hier noch einmal zu posten, ob Dich die Hilfe weitergebracht oder sogar}
^{Dein Problem gelöst hat.}

hallo coros,

bis hier alles prima, geht sehr gut, (bei solchen sätzen folgt immer:) aber wie bekomme ich per mausklick die "x"e wieder weg?

danke, dietmar

Hi Dietmar,

also spontan würde mir da folgendes einfallen:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then 'Die Zahl 3 sagt die Spalte aus.
         Selection.ClearContents
 End If
   If Target.Column = 4 Then 'Die Zahl 4 sagt die Spalte aus.
          Selection.ClearContents
          End If
End Sub

Wenn Du die Zelle mit der rechten Maustaste anklickst, wird der Eintrag gelöscht. Ist leider keine ganz saubere Lösung, da danach immer das Menü geöffnet wird, was sonst auch beim Rechtsklick erscheint. Aber es funktioniert. Ich mache mir aber noch mal Gedanken über eine andere Lösung.

Ich hoffe, ich konnte Dir weiterhelfen,
coros
_{Und nicht vergessen, hier noch einmal zu posten, ob Dich die Hilfe weitergebracht oder sogar}
^{Dein Problem gelöst hat.}

Hallo Dietmar,

eine Beispielarbeitsmappe mit den von Dir geforderten Funktionen ist zu Dir unterwegs.

MfG,
coros
^{Jeder macht was er will, keiner macht was er soll aber alle machen mit.}

So, das Problem ist gelößt. Habe soeben die Rückmeldung von Dietmar bekommen. Für alle die es interessiert, hier das Makro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 And Target.Row >= 3 And Target.Value = "" Or Target.Column = 4 And Target.Row >= 3 And Target.Value = "" Then 'Die Zahl 3 sagt die Spalte aus.
          ActiveCell.FormulaR1C1 = "x"
   
ElseIf Target.Column = 3 And Target.Row >= 3 And Target.Value = "x" Or Target.Column = 4 And Target.Row >= 3 And Target.Value = "x" Then 'Die Zahl 3 sagt die Spalte aus.
          Selection.ClearContents
          End If
End Sub

MfG,
coros

• wieder Makro Code
• Hyperlinks in Word
• excel wenn bezug auf 2 zellen
• Berechnungsergebnis in andere Zelle
• Mausklick markiert mehrere Zeilen / Dateien