Office: Letzten Eintrag aus verschiedenen Zellen in A1

Hallo an alle,
Brauche bitte Hilfe.
Ich möchte, dass in Zelle A2 immer der letzte Eintrag aus Zelle B2 bis K2 steht.
Das heißt, wenn ich in E2 zum Beispiel "456" schreibe, dann soll es in A2 stehen.
Wenn ich eine Minute später in K2 "8958" schreibe, dann soll es in A2 stehen.
Also immer den letzten Eintrag automatisch in A2 anzeigen, bis sich etwas in B2, C2, D2,
E2, F2, G2, H2, I2, J2 oder K2 ändert. Ist das auch ohne VBA realisierbar?
Danke, LG

 

Moin

Der Klassiker.

Code:

=VERWEIS(9^99;B2:K2)

 

Hallo,
funktioniert nur bedingt. Wenn in B2 bis K2 ein Wert in der Zelle steht,
und ich den Wert in E2 ändere, dann wird der Wert nicht übernommen.
Es kann sein, dass in allen Zellen ein Wert steht und in A2 sollte immer
der zuletzt geänderte stehen.

 

Vergessen, es sollte auch mit Wörtern funktionieren.

 

Achso. Du meinst den zeitlich letzten Eintrag. Dann wird das wohl eine VBA-Lösung.

 

Genau, gibt es eine VBA-Lösung?

 

Hallo,

folgenden VBA-Code in das Codemodul des betreffenden Arbeitsblattes eingeben/kopieren:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim rng As Range
   If Target.Cells.Count = 1 Then
      Set rng = Intersect(Range("B2:K2"), Target)
      If Not rng Is Nothing Then
        Me.Range("A2").Value = Target.Value
      End If
   End If
End Sub

Wird im Zellbereich B2:K2 in einer Zelle ein Wert eingegeben, wird auch in Zelle A2 dieser Wert gespeichert.

 

Hi,

ich würde es so lösen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Intersect(Target, Range("B:K"))
If Not Bereich Is Nothing Then
    For Each Zelle In Bereich
        If Zelle.Row >= 2 Then
            Cells(Zelle.Row, "A") = Zelle
        End If
    Next Zelle
End If
End Sub

Damit funktioniert es in allen Zeilen (außer der ersten) und man kann auch mehrere Zellen gleichzeitig ändern. Werden mehrere Zellen in einer Zeile geändert, so wird am Ende vermutlich die am weitesten rechts stehende Zelle in Ax stehen.

 

Ich danke euch 1000 mal. Beide Varianten funktionieren PERFEKT.