Formelergebnis
nicki
bin dankbar für jede antwort!
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(0, 0) <> "B1" Then Exit Sub 'Eingaben werden B1 getätigt
Range("A65536").End(xlUp).Offset(1) = [a1]
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Address(0, 0)
Case "B1"
Range("A65536").End(xlUp).Offset(1) = [a1]
Case "D1"
Range("C65536").End(xlUp).Offset(1) = [c1]
End Select
End Sub