Wieso MIN immer Null?
08.04.2006 13:17:16
Christian
Beim Minimum kommt immer 0 heraus, obwohl keine 0 in den zu durchsuchenden Zellen vorkommt.
Setze ich die Minimumberechnung vor die Maximumberechnung, dann kommt beim Max auch 0 heruas.
Dachte mir das liegt daran, dass für den die Berechnung nciht genug Zeit ist und hab eine Pause eingebaut (weiß nicht, ob die so richtig ist), aber das hilft auch nichts.
Woran kann das liegen?
----------
Sub zaehlen()
Dim zeitunten
Dim zeitunten2
Dim ender
Dim pause
Dim start
Dim ende
Dim i, j
Dim anfangreihe
Dim anfangsspalte
Dim LetzteReihe
Dim LetzteReihe2
Dim eroeffnung
Dim schluss
Dim hoechst
Dim tief
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim wks3 As Worksheet
Set wks1 = ThisWorkbook.Sheets("Tabelle1")
Set wks2 = ThisWorkbook.Sheets("Tabelle2")
Set wks3 = ThisWorkbook.Sheets("Tabelle3")
anfangsreihe = 1
anfangsspalte = 11
LetzteReihe = wks1.Cells(Rows.Count, 11).End(xlUp).Row 'sucht letzte zelle
zeitunten = wks1.Cells(LetzteReihe, anfangsspalte).Value 'liest die Startzeit aus
ender = zeitunten + TimeValue("00:05:00") 'haengt 5 minuten dran
j = 4
For i = anfangsreihe To LetzteReihe
~f If ender > wks1.Cells(i, anfangsspalte) Then
wks1.Rows(i).Cut wks2.Rows(j)
j = j + 1
End If
Next i
LetzteReihe2 = wks2.Cells(Rows.Count, 11).End(xlUp).Row 'sucht letzte zelle
zeitunten2 = wks2.Cells(LetzteReihe2, 11).Value 'liest die Startzeit aus
eroeffnung = wks2.Cells(LetzteReihe2, 5).Value
schluss = wks2.Cells(5, 5).Value
pause = 5
start = Timer
ende = start + Timer
~f If ende > Timer Then
End If
tief = WorksheetFunction.Min(Range("H4:H" & LetzteReihe2)) 'HIER IST DAS PROBLEM
pause = 5
start = Timer
ende = start + Timer
~f If ende > Timer Then
End If
hoechst = WorksheetFunction.Max(Range("G4:G" & LetzteReihe2))
wks3.Range("A2").Value = Date
wks3.Range("b2").Value = zeitunten
wks3.Range("c2").Value = eroeffnung
wks3.Range("d2").Value = hoechst
wks3.Range("e2").Value = tief
wks3.Range("f2").Value = schluss
End Sub
------------
Danke für eure Hilfe!