Größte Zahl innerhalb Makro ermitteln
31.07.2005 19:43:39
maik
kennt jemand von Euch im VBA eine Funktionsbezeichnung um die größte Zahl zu ermitteln?
ich habe die Funktion im Makro einmal wie folgt genannt um Euch das Problem zu verdeutlichen:
"Max(lz1, lz2, lz3, lz4)"
Anbei mein Quellcodeversuch:
Sub Makro3()
lz1 = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
lz2 = Cells.Find("*", [B1], , , xlByRows, xlPrevious).Row
lz3 = Cells.Find("*", [P1], , , xlByRows, xlPrevious).Row
lz4 = Cells.Find("*", [W1], , , xlByRows, xlPrevious).Row
For i = ****Max(lz1, lz2, lz3, lz4)**** To 4 Step -1
If Cells(i, 1).Value = "" Or Cells(i, 2).Value = "" Then
If Not (Cells(i, 1).Value = "" And Cells(i, 2).Value = "") Then
MsgBox i
Else
Cells(4, 1).Select
End If
End If
Next i
End Sub
Vielen Dank
Maik
Anzeige