Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.10.2025 18:18:42
Anzahl in einer Zelle automatisch ermitteln
04.10.2025 17:44:54
Power Query - Filtern einer Spalte mittels einer Liste
04.10.2025 15:35:03
Range um eine Einzelzelle erweiternerweitern
04.10.2025 14:27:49
Was ist mit dem CEF Forum passiert?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1508to1512
1508to1512
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Funktion für das min/max eines arrays

Forumthread: Funktion für das min/max eines arrays

Funktion für das min/max eines arrays
26.08.2016 15:11:59
Gerhard
Hallo Leute
Ich versuche seit geraumer Zeit mir eine Funktion zu schreiben, welche mir die Min bzw Maximalwerte eines mehrdimensionalen Arrays in einem neuen Array ausgibt.
Das Array beinhaltet auch leere Datenfelder, was zu dem Problem führt, dass der Rückgabewert Null ist. Da es sich bei dem Daten um Koordinatenpunkte handelt brauche ich allerdings die null auch, weshalb ich das Array mit Daten des types string fülle.
Nachfolgend findet Ihr die Funktionen mit einem Beispiels des Arrays
Sub test1()
Dim myarray(10, 1)
Dim myarray_min()
myarray(0, 0) = -25
myarray(1, 0) = 55
myarray(2, 0) = 0
myarray(2, 0) = 45
myarray(3, 0) = -15
myarray(4, 0) = ""
myarray(5, 0) = ""
myarray(6, 0) = ""
myarray(7, 0) = ""
myarray(8, 0) = ""
myarray(9, 0) = ""
myarray(10, 0) = ""
myarray(0, 1) = ""
myarray(1, 1) = ""
myarray(2, 1) = ""
myarray(3, 1) = ""
myarray(4, 1) = ""
myarray(5, 1) = -15
myarray(6, 1) = -35
myarray(7, 1) = -47
myarray(8, 1) = -15
myarray(9, 1) = 0
myarray(10, 1) = ""
myarray_min = MIN_von_arr_test(myarray)
myarray_max = MAX_von_arr_test(myarray)
For i = 0 To 1
Debug.Print (myarray_min(i))
Debug.Print (myarray_max(i))
Next i
End Sub


Function MAX_von_arr_test(ByVal arr As Variant)
Dim Dim_arr As Long
Dim_arr = arr_Dim_count_Test(arr)
ReDim arr_max(Dim_arr - 1)
If Not IsArray(arr) Then Exit Function
On Error Resume Next
For i = 0 To Dim_arr
For j = LBound(arr) To UBound(arr)
For k = LBound(arr) To UBound(arr)
If IsNumeric(arr(j, i)) And IsNumeric(arr(k, i)) And _
CDbl(arr(j, i)) > CDbl(arr(k, i)) And CDbl(arr(j, i)) > arr_max(i) Then
arr_max(i) = CDbl(arr(j, i))
End If
Next k
Next j
Next i
MAX_von_arr_test = arr_max
End Function


Function MIN_von_arr_test(ByVal arr As Variant)
Dim Dim_arr As Long
Dim_arr = arr_Dim_count_Test(arr)
ReDim arr_min(Dim_arr - 1)
If Not IsArray(arr) Then Exit Function
On Error Resume Next
For i = 0 To Dim_arr
For j = LBound(arr) To UBound(arr)
For k = LBound(arr) To UBound(arr)
If IsNumeric(arr(j, i)) And IsNumeric(arr(k, i)) And _
CDbl(arr(j, i)) 

