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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen