AW: Meldung anzeigen bei Wertüberschreitung
23.10.2019 15:53:06
mike49
ich möchte dasdie Darstellung des "U" über das Makro festt darstellen. Wie muss das Makro verändert werden?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const adRelBer$ = "B7:AF42, AS7:AS42", txRelSym$ = "U"
Cancel = Not Intersect(Target, Me.Range(adRelBer)) Is Nothing
If Cancel Then
Me.Unprotect
Target = IIf(IsEmpty(Target), txRelSym, Empty)
Target.Font.Color = IIf(Target = txRelSym, 255, 0)
Me.Protect
End If
End Sub
mike49
Anzeige