Function arr_Dim_count_Test(arr As Variant)
Dim i As Long
Dim LB As Long
If Not IsArray(arr) Then Exit Function
On Error Resume Next
' Es wird bis 61 gegangen, um in jedem Fall einen
' Fehler zu provozieren, so dass keine weitere
' Fallunterscheidung notwendig ist, falls das Array
' 60 Dimensionen haben sollte:
For arr_Dim_count_Test = 1 To 61
LB = LBound(arr, arr_Dim_count_Test)
If Err.Number  0 Then Exit For
Next
arr_Dim_count_Test = arr_Dim_count_Test - 1
End Function
Danke vorab für eure Unterstützung
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Funktion für das min/max eines arrays
26.08.2016 17:02:07
Gerhard
Nachsatz:
Habe vergessen zu erwähne das es ja vielleicht auch möglich wäre verschachtelte Arrays zu verwenden. Mit diesen würde ich das Problem mit den Datentyp String zumindest umgehen können. - Habe jedoch keine Ahnung wie ich mit diesen Arbeiten kann - Syntax und co.. Vielleicht hat hierzu jemand Literaturvorschläge etc.
Wäre für eure Hilfe wirklich Dankbar
Anzeige
AW: Funktion für das min/max eines arrays
26.08.2016 17:11:02
Michael
Hi,
die Frage ist, ob Du wirklich MEHRdimensional mit "mehr als 2" meinst ODER ein zweidmensionales mit einer unbekannten Anzahl von Zeilen + Spalten.
DREI-dimensional wäre etwa ein Zellbereich von B2:C11, das sind zwei Spalten á 10 Zeilen, und das z.B. 5 Mal "hintereinander", also gedanklich eine Datei mit 5 Blättern, bei denen Du den immer gleichen Bereich verarbeiten willst.
Kläre das mal, oder lade am besten eine Beispieldatei hoch, aus der man entnehmen kann, worum es geht.
Bis dahin bekommst Du eine "Spieldatei", die einige zusätzliche Schritte für Dein Makro enthält, damit Du nachvollziehen kannst (F8-Taste zeilenweise), was passiert: https://www.herber.de/bbs/user/107856.xlsm
Schöne Grüße,
Michael
Anzeige
AW: Funktion für das min/max eines arrays
26.08.2016 21:10:05
Gerhard
Hallo Michael
Danke für deine Antwort. Das Array bewegt sich im 2 Dimensionalen. Jedoch mit Variablen Zeilen und Spalten. Genau so wie im Beispiel. In diesem Beispiel bekomme ich als min Wert für die erste Spalte -15 was aber -25 ergeben sollte, für die zweite Spalte 0 und nicht -47.
Beste Grüße
Gerhard
Anzeige
AW: Funktion für das min/max eines arrays
Michael
Hi Gerhard,
bei einem "normalen", 2-dimensionalen Array gibt ubound(array) die Anzahl Zeilen und ubound(array,2) die Anzahl der Spalten zurück - nein, stimmt so nicht: vielmehr die höchste Nummer von Zeilen bzw. Spalten. Die ANZAHL hängt vom untersten Wert ab...
Wenn man ein Array aus einem Tabellenbereich übernimmt, sind beide Werte 1-basiert, d.h. Du machst Schleifen von 1 to ubound(...); wenn Du Arrays "programmierst", kannst Du es Dir aussuchen, ob 0 oder 1 (oder sonstwas).
Für die Programmierung ist es eigentlich wurscht, da kann man Schleifen von lbound to ubound laufen lassen, dann hat man immer die richtigen Anfangs-Indexnummern.
In meinem Beispiel lese ich einen Tabellenbereich ein...
Der Code: 
Sub dannSo()
Dim myarray ' Variant zum Einlesen eines beliebigen Bereichs
Dim ergmin(), ergmax(), z&, s&
Dim lb&, ub& ' Indexnr. lbound/ubound um beides nicht jedesmal
' aufrufen zu müssen
Dim lb0&, ub0& ' Indexnr. lbound/ubound um beides nicht jedesmal
' aufrufen zu müssen
myarray = Range("B2:C11")   ' Array aus Bereich, immer 1-basiert
lb = LBound(myarray, 2): ub = UBound(myarray, 2) ' Spalten
lb0 = LBound(myarray): ub0 = UBound(myarray)     ' Zeilen
ReDim ergmin(0, lb To ub)
ReDim ergmax(0, lb To ub)
For s = lb To ub
ergmin(0, s) = "noch nix": ergmax(0, s) = "noch nix"
For z = lb0 To ub0
If myarray(z, s)  "" And Not IsEmpty(myarray(z, s)) Then
If IsNumeric(myarray(z, s)) Then
If ergmin(0, s) = "noch nix" Then
ergmin(0, s) = myarray(z, s)
ergmax(0, s) = myarray(z, s)
Else
'minimum
If ergmin(0, s) > myarray(z, s) Then ergmin(0, s) = myarray(z, s)
'maximum
If ergmax(0, s)

