Office: MIN/MAX Funktion in VBA

masel · 1. Mai 2005

Moin ins Forum,

kann mir jemand sagen, wie ich ich aus einer beliebig langen Zahlreihe den maximalen und den minimalen Wert herauslesen kann, ohne den hässlichen Umweg über eine quasi-VBA-freie Lösung wie im Code unten zu gehen?

Code:

Range("C15").Select
ActiveCell.FormulaR1C1 = "=MAX(R[-10]C[-1]:RC[-1])"
Range("C26").Select
ActiveCell.FormulaR1C1 = "=MIN(R[-9]C[-1]:RC[-1])"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke und Grüsse!

:)

User · 3. Mai 2005

Hallo masel,

Code:

Sub Tes()
MsgBox Application.WorksheetFunction.Max(Range("A6:AA6"))
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

masel · 3. Mai 2005

Hallo Hajo,

herzlichen Dank, so

Code:

wksOutput.Activate
lngLastRow = Range("F1").End(xlDown).Row
outMax = Application.WorksheetFunction.Max(Range("F1:F" & lngLastRow))
outMin = Application.WorksheetFunction.Min(Range("F1:F" & lngLastRow))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

habe ich es nun eingebaut und es funktioniert. Kann ich mit
Application.WorksheetFunction.XX für XX jede beliebige Arbeitsblattfunktion einsetzen?

User · 3. Mai 2005

Hallo masel,

welche wird Dir doch im VBA Editor angezeigt. Es ist nur zu Beachten in VBA ist alles Englisch.

Gruß Hajo

Das Forum lebt auch von den Rückmeldungen.

jinx · 3. Mai 2005

Moin, masel,

meines Wissens nur diejenigen, die keine Entsprechung in VBA haben - leider hilft da die VBA-Hilfe nicht wirklich weiter... *rolleyes.gif* Aber die automatische Quickinfo nach dem Setzen des Punktes hinter WorksheetFunction in der VBE kann helfen *wink.gif*

masel · 3. Mai 2005

Herzlichen Dank für die eigentlich Threadfremde Zusatzinfos @Hajo AND jinx *wink.gif*

Mit steigendem MOF-Wissen (Ich habe eben meinen fuffzigsten Beitrag geschrieben und damit einen Stern bekommen *grins juhuu) bin ich auch erst richtig in der Lage, die VBA Hilfe zielgerichtet zu durchforsten und darüber hinaus ständig mit dem Rekorder alles mögliche auszuprobieren.

Die Quickinfoleiste habe ich an, funktioniert bei mir scheinbar aber eher willkürlich. Das wird aber auch kontinuierlich besser.

Auf jeden Fall nocheinmal herzlichen Dank an Euch Excel-Experten, Eure Unterstützung hier im Forum und die Riesensumme der Beiträge ist Goldwert. Ich will ein guter User sein und mit meinem kontinuierlich wachsenden Wissen schon bald versuchen, auch gute Hilfestellungen hier im Forum geben zu können!

Beste Grüße von Masel (Bald mit neuem Bild...)

masel · 8. Dezember 2005

Hajo_Zi hat mir geraten auf Select und Activate Anweisungen zu verzichten, also dachte ich mir, ich versuchs mal auf die MIN/MAX VBA-Lösung anzuwenden.

Code:

Private Sub Berechnung_Click()

Dim WsDaten As Worksheet
Dim WsOutput As Worksheet
Dim lngLastRow As Long

Set WsDaten = Worksheets("CO2Index")
Set WsOutput = Worksheets("Output")

lngLastRow = WsDaten.Range("A2").End(xlDown).Row

WsOutput.Cells(9, 3) = WsDaten.Application.WorksheetFunction.Min(Range("A2:A" & lngLastRow))
WsOutput.Cells(10, 3) = WsDaten.Application.WorksheetFunction.Max(Range("A2:A" & lngLastRow))

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sieht in meinen Augen toll aus, geht aber mal wieder nicht *frown.gif*

Was habe ich denn schon wieder falsch gemacht?

Danke und Grüsse

jinx · 8. Dezember 2005

Moin, masel,

eine kleine Umstellung sollte Wunder bewirken - das Umsetzen von WSDaten:

Code:

Private Sub CommandButton1_Click()

Dim WsDaten As Worksheet
Dim WsOutput As Worksheet
Dim lngLastRow As Long

Set WsDaten = Worksheets("CO2Index")
Set WsOutput = Worksheets("Output")

lngLastRow = WsDaten.Range("A2").End(xlDown).Row

WsOutput.Cells(9, 3) = Application.WorksheetFunction.Min(WsDaten.Range("A2:A" & lngLastRow))
WsOutput.Cells(10, 3) = Application.WorksheetFunction.Max(WsDaten.Range("A2:A" & lngLastRow))

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 8. Dezember 2005

Hallo Masel,

der Code war fast korrekt. Es fehlten 2 Zeilen und die Range hatten keinen Bezug.
Code:

Option Explicit

Private Sub Berechnung_Click()
Dim WsDaten As Worksheet
Dim WsOutput As Worksheet
Dim lngLastRow As Long
Set WsDaten = Worksheets("CO2Index")
Set WsOutput = Worksheets("Output")
lngLastRow = WsDaten.Range("A2").End(xlDown).Row
WsOutput.Cells(9, 3) = Application.WorksheetFunction.Min(WsDaten.Range("A2:A" & lngLastRow))
WsOutput.Cells(10, 3) = Application.WorksheetFunction.Max(WsDaten.Range("A2:A" & lngLastRow))
Set WsDaten = Nothing
Set WsOutput = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

masel · 8. Dezember 2005

danke jinx und Hajo_Zi!

Ich nehme mal Best-of-Both-Worlds
Code:

WsOutput.Cells(9, 3) = Application.WorksheetFunction.Min(WsDaten.Range("B2:B" & lngLastRow))
WsOutput.Cells(10, 3) = Application.WorksheetFunction.Max(WsDaten.Range("B2:B" & lngLastRow))

Set WsDaten = Nothing
Set WsOutput = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Herzlichen Dank!

Office: MIN/MAX Funktion in VBA

MIN/MAX Funktion in VBA

MIN/MAX Funktion in VBA

MIN/MAX Funktion in VBA

MIN/MAX Funktion in VBA

MIN/MAX Funktion in VBA - Similar Threads - MIN MAX Funktion

Drehfeld - Min und Max als Zellenwert festlegen

Max- Min- Mittelwert pro Tag

Wenn Max min Funktion

Zellenwert einer Berechnung auf MIN und MAX- Wert begrenzen

Min- und Max-Funktion

Primärachse (horizontal) im angezeigten Bereich einschränken

MIN / MAX Funktion mit einer Bedingung