Ich möchte nun in EINER Zelle die 3 Werte von Spalte A anzeigen, die bei Spalte D das neueste Datum anzeigen. (Es reichen die letzten 3 Werte, kommagetrennt...)
(Wie) kann man das lösen?
A | B | C | |
1 | 4; 2; 6 | 1 | 12. Mrz |
2 | 2 | 25. Jun | |
3 | 3 | 14. Mrz | |
4 | 4 | 27. Jun | |
5 | 5 | 16. Mrz | |
6 | 6 | 17. Mrz |
Formeln der Tabelle | ||||
|
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Anz%, Wo%, Z As Range
If Not Intersect(Target, Range("A:B")) Is Nothing Then
Set Z = Cells(Target.Row, 4)
Anz = Len(Z) - Len(Replace(Z, ",", "")) 'Anzahl Kommas
If Z = "" Then 'kein Wert enthalten
Z = Target
ElseIf Anz < 2 Then 'einer oder 2 Werte drin
Z = Z & "," & Target
Else '3 Werte enthalten
Wo = InStr(Z, ",")
Z = Mid(Z, Wo + 1, Len(Z) - Wo) & "," & Target
End If
End If
End Sub