Min/Max Datum suchen, Spalte merken
29.10.2003 09:46:55
Tobias
Mein Problem ist folgendes: Ich möchte in einer Tabelle das kleinste/größte Datum finden und dann die Spalte ausgeben. Mein bisheriger Quellcode:
Public zeile As Integer, spalte As Integer, name As String
Public
Sub MAXMINSuchen()
Dim datMaxDatum As Date
Dim datMinDatum As Date
Dim rng As Range
datMaxDatum = WorksheetFunction.Max(Range("a1:z1"))
datMinDatum = WorksheetFunction.Min(Range("a1:z1"))
MsgBox datMaxDatum & vbCrLf & datMinDatum, vbOKOnly, "Max- und Min-Datum"
Set rng = Columns(1).Find(what:=datMinDatum, lookat:=xlWhole, LookIn:=xlValues)
spalte = rng.Column
MsgBox prompt:=spalte
End Sub
bis zur ersten MsgBox klappt alles wunderbar, doch bei spalte = rng.Column sagt er: Object variable or With block variable not set. Was ist der Fehler?
Vielen Dank an alle, die versuchen mir zu helfen!