Aktion durchführen wen ENTF Taste gedrückt wurde
14.12.2018 10:45:52
Martin
folgendes habe ich bisher als Change Ereignis in meinem Worksheet hinterlegt.
Private Sub Worksheet_Change(ByVal Target As Range)
'Bei Änderungen in einer bestimmten Spalte...
If Target.Column = 16 Then
'Wenn der Inhalt der geänderten Zelle ungleich der links daneben stehenden Zelle ist, dann _
Farbe orange setzen
If Target.Cells.Value Target.Cells.Offset(0, -1).Value Then
'wieder blauen Hintergrund bekommen
Target.Cells.Interior.ColorIndex = 45
'ansonsten die Farbe auf blau setzen
Else
Target.Cells.Interior.ColorIndex = 24
End If
End If
End Sub
Es wird geprüft, ob ich in Spalte 16 eine Zelle geändert habe. Wenn dem so ist wird geprüft, ob der geänderte Inhalt in der Zelle ungleich dem der Zelle links daneben ist. Wenn ja wird die geänderte Zelle orange hinterlegt, ansonsten wird sie blau hinterlegt.Das funktioniert so auch wunderbar.
Nun mein Problem
Zusätzlich zu obiger Prüfung möchte ich abprüfen können, ob in Spalte 16 in einer Zelle die Taste ENTF gedrückt wurde, sodass die Zelle dann leer ist.
Wenn dem so ist, soll die Farbe auch auf blau (Indexcolor=24) gesetzt werden.
Eine Prüfung gegen Value="" hilft mir hier nicht weiter, da ein leerer Inhalt ggf. auch eine relevante Änderung darstellt, bei der mir die Zelle mit orange hinterlegt werden soll.
Deshalb meine Frage, wie kann ich in einer bestimmten Spalte in einem bestimmten Worksheet prüfen, ob die Taste ENTF gedrückt worden ist und dann darauf reagieren und damit dann obige if Prüfungen gegen "Target.Cells.Value" überstimmen?
Heißt ich müsste wissen wie ich prüfen kann " Wenn Taste ENTF in der aktiven Zelle gedrückt wurde, dann mach ..."
Das ganze würde ich am liebsten mit in das Worksheet_Change Ereignis einbauen.
Hoffe mir kann jemand weiterhelfen.
Gruß Martin