ich habe eine Zelle, die ich mit der Formel
=wenn(Datei!D4=1;"Wert 1 1)";"Wert 2 1)")
belegt habe.
Ich möchte, dass der Text "1)" hochgestellt ist.
Wie geht das?
Danke
Grüße
Andy
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$4" Then
If Target = 1 Then
Range("A1") = "Wert 1 1)"
Else
Range("A1") = "Wert 2 1)"
End If
Range("A1").Characters(Len(Range("A1")) - 2, 3).Font.Superscript = True
End If
End Sub