fehlende Zurück Funktion
05.04.2017 08:59:44
Andreas
Ich hab mal ne Frage.
Ich nutze einen VBA Code zum farblichen markieren der aktiven Zelle.
Nun ist mir aufgefallen, das die Möglichkeit der "Zurücknahme der letzten Eingabe"
mit Hilfe des Zurück Button, nicht funktioniert. Wenn ich den Code entferne, funktioniert dieses wieder wie gewohnt.
Nun weiß ich nicht, ob der Code ein Fehler enthält und ob man diesen beseitigen kann.
Der Code lautet:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fehler
Cells.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="="
' hier Farbe einstellbar
Selection.FormatConditions(1).Interior.Color = 16764159
' grün 3407718
' gelb 65535
' orange 39423
' rot 255
' grün hell 13434828
' gelb hell 13434879
' blau hell 16777164
' rosa hell 13421823
' Lila hell 16764159
Err.Clear
Fehler:
If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Vielleicht kann mir jemand einen Tip geben.
Danke im voraus.
Andreas