Office: Kleinsten Wert und Position des kleinsten Wertes im Array

tgasau · 2. November 2008

Hallo zusammen,

wie bekomme ich den kleinsten Wert und speziell die Position des kleinsten Wertes in einem Array raus? Das Array ist zweidimensional.

Danke im voraus !!
Till *Smilie

:)

pefeu · 3. November 2008

Hallo Till,

dazu fällt mir im Augenblick nur das nachfolgende Prozedere ein:

Public Sub MinAusArray()

Dim aTemp(9, 9)
Dim iIndx1 As Integer
Dim iIndx2 As Integer
Dim dMin As Double
Dim sText As String

For iIndx1 = 0 To 9
For iIndx2 = 0 To 9
aTemp(iIndx1, iIndx2) = iIndx2
aTemp(iIndx1, iIndx2) = iIndx1
Next iIndx2
Next iIndx1

dMin = WorksheetFunction.Min(aTemp)

For iIndx1 = 0 To 9
For iIndx2 = 0 To 9
If dMin = aTemp(iIndx1, iIndx2) Then
If sText = "" Then
sText = iIndx1 & ", " & iIndx2
Else
sText = sText & Chr(10) & iIndx1 & ", " & iIndx2
End If
End If
Next iIndx2
Next iIndx1

MsgBox sText

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

Code eingefügt mit

OfficeUser · 4. November 2008

Hallo Till,

das könntest Du z.B. diesem Makro lösen :

VBA-Code:
Sub WertUndPosAusArrayBestimmen()
    'Ermittelt den kleinsten Wert und dessen Position aus einem ARRAY
    '04.11.2008, NoNet

    Dim arrWerte, lngZ As Long, intS As Integer, varMin
    arrWerte = [A1:C10] 'Werte aus Tabelle in ARRAY einlesen
    varMin = Application.Min(arrWerte)
    MsgBox varMin, , "Kleinster Wert der Matrix" 'Kleinsten Wert ausgeben
    'Position per MATRIX-Funktion in Tabelle ermitteln :
    '=ADRESSE(MAX(WENN(A1:C10=MIN(A1:C10);ZEILE(1:10);0));MAX(WENN(A1:C10=MIN(A1:C10 );SPALTE(A:C));0))

    'Variante 1 : Position per Schleifen ermitteln :
    For lngZ = LBound(arrWerte) To UBound(arrWerte)
        For intS = LBound(arrWerte) To UBound(Application.Transpose(arrWerte)) 'nur bis max 4561 Zeilen möglich !
            If arrWerte(lngZ, intS) = varMin Then
                MsgBox "Zeile : " & lngZ & vbLf & "Spalte : " & intS, , "Kleinster Wert an Position - Variante 1"
            End If
        Next
    Next

    'Variante 2 : Position durch Vergleich ermitteln
    For intS = LBound(arrWerte) To UBound(Application.Transpose(arrWerte)) 'nur bis max 4561 Zeilen möglich !

        If Not IsError(Application.Lookup(varMin, Application.WorksheetFunction.Index(Applicat ion.Transpose(arrWerte), intS))) Then
            lngZ = Application.Match(varMin, Application.WorksheetFunction.Index (Application.Transpose(arrWerte), intS))
            If lngZ > 0 Then
                MsgBox "Zeile : " & lngZ & vbLf & "Spalte : " & intS, , "Kleinster Wert an Position - Variante 2"
            End If
        End If
    Next
End Sub

Code eingefügt mit Syntaxhighlighter 4.15

tgasau · 5. November 2008

Cool, danke *Smilie

manau21 · 14. Oktober 2013

Hallo zusammen....
gerne würde ich die kleinste Zahl in einer Spalte F4:F50 die Position erhalten
wie muss ich die untenstehnede Programmierung anpassen?
Leider sucht diese Programmierung nur in Spalte 1 und gibt mir die Meldung Zeile 20 Spalte 1 aus... wobei in Spalte 1 Zeile 20 nur ein Name drinn steht und der Range der ich durchsuchen möchte ist F4:G50.

Dim arrWerte, lngZ As Long, intS As Integer, varMin
arrWerte = [F4:G50]
varMin = Application.min(arrWerte)

For lngZ = LBound(arrWerte) To UBound(arrWerte)
For intS = LBound(arrWerte) To UBound(Application.Transpose(arrWerte))
Debug.Print lngZ
If arrWerte(lngZ, intS) = varMin Then
MsgBox "Zeile : " & lngZ & vbLf & "Spalte : " & intS, , "Kleinster Wert an Position - Variante 1"
End If
Next
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke für eure hilfe

HS(V) · 15. Oktober 2013

Hallo,

Code:

Sub hsv()
Dim c As Range
Set c = Range("F4:G50").Find(Application.Min(Range("F4:G50")), , xlValues)
MsgBox "Adresse: " & c.Address & vbLf & vbLf & _
"Zeile: " & c.Row & vbLf & vbLf & "Spalte: " & c.Column
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

manau21 · 15. Oktober 2013

PERFEKT!!!
danke

Habe den Code soweit angepasst

Code:

Private Sub Worksheet_Activate()
If Sheets("Geburtstage").Select Then
matrix = "F8:F50"
Set c = Range(matrix).Find(Application.Min(Range(matrix)), , xlValues)
Geburtstagsname = Cells(c.Row, 1).Value
geburtstagintagen = Cells(c.Row, c.Column).Value
MsgBox Geburtstagsname & " " & "hat in" & " " & geburtstagintagen & " " & "Tag/en Geburtstag"
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

leider aber findet der Code nicht den kleinsten Wert.... hab noch nicht rausgefunden warum

Ich habe Zahlen in der Spalte "F" von 1 bis 360 durcheinander

F4 = 1
F5 = 28
F6 = 29
F7 = 31
F8 = 32
F9 = 36
F10 = 51
u.s.w
F50 = 17

Eigentlich müsste der code doch die Zellposition F4 ausgeben

chris-kaiser · 16. Oktober 2013

Hi,

Spalte "F" von 1 bis 360
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

matrix = "F8:F50"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

was müsste da wohl angepasst werden....

ich tippe auf
matrix = "F1:F360"

manau21 · 16. Oktober 2013

der Range stimmt so... leider habe ich mich nicht ganz klar ausgedrückt, sorry
im "F" sind die Zellen nicht von 1 - 360 durchgehend gefüllt sonder es sind die Tage eingetragen "in wiviel Tagen diejenige Person geburtstag hat"
d.h. es können zahlen von 1- 365 in den Zellen stehen.
Und da die Zelle F1 der kleinste wert trägt (nämlich 1) sollte doch diese Position unter c.row und c.column gespeichert werden

HS(V) · 16. Oktober 2013

Und so?
Code:

Private Sub Worksheet_Activate()
matrix = "F4:F360"
Set c = Range(matrix).Find(Application.Min(Range(matrix)), , xlValues, xlWhole)
Geburtstagsname = c.Offset(, -5)
geburtstagintagen = c.Value
MsgBox Geburtstagsname & " " & "hat in" & " " & geburtstagintagen & " " & "Tag/en Geburtstag"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

IngGi · 16. Oktober 2013

Hallo zusammen,

die Methode .find sucht standardmäßig nach Teilstrings, d.h. wenn der kleinste Wert zum Beispiel die Zahl 6 ist, findet die Methode die erste Zelle, die die Ziffer 6 enthält. Das könnte dann zum Beispiel die Zahl 64 sein.

Gib in der .find-Methode als vierten Parameter die Excelkonstante xlWhole an, damit nur nach dem gesamten Zellinhalt gesucht wird.

Gruß Ingolf

chris-kaiser · 16. Oktober 2013

Hallo Manau,

.... Ok
Aber was ist wenn Zwei oder Drei am gleichen Tag Geb. haben. *wink.gif*

teste mal

Code:

Sub NextGeb()
Dim rngMatrix As Range, rngCell As Range, strTmp As String
With Sheets("Geburtstage")
Set rngMatrix = .Range("F8:F50")
For Each rngCell In rngMatrix
If rngCell.Value = Application.Min(rngMatrix) Then
strTmp = strTmp & rngCell.Offset(0, -5).Value & " hat in " & rngCell.Value & " Tag/en Geburtstag" & Chr(10)
End If
Next
MsgBox strTmp
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

das gibt dir ALLE wieder die als nächstes Geb.haben. (gleiche Anzahl der Tage haben)
Was vielleicht noch gut wäre eine Zeitspanne einzubauen.
Angenommen Frau Anita Testbauer hat in 5 Tagen Geb. und Herr Thomas Muster in 6 Tagen, welcher auch noch dazu auf einen Sa oder So fallen würde. Dann wird immer nur bis zum Geb. Frau Testbauer angezeigt und der Thomas hat halt Pech gehabt.

Ich habe mal den Code so umgebaut das die Tage bis zum Drittkleinsten Tag berücksichtigt werden.

Code:

Sub NextGeb()
Dim rngMatrix As Range, rngCell As Range, strTmp As String
Dim dic As Object, oDup As Variant, i As Integer
With Sheets("Geburtstage")
Set rngMatrix = .Range("F8:F50")
arrMatrix = rngMatrix
Set dic = CreateObject("Scripting.Dictionary")
For i = LBound(arrMatrix, 1) To UBound(arrMatrix, 1)
If Not dic.exists(arrMatrix(i, 1)) Then _
dic.Add arrMatrix(i, 1), 1
Next i
oDup = dic.keys
Set dic = Nothing
For IntC = 1 To 3
For Each rngCell In rngMatrix
If rngCell.Value = WorksheetFunction.Small(oDup, IntC) Then
strTmp = strTmp & rngCell.Offset(0, -5).Value & " hat in " _
& rngCell.Value & " Tag/en Geburtstag" & Chr(10)
End If
Next
Next
MsgBox strTmp
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

manau21 · 19. Oktober 2013

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

Sub NextGeb()
Dim rngMatrix As Range, rngCell As Range, strTmp As String
Dim dic As Object, oDup As Variant, i As Integer
With Sheets("Geburtstage")
Set rngMatrix = .Range("F8:F50")
arrMatrix = rngMatrix
Set dic = CreateObject("Scripting.Dictionary")
For i = LBound(arrMatrix, 1) To UBound(arrMatrix, 1)
If Not dic.exists(arrMatrix(i, 1)) Then _
dic.Add arrMatrix(i, 1), 1
Next i
oDup = dic.keys
Set dic = Nothing
For IntC = 1 To 3
For Each rngCell In rngMatrix
If rngCell.Value = WorksheetFunction.Small(oDup, IntC) Then
strTmp = strTmp & rngCell.Offset(0, -5).Value & " hat in " _
& rngCell.Value & " Tag/en Geburtstag" & Chr(10)
End If
Next
Next
MsgBox strTmp
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gefällt mir sehr Gut
funktioniert halt nur solange kein anderer genau in gleichen Tagen geburtstag hat... das heisst der Code arbeitet von unten nach oben.
Wenn z.b. in F4 in einem und F26 in einem Tag Geburtstag hat wird der in F4 nicht berücksichtigt solange die Spalte in F nicht sortiert wurde.
Aber soweit genügt dies für mich...

Ich danke euch allen für die Hilfe

Grüsse

Manau21

HS(V) · 19. Oktober 2013

Hallo,

Mit Range("F8: F50") im Code wird F4 nicht angegeben werden. *wink.gif*

manau21 · 19. Oktober 2013

war ein versehen....
der Range beginnt mit F4
hebe einen code ins forum geschrieben bei dem ich noch am austesten war....
weiter oben ist der range richtig

Office: Kleinsten Wert und Position des kleinsten Wertes im Array

Kleinsten Wert und Position des kleinsten Wertes im Array

Kleinsten Wert und Position des kleinsten Wertes im Array

Kleinsten Wert und Position des kleinsten Wertes im Array

Kleinsten Wert und Position des kleinsten Wertes im Array

Kleinsten Wert und Position des kleinsten Wertes im Array

Kleinsten Wert und Position des kleinsten Wertes im Array - Similar Threads - Kleinsten Wert Position

Abfrage erstellen mit dem kleinsten Wert

2.kleinsten Wert einer Spalte (doppelte Werte überspringen)

doppelten Wert, jedoch nur den kleinsten wiedergeben

Tabelle nach kleinstem Wert durchsuchen

In Access aus mehreren Spalten kleinsten oder größten Wert in weiter Spalte ausgeben

Bedingte Formatierung --> kleinster Wert pro Kategorie

Kleinster Wert im Zellbereich