Hallo zusammen,
gerne würde ich - wohl am schnellsten mit VBA - die Excelfarben
darstellen.
https://www.herber.de/bbs/user/128486.xls
Wie mache ich dies am besten? Danke für Eure Hilfe,
freundliche Grüsse,
Mike
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Row = 3 Then
If .Value <> "" Then
.Interior.Color = .Value
End If
End If
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle
If Not Intersect(Range("B3:O79"), Target) Is Nothing Then
For Each Zelle In Target
With Zelle
If .Value <> "" And IsNumeric(.Value) Then
.Interior.Color = Zelle
Else
.Interior.Pattern = xlNone
.Interior.TintAndShade = 0
.Interior.PatternTintAndShade = 0
End If
End With
Next
End If
End Sub
LG UweDSub Editieren_F2()
With Range("b3:n68")
.Value = .Value
End With
End Sub