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ß WernerDie 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