ich suche eine Lösung für das Suchen des letzten Datum Eintrags in der Spalte B. Es gibt keine leere Zellen nur div. Text und Datumwerte.
Besten Dank für eure Hilfe.
Gruss
Peter
Sub aaa()
Dim r As Long
For r = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If IsDate(Cells(r, 2)) Then
MsgBox "Zeile: " & r
Exit For
End If
Next r
End Sub
Gruß
Sub Datum_Suchen ()
'Anfang - suchen letztes maximales Datum in Spalte B:
Dim datMaxDatum As Date 'benötigt für suchen letztes Datum in Spalte B
Dim rng As Range 'benötigt für suchen letztes Datum in Spalte B
Dim wslzB As Long 'benötigt für suchen letztes Datum in Spalte B
Dim SuchWert As String
wslzB = .Cells(Rows.Count, 2).End(xlUp).Row
datMaxDatum = WorksheetFunction.Max(.Range("B1:B" & wslzB))
Set rng = .Range("B1:B" & wslzB).Find(what:=datMaxDatum, lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then ' prüfen, ob auch was gefunden wurde,
'hier nicht so wild, aber ggf bei anderen Konstellationen...
MsgBox rng.Column
MsgBox rng.Row
SuchWert = rng.Row
Debug.Print SuchWert
Else
End If
End Sub
'Ende - suchen letztes maximales Datum in Spalte B:
GrussC | |
1 | Zeile 18 |
verwendete Formeln | |||
Zelle | Formel | Bereich | N/A |
C1 | {="Zeile " &MAX(ZEILE(B1:B19)*ISTZAHL(B1:B19))} | $C$1 |