Liebe Leute,
ich versuche, nachdem die Zelle "GewSchallDrckPeg" geändert wurde, der Zelle "GewSchallDrckPeg" den Wert "Hallo" zuzuweisen, um ihn anschließend zu formatieren. Der Rechner weiß zwar, dass er etwas tun muss, steigt aber kurz vor der Zuweisung des Wertes kommentarlos aus.
Kann mir jemand sagen wo das dran liegt - ich versuche schon seit Stunden ...
Schon mal Danke Markus
If Target.Address = Range("GewSchallDrckPeg").Address Then
ThisWorkbook.ActiveSheet.Range("Schalldruckpegel").Select
ActiveCell.FormulaR1C1 = "Hallo"
With ActiveCell.Characters(Start:=1, Length:=5).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = True
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End If