habe folgenden Code bekomme es für eine zweite Zelle nicht hin
Const Ziel As String = "J4" 'in diese Zelle wird das Ergebnis geschrieben
Const Bereich As String = "K4:K7" 'in diesem Bereich wird die Eingabe geprüft Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim c As Range For Each c In Target If Not Intersect(Range(Bereich), c) Is Nothing Then If IsNumeric(c) Then Range(Ziel) = c If Not IsNumeric(c) Then Range(Ziel) = c End If Next End Sub
Vielen Dank für Hilfe.