Sub aaa()
Dim Zelle As Range
Dim wks As Worksheet
Set wks = Worksheets("Eingabe")
With wks.Range("E:E")
Set Zelle = .Find(Date, LookIn:=xlValues)
End With
End Sub
Sub aaa()
Dim Zelle As Range
Dim wks As Worksheet
Set wks = Worksheets("Eingabe")
With wks.Range("E:E")
Set Zelle = .Find(Date, LookIn:=xlValues)
End With
End Sub
Sub aaa()
Dim Zelle
Dim wks As Worksheet
Set wks = Worksheets("Eingabe")
With wks.Range("E:E")
Zelle = Application.WorksheetFunction.Max(Range("E:E"))
End With
Zelle = Zelle.Address
End Sub
Sub aaa()
Dim Zelle
Dim wks As Worksheet
Set wks = Worksheets("Eingabe")
With wks.Range("E:E")
Set Zelle = .Find(Application.WorksheetFunction.Max(Range("E:E")), LookIn:=xlValues)
End With
Zelle = Zelle.Address
MsgBox (Zelle)
End Sub
Sub aaa()
Dim Zeile As Variant
With Worksheets("Eingabe")
Zeile = Application.Match(Application.WorksheetFunction.Max(Columns("E")), Columns("E"), 0)
If Not IsError(Zeile) Then
MsgBox "Größtes Datum steht in Zeile " & Zeile
MsgBox .Range("E" & Zeile).Address
Else
MsgBox "Fehler: Kein Datum in Spalte E gefunden"
End If
End With
End Sub
Gruß Werner