SelectionChange ByVal funktioniert nicht
Dietmar
nachfolgender Code funktioniert nicht.
Was mache ich falsch? Eine Fehlermeldung wird nicht erzeugt.
Wenn in Zelle A1 die Ziffer 1 erzeugt wird (durch Optionsschalter), soll in Zelle E22 die Zahl 25
erzeugt werden. Sofern durch den zweiten Optionsschalter die Ziffer 2 generiert wird, soll in Range("E22") eine 1 erzeugt werden.
Viele Grüße
Dietmar aus Aachen
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "A1" Then
If Target.Value = 1 Then Range("E22").Value = 25
If Target.Value = 2 Then Range("E22").Value = 1
End If
End Sub