... aber mit Deiner händischen Array-Definition läuft das genauso.
Mit Datei: https://www.herber.de/bbs/user/107859.xlsm
Eine Spitzfindigkeit zur Ermittlung von min/max: ich belege den Wert erst vor, wenn im Array ein numerischer Wert gefunden wurde: durch ein reines redim wie in Deinem Code wird das Array genullt - d.h., falls Du in einer Spalte nur positive Werte hättest, wäre das Minimum 0 - wenn Du nur negative hättest, wäre das Maximum 0. Das wird durch meine Vorgehensweise vermieden.
Schöne Grüße,
Michael
Anzeige
AW: Funktion für das min/max eines arrays
Michael
Hi Gerhard,
bei einem "normalen", 2-dimensionalen Array gibt ubound(array) die Anzahl Zeilen und ubound(array,2) die Anzahl der Spalten zurück - nein, stimmt so nicht: vielmehr die höchste Nummer von Zeilen bzw. Spalten. Die ANZAHL hängt vom untersten Wert ab...
Wenn man ein Array aus einem Tabellenbereich übernimmt, sind beide Werte 1-basiert, d.h. Du machst Schleifen von 1 to ubound(...); wenn Du Arrays "programmierst", kannst Du es Dir aussuchen, ob 0 oder 1 (oder sonstwas).
Für die Programmierung ist es eigentlich wurscht, da kann man Schleifen von lbound to ubound laufen lassen, dann hat man immer die richtigen Anfangs-Indexnummern.
In meinem Beispiel lese ich einen Tabellenbereich ein...
Der Code: 
Sub dannSo()
Dim myarray ' Variant zum Einlesen eines beliebigen Bereichs
Dim ergmin(), ergmax(), z&, s&
Dim lb&, ub& ' Indexnr. lbound/ubound um beides nicht jedesmal
' aufrufen zu müssen
Dim lb0&, ub0& ' Indexnr. lbound/ubound um beides nicht jedesmal
' aufrufen zu müssen
myarray = Range("B2:C11")   ' Array aus Bereich, immer 1-basiert
lb = LBound(myarray, 2): ub = UBound(myarray, 2) ' Spalten
lb0 = LBound(myarray): ub0 = UBound(myarray)     ' Zeilen
ReDim ergmin(0, lb To ub)
ReDim ergmax(0, lb To ub)
For s = lb To ub
ergmin(0, s) = "noch nix": ergmax(0, s) = "noch nix"
For z = lb0 To ub0
If myarray(z, s)  "" And Not IsEmpty(myarray(z, s)) Then
If IsNumeric(myarray(z, s)) Then
If ergmin(0, s) = "noch nix" Then
ergmin(0, s) = myarray(z, s)
ergmax(0, s) = myarray(z, s)
Else
'minimum
If ergmin(0, s) > myarray(z, s) Then ergmin(0, s) = myarray(z, s)
'maximum
If ergmax(0, s)

... aber mit Deiner händischen Array-Definition läuft das genauso.
Mit Datei: https://www.herber.de/bbs/user/107859.xlsm
Eine Spitzfindigkeit zur Ermittlung von min/max: ich belege den Wert erst vor, wenn im Array ein numerischer Wert gefunden wurde: durch ein reines redim wie in Deinem Code wird das Array genullt - d.h., falls Du in einer Spalte nur positive Werte hättest, wäre das Minimum 0 - wenn Du nur negative hättest, wäre das Maximum 0. Das wird durch meine Vorgehensweise vermieden.
Schöne Grüße,
Michael
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Min/Max-Werte aus mehrdimensionalen Arrays in Excel VBA ermitteln

Schritt-für-Schritt-Anleitung

Um die Min- und Max-Werte aus einem mehrdimensionalen Array in Excel VBA zu ermitteln, kannst du die folgenden Schritte ausführen:

  1. Array erstellen: Definiere ein mehrdimensionales Array und fülle es mit Werten, einschließlich Leerfeldern.

    Dim myarray(10, 1) As Variant
