title image


Smiley Re: Maximum mit VBA
Hi Christian,

wahrscheinlich gibt es eine elegantere Methode, aber so klappt es auch:







Sub Max()

Dim Zelle As Range

Dim Max As Double

Max = 0

For Each Zelle In Selection

If Zelle.Value > Max Then Max = Zelle.Value

Next

MsgBox Max

End Sub












Gruß Uwe (:o)

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: