title image


Smiley Re: Maximum mit VBA
Hallo chro1



versuch es mit diesem Code, oder pass ihn dir an:



Sub minmax()



Dim rng As Range

Dim Min As String

Dim Max As String

Dim MaxSpalte As Integer

Dim MinSpalte As Integer



For Each rng In Selection

If rng.Value > Max Then

Max = rng.Value

MaxSpalte = rng.Column

End If

Next



Min = Max



For Each rng In Selection

If rng.Value < Min Then

Min = rng.Value

MinSpalte = rng.Column

End If

Next



MsgBox ("Maximum: " & Max & " Spalte: " & MaxSpalte & " Minimum: " & Min & " Spalte: " & MinSpalte)



End Sub



Gruß Peter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: