Makro beim anklicken ausführen
31.08.2020 11:12:04
Manuel
ich habe ein Problem. Ich weiß dieses Thema gab es so in der richtung schon öffters aberzu meinen spezifischen Problem habe ich nichts gefunden.
Und zwar möchte ich ein Abgleich zwischen zwei Zellen machen wenn in eine geklickt wurde.
Habe dazu diesen kurzen Code geschrieben:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lngR As Long
Dim lngC As Long
If Not Application.Intersect(Target, Range("C8:J32")) Is Nothing Then
lngR = ActiveCell.Row
lngC = ActiveCell.Column
If Selection.Value Sheets("Randomplanvergleich").Cells(lngR, lngC).Value Then
Sheets("Randomplanvergleich").Cells(lngR, lngC).Interior.Color = vbRed
End If
End If
End Sub
Mein Problem ist nun aber das wenn ich das so ausführe ich einen Abgleich nicht mit der gerade veränderten Zelle mache sondern mit der, bei Enter, zb der darunterliegenden.
Hat jemand eine Idee?
Habe gerade einen Konten im Kopf.
Viele Grüße
Manuel