MAX in VBA
06.08.2014 19:26:21
Spenski
in Spalte B:D stehen Datumseinträge die nicht grösser sein dürfen als der Datumseintrag in Spalte A.
hab nach einiger zeit archive durchstöbern so gelösst:
Sub Schaltfläche1_Klicken()
Dim lloRow As Long, liCounter As Integer
For lloRow = 1 To 100
If Not Range("A" & lloRow).Value = "" Then
If Range("B" & lloRow).Value >= Range("A" & lloRow) Or Range("C" & lloRow).Value >= _
Range("A" & lloRow) Or Range("D" & lloRow).Value >= Range("A" & lloRow).Value Then
liCounter = liCounter + 1
End If
End If
Next
MsgBox "Fehler : " & liCounter
End Sub
funktioniert astrein , aber mich würde interessieren wie dieser Fall mit MAX ausehen würde. also wenn(max(B1;C1;D1)>=A1;1;0) ...im Macrorecorder kommen nur relative codes raus
gruss
christian
ps ist nicht eilig^^