letztes Datum finden

[Phoeni]

Hallo Leute, ich habe ein Problem mit VBA,
ich suche eine Möglichkeit, das letzte eingegebene Datum eines Tabellenblattes in dem ich gerade arbeite, zu finden, nicht das aktuelle.
Die Schaltfläche muss kopierbar für alle Blätter sein, ich will damit vermeiden, das ich so viele VBA Codes für die Datei habe.
Ist so etwas möglich? 
Siehe Anhang
Danke Gruß Phoeni

[Klaus-Dieter]

Hallo,

das zuletzt eingegebene Datum wäre in deinem Beispiel: 26.04.2022, habe ich das richtig verstanden?

[Phoeni]

Hallo Klaus-Dieter, JA
ich hoffe, das ich später WIEDER einen anderen Gedanken habe den ich jetzt noch nicht überblicke oder erkennen kann.
Gruß Phoeni

[Klaus-Dieter]

Hallo,

dann brauchst du doch nur die letzte gefüllte Zelle ermitteln: LetzteZelle = Range("A1").End(xlDown).Row

[Phoeni]

Hallo, Danke. 
Und wo trage ich den Code ein? VBA ist es doch nicht?

[Klaus-Dieter]

Hallo,

das ist VBA.

[Phoeni]

Ich bekomme es nicht hin.
Danke

[Klaus-Dieter]

Hallo,


dann versuche es mal damit

[d'r Bastler]

Moin Phoeni,

Du lässt in Deiner Frage offen, ob Deine Daten sortiert sind. Zum Auffinden des letzten = höchsten Datums in Spalte A einer unsortierten Liste brauchst Du kein VBA und kannst diese Formel verwenden:

Code:

=ADRESSE(MAX(WENN(A:A=MAX(A:A);ZEILE(A:A)));1;4)

Wichtig: Es ist eine Matrix-Formel, deren Eingabe du mit STRG+UMSCHALT+ENTER abschließen musst. Platziere die Formel z.B. in B1 und es wird die Zelladresse des höchsten Datums in Spalte A angezeigt.

Grüße

---

Moin nochmal,

es geht natürlich auch mit VBA. Der Code gehört in die Tabelle:

Code:

Option Explicit

Sub MaxFinden()
Dim i As Integer, r As Integer
Dim sCell As String
r = UsedRange.Rows.Count
For i = r To 1 Step -1
    If Cells(i, 1) > Cells(i + 1, 1) Then
        sCell = "A" & i
    End If
Next i
MsgBox sCell
End Sub

Grüße

[RPP63]

Moin d'r Bastler!
Gemäß Deiner Signatur (man lernt nie aus):
Eine Matrixformel über eine ganze Spalte laufen zu lassen, ist kacke, da viel zu viele Berechnungen notwendig sind.
Um festzustellen, in welcher Zeile von Spalte A deren Maximum steht, reicht folgendes:
(und ja, hier kann man ohne Performanceverlust ganze Spalten angeben)

	A	B	C	D
1	22.06.2022
2	29.04.2022	Spalte A, Zeile:	3	28.12.2022
3	28.12.2022
4	11.08.2022
5	28.05.2022
6	10.08.2022
7	08.01.2022
8	30.08.2022
9	09.08.2022
10	25.07.2022
11	14.11.2022
12	27.01.2022
13	23.08.2022
14	19.03.2022
15	17.03.2022

Zelle	Formel
C2	=VERGLEICH(MAX(A:A);A:A;0)
D2	=MAX(A:A)

Genau so würde ich es auch mittels VBA lösen.

Sub Markiere_MaxDat()
Dim Hoch#
Hoch = Application.Max(Columns(1))
With Columns(1)
  .Cells(Application.Match(Hoch, .Cells, 0)).Select
End With
End Sub

Aber: Ich glaube, der TE will den "untersten" Eintrag ermitteln!
Per Formel (Frank Kabel in memoriam) so:
=VERWEIS(2;1/(A:A<>"");A:A)

Per VBA wie von Klaus-Dieter gezeigt.

Gruß Ralf