Office: (Office 2013) Maximalwert aus einer Array-Spalte auslesen

Hallo,

Ich habe ein Array mit mehreren Spalten. Nun würde ich gerne den Maximalwert aus der ersten Spalte meines Array's auslesen.
Mein unterer Code ließt den Maximalwert aus dem ganzen Array aus, wie kann ich das nun auf eine Spalte begrenzen, ohne über eine Schleife eine Spalte in ein neues Array zu schreiben?

Code:

Gruß Faultier

:)

 

Hi,

wie wird das Array gefüllt?

 

Hallo Beverly

das Array wird über eine Schleife gefüllt.

Gruß

 

Hi,

dann würde ich folgendes machen - beim Füllen des Haupt-Arrays parallel dazu ein Hilfsarray mit nur 1 Spalte und den relevanten Daten befüllen und daraus mittels Application.Max(Hilfsarray) das Maximum ermitteln.

 

Hallo Beverly,

ok, vielen Dank.
Ist eine "Application.Max(Hilfsarray)" besser oder schneller als "WorksheetFunction.Max(Hilfsarray)"

Gruß Faultier

 

Moin,

alternativ sollte auch folgendes gehen, falls Werte in C1:E5 :
Code:

Das Array ist hier wegen des direkten Bezuges 1-basiert, beim füllen per Schleife ist das wahrscheinlich 0-basiert; dann entsprechend anpassen.

 

Hallo,

Du kannst die Spalten im Array auch direkt ansprechen.
Schau es dir mal an:

Option Explicit

Sub machs()
Dim arr(1 To 10, 1 To 5) '10 Zeilen 5 Spalten
Dim I As Integer
Dim L As Long
For I = 1 To 5 'das Array wird über eine Schleife gefüllt.
For L = 1 To 10
Randomize Timer
arr(L, I) = Rnd
Next
Next
Range("A1:E10") = arr 'Array Ausgeben
With WorksheetFunction
Range("A12") = .Max(.Index(arr, 0, 1)) 'Max-Werte der Spalten ausgeben
Range("B12") = .Max(.Index(arr, 0, 2))
Range("C12") = .Max(.Index(arr, 0, 3))
Range("D12") = .Max(.Index(arr, 0, 4))
Range("E12") = .Max(.Index(arr, 0, 5))
End With
End Sub


ransi

 

Hi,

ich habe mir angewöhnt, generell nur Application zu verwenden, da diese Schreibweise teilweise Vorteile mit sich bringt - so löst z.B. WorksheetFunction.Match einen Fehler aus, wenn der Suchbegriff nicht gefunden wird, was man (meines Wissens) nicht abfangen kann außer mit On Error Resume Next. Benutzt man dagegen diese Zeile mit nur Application

Code:

dann kann man den Fehler auch ohne On Error abfangen. Würde man allerdings hier Application.Worksheetfunction.Match versuchen, löst das immer noch einen Fehler aus.

 

Hi ransi,

danach habe ich schon lange gesucht - mir war zwar bekannt, wie man mittels Index und Match ein bestimmtes Element in einem mehrspaltigen Array ansprechen kann, aber eben nicht, wie man sich auf eine bestimmte Spalte insgesamt beziehen kann.

 

Hallo an alle Helfer,

Nun hab ich genau das, was ich gesucht habe.

Vielen Dank

Gruß Faultier

 

Hallo,

mit dem Maximalwert hat das wunderbar funktioniert, warum geht das mit der Summe nicht?
Code:

Gruß Faultier

 

Hallo Faultier,

wie zeigt sich das "Nichtfunktionieren"?

Nebenbei: Worksheetfunction. bzw. Application.Index mag komfortabel sein, ist bei großen Datenmengen (Ausgangsarrays) allerdings wesentlich langsamer als die gesuchte Spalte / Zeile / Bereich "von Hand" per Schleífe in ein anderes Array zu schaufeln. Bereits bei einer zweispaltigen Matrix dauert es in einem einfachen Test doppelt so lange. Je mehr Spalten, umso größer wird die Differenz (ein Vielfaches!).
Das Umschaufeln von Hand bleibt davon unbeeindruckt (und ist in einer kleinen Function schnell und übersichtlich ausgelagert).

Grüße
EarlFred

 

Hi,

Da kann man auch gleich zu Beginn so vorgehen wie in meinem Beitrag von 23.03.2015 18:06 vorgeschlagen.

 

Hallo Karin,

aber selbstverständlich kann man. Und mein Beitrag behauptet darüber hinaus: Man sollte es sogar. Wir reden hier ja von 90.001 Datensätzen mit 28 Spalten. Das mag bei einer einzelnen Berechnung noch nicht ins Gewicht fallen, aber bei bereits 10 Berechnungen sollte man es deutlich merken.

Aber noch einen ganz anderen Vorteil besitzt die Methode "von Hand umschaufeln": Man ist nicht an Limitationen der Arbeitsblattfunktion gebunden. Das Datenfeld im Beispiel bekäme mein Excel (2003) garnicht mit Index bearbeitet, da ist bei 65k Zeilen (wie im Arbeitsblatt eben auch) Ende.

Kurzer Code muss nicht immer besser sein (wobei jeder "besser" nach seinen Kriterien bestimmen mag).

Grüße
EarlFred

 

Sind alle Worksheetfunction. bzw. Application. Functionen langsamer als Schleifen oder nur die Index. Ich habe nämlich noch einige dieser Funktionen in meinem Code, weil ich dachte, eine Schleife dauert viel länger.
-Application.WorksheetFunction.Max
-Application.WorksheetFunction.Min
-Application.WorksheetFunction.CountIf
-Application.WorksheetFunction.Average
-Application.WorksheetFunction.Sum

Genau, deshalb habe ich das jetzt auch so gemacht.*wink.gif* Ich hatte die erforderliche Schleife sogar bereits in meinem Code, musste das nur mal erkennen und eine Zeile zufügen.

Gruß Faultier