soll es sich dabei um einen festen Wert handeln? Soll das für alle Zellen gelten? Schau Dir mal das Ereignis Worksheet_SelectionChange im Modul der Tabelle an.
Gruß
Peter
Die Frage kommt mit sehr bekannt vor:
Gruss
Markus
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' "X" Markieren bei klick in "X" Spalte
If Target.Column = 7 And Target.Row >= 12 And Target.Row <= 50 And Target.Cells.Count = 1 Then
'( hier im Beispiel Spalte 7 "G" von Zeile 12 bis 50 kannst du mit links klicken, dann
' wird der untere Wert "X" eingeschrieben )
' wenn du einen Wert aus irgendeiner Bezugszelle drinne stehen haben möchtest, must du
' = "X" mit = (Cells( 4, 2)) austauschen, dass wäre zB: Zelle B4
' wenn du nun in dem festgelegten Bereich klickst wird also ein "X" eingefügt, und wenn du nochmals
' darauf klickst wieder gelöscht
If ActiveCell = "X" Then
ActiveCell = ""
Else
ActiveCell = "X"
End If
End If
Ende:
End Sub
If Target.Column <> 8 Then Exit Sub
If Target.Row >= 12 And Target.Row <= 50 Then
If Target.Value = "" Then
ActiveCell = "X"
Else
Target.Value = ""
End If
End If
Cancel = True
End Sub
das nachstehende Makro ist ereignisgesteuert, d.h., dass es im entsprechenden Tabellenblatt-Modul untergebracht werden muss.
Das geht so:
- Mache einen Rechtsklick auf den Tabellennamen (Reiter).
- Klicke dann auf "Code anzeigen".
- Automatisch öffnen sich nun der VB-Editor und das Klassenmodul des betreffenden Tabellenblattes.
- Schreibe/kopiere das nachstehende Makro in die große weiße Fläche auf der rechten Seite.
- Zurück zum "normalen" Excel geht's mit Alt + Q.
- Fertig.
Viel Erfolg wünscht
WernerB.