myarray(0, 0) = -25
myarray(1, 0) = 55
myarray(2, 0) = 0
myarray(3, 0) = -15
myarray(4, 0) = ""
' Füge weitere Werte hinzu...

  2. Funktionen zur Ermittlung von Min und Max definieren: Erstelle die Funktionen MIN_von_arr_test und MAX_von_arr_test, um die Minimal- und Maximalwerte zu ermitteln.

    Function MAX_von_arr_test(ByVal arr As Variant) As Variant
   ' Implementierung hier...
End Function

Function MIN_von_arr_test(ByVal arr As Variant) As Variant
   ' Implementierung hier...
End Function

  3. Die Funktionen aufrufen: Nutze die Funktionen, um die Min- und Max-Werte zu ermitteln und auszugeben.

    Dim myarray_min() As Variant
Dim myarray_max() As Variant
myarray_min = MIN_von_arr_test(myarray)
myarray_max = MAX_von_arr_test(myarray)

  4. Ergebnisse anzeigen: Verwende die Debug.Print-Anweisung, um die Ergebnisse in der Konsole anzuzeigen.

Häufige Fehler und Lösungen

  • Kein Array-Wert gefunden: Wenn du die Fehlermeldung „kein array-wert gefunden“ erhältst, prüfe, ob dein Array korrekt initialisiert ist und Werte enthält. Achte darauf, dass du auch leere Felder berücksichtigst.

  • Null-Werte zurückgegeben: Wenn die Rückgabewerte 0 sind, überprüfe, ob die Schleifen korrekt definiert sind und ob die Bedingungen in den Funktionen die Werte korrekt erfassen.

Alternative Methoden

Falls du mit mehrdimensionalen Arrays arbeiten möchtest, kannst du auch verschachtelte Arrays verwenden. Hierbei kannst du die Struktur des Arrays so anpassen, dass es dir ermöglicht, leere Werte besser zu handhaben.

Ein Beispiel für ein verschachteltes Array könnte so aussehen:

Dim myarray() As Variant
myarray = Array(Array(-25, 55, 0), Array(-15, "", -35))

Du kannst dann ähnliche Min- und Max-Funktionen darauf anwenden.

Praktische Beispiele

Hier ist ein Beispiel, wie du die Min- und Max-Funktionen in der Praxis verwenden kannst:

Sub TestMinMax()
    Dim myarray(2, 2) As Variant
    myarray(0, 0) = -25
    myarray(0, 1) = 55
    myarray(1, 0) = 0
    myarray(1, 1) = -15

    Dim minValues() As Variant
    Dim maxValues() As Variant
    minValues = MIN_von_arr_test(myarray)
    maxValues = MAX_von_arr_test(myarray)

    Debug.Print "Min-Werte:"
    For i = LBound(minValues) To UBound(minValues)
        Debug.Print minValues(i)
    Next i

    Debug.Print "Max-Werte:"
    For i = LBound(maxValues) To UBound(maxValues)
        Debug.Print maxValues(i)
    Next i
End Sub

Tipps für Profis

  • Nutze On Error Resume Next, um Laufzeitfehler zu vermeiden, wenn du mit Arrays arbeitest. Achte jedoch darauf, die Fehlerbehandlung später wieder zu aktivieren.

  • Verwende die LBound und UBound Funktionen, um die Grenzen des Arrays dynamisch zu ermitteln. So kannst du sicherstellen, dass deine Schleifen immer die richtigen Indizes verwenden.

  • Um die Leistung zu verbessern, kannst du die Berechnungen in einer einzigen Schleife durchführen, statt verschachtelte Schleifen zu verwenden.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass ich die richtigen Werte aus einem mehrdimensionalen Array abfrage? Verwende die LBound und UBound Funktionen, um sicherzustellen, dass du die richtigen Indizes verwendest.

2. Was tun, wenn mein Array leere Werte enthält? Stelle sicher, dass deine Funktionen mit leeren Werten umgehen können, indem du entsprechende Bedingungen in deinen Schleifen hinzufügst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige