|
Guten Tag,
ich verzweifle momentan an einer Funktion, wo ich denke das die Lösung relativ unkompliziert sein wird, nur ich ein Brett vorm Kopf habe.
Programm: Excel
Ich möchte gerne in einer Zelle (A1) einen Wert eintragen (Zahl 1), nachdem ich den Wert mit Enter bestätige, möchte ich das dieser Wert (Zahl 1) auch in einer anderen Zelle (B2) auftaucht und der Cursor wieder zurück in die Ursprungs-Zelle (A1) springt.
Das klappt soweit auch mit folgendem Lösungsansatz:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B2").Value = Range("A1").Value
End Sub
-------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Range("A1").Select
End Sub
Jetzt zum Problem. Nachdem der Cursor wieder in der Ursprungs-Zelle ist, möchte ich einen weiteren Wert (Zahl 2) eingeben und nach der Bestätigung soll der neue Wert (Zahl 2) in Zelle B2 stehen und der vorherige Wert (Zahl 1) soll nun in eine Zelle (C2) direkt daneben eingetragen werden. Das soll dann immer weitergeführt, bis am Ende sechs eingegebene Zahlen nebeneinander aufgelistet sind. Beim Eintragen der siebten Zahl soll dieser Wert wieder in der Zelle B2 auftauchen und das "Array" wird wieder von neu befüllt.
Ich hoffe man kann mir zur Lösung helfen.
Beste Grüße
X-Tase
|