Makro beim anklicken ausführen

Hallo zusammen,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public LastCell As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not LastCell Is Nothing Then Debug.Print LastCell.Address If Not Application.Intersect(LastCell, Range("C8:J32")) Is Nothing Then With Worksheets("Randomplanvergleich") If LastCell.Value .Cells(LastCell.Row, LastCell.Column).Value Then .Cells(LastCell.Row, LastCell.Column).Interior.Color = vbRed End If End With End If End If Set LastCell = Target End Sub

Hallo Manuel,
XL Profi + VBA gut? Geht wohl etwas an der Realität vorbei.
Warum gibt dein Betreff eine Lösung vor?
Deine Problembeschreibung:
Und zwar möchte ich ein Abgleich zwischen zwei Zellen machen wenn in eine geklickt wurde.Und zwar möchte ich ein Abgleich zwischen zwei Zellen machen wenn in eine geklickt wurde.
...und was ist mit der zu vergleichenden Zelle? Wurde die auch geklickt? Oder soll sie programmatisch ermittelt werden? Was sind die Regeln, für die Auswahl der 2 zu vergleichenden Zellen? Sind das immer Einzelzellen, oder können es auch verbundene Zellen sein?
Probleme genau zu beschreiben, geben einem oft schon Hinweise auf mögliche Lösungsansätze.
Also bitte das Ganze von Vorn.
Gruess Hansueli

Option Explicit Public LastCell As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not LastCell Is Nothing Then If Not Application.Intersect(LastCell, Range("C8:J32")) Is Nothing Then With Worksheets("Randomplanvergleich") If LastCell.Value .Cells(LastCell.Row, LastCell.Column).Value Then .Cells(LastCell.Row, LastCell.Column).Interior.Color = vbRed End If End With End If End If Set LastCell = Target End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("C8:J32")) Is Nothing Then If Target.Count = 1 Then With Sheets("Randomplanvergleich").Range(Target.Address) If Target.Value .Value Then .Interior.Color = vbRed End If End With End If End If End Sub

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro beim anklicken ausführen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread