AW: Zellenhintergrund bei Eingabe ändern
17.12.2011 13:22:04
Hajo_Zi
Hallo Christian,
irgendwann ist dann alles Rot.
Option Explicit
Private Sub Workbook_Open()
' von Nepumuk
If CallByName(Selection, IIf(Val( _
Application.Version) > 11, "CountLarge", "Count"), VbGet) = 1 Then
StTarget = ActiveCell
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' von Nepumuk
If CallByName(Selection, IIf(Val( _
Application.Version) > 11, "CountLarge", "Count"), VbGet) = 1 Then
If Target StTarget Then
Target.Interior.Color = 255
End If
End If
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If CallByName(Selection, IIf(Val( _
Application.Version) > 11, "CountLarge", "Count"), VbGet) = 1 Then
StTarget = ActiveCell
End If
End Sub