Bräuchte mal kurz eure Hilfe, da ich nicht weiterkomme.
Das folgende Makro hat zur Funktion wenn es in die Seite ( Tabellenblatt selbst ) verankert ist, dass man wenn man einen
bestimmten Bereich von Zellen mit der Maus anfährt und dort dann entweder Doppelklickt oder mit rechter Taste einfach klickt
, dort wird dann ein "X" eingefügt, klickt man nochmals darauf geht das "X" wieder weg.
Funktioniert super, habe ich von jemandem aus dem Forum vor einigen Wochen bekommen.
Meine Frage nun, kann man das erste Makro so umformulieren oben in der ersten Zeile, sodass die Funktion bereits beim einfachen linken Mausklick funkt., bisher muss man Doppelklicken.
Ich habe schon selbst versch. Formulierungen prob. wie zB. BeforeClick , BeforeLeftClick usw. hat aber leider nicht funkt.
Wüsstet ihr mir einen Rat, oder die genaue Bezeichnung, wäre euch sehr verbunden, Danke schonmal im Voraus, Gruß udo
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As range, Cancel As Boolean) 'BeforeDouble
If Target.Column <> 7 Then Exit Sub
If Target.Row >= 12 And Target.Row <= 507 Then
If Target.Value = UCase("O") Then
Target.Value = ""
Cells(ActiveCell.Row + 1, ActiveCell.Column + 1).Activate
Else
Target.Value = "O"
Cells(ActiveCell.Row + 1, ActiveCell.Column + 1).Activate
End If
End If
Cancel = True
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As range, Cancel As Boolean)
If Target.Column <> 7 Then Exit Sub
If Target.Row >= 12 And Target.Row <= 507 Then
If Target.Value = UCase("O") Then
Target.Value = ""
Cells(ActiveCell.Row + 1, ActiveCell.Column + 1).Activate
Else
Target.Value = "O"
Cells(ActiveCell.Row + 1, ActiveCell.Column + 1).Activate
End If
End If
Cancel = True
End Sub
Der Bereich indem dann das Makro reagiert in dieser Ausführung ist die Spalte 7 ( G ) Zeile G12 bis G507, dort dann einfach klicken