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 |
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen