Hallo,
ich habe eine Excel Liste mit einer Reihe von Werten. Dort suche ich per VBA den minimal Wert heraus. Soweit, so einfach. Jetzt möchte ich aber auch herausfinden in welcher zelle und spalte dieser wert denn überhaupt steht. Jemand nen Ansatz für mich?
Besten Dank
Hei,
heute keine Zeit mehr und erst wieder am WoEn im Lande. Daher nur kurzer Ansatz: die Zelle kannst Du grds. mit .address bzw. .row für die Zeile und .column für die spalte ausgeben. Setzt natürlich voraus, dass Du die Zelle selbst vier mit VBA ermittelt hast. Wie machst Du das? Mit einer Schleife? Oder nimmst Du eine der Excel-Formeln?
Vielleicht kann sich ja ein anderer in der Zwischenzeit Deiner Anfrage annehmen
Gruß
p.
Suche über ne Excel Funktion:
risiko_x = WorksheetFunction.Min(Range(„l21:l5200“).Value)
Hallo holykeks,
Eine Möglichkeit ist z.B. eine for … next Schleife:
Bsp.:
Eine Liste in Spalte a mit 20 Werten. Du kennst Deinen Wert (z.B. „5“). Setz diesen in eine Variable (z.B. A).
Der Code könnte evtl. so aussehen.
For i = 1 to 20
if worksheets(1).cells(i,1).value = A then msgbox "Der Wert ist in Reihe " & i
Next i
Nicht elegant aber es funktioniert.
danke für die schnellen antworten.
klappt super 
Heyho
du könntest einfach eine kleine Suchfunktion machen
_for spalte=1 to 256
for zeile =1 to 256
if Worksheets(„Tabelle1“).Cells(Zeile, Spalte).Value =minimalerwert then
diesezeile =zeile
diesespalte =spalte
Msgbox "In Zeile " & diesezeile & "und Spalte " & diesespalte & " ist der minimale Wert
end if
next zeile
next spalte_
Dann hättest du in den Variablen diesespalte & diesezeile den Wert gespeichert.
Mit freundlichen Grüßen
Johannes
Sub MinWert()
Dim i As Long
Dim W1 As Range
Dim W2 As Range
Dim TempMinWert As Double
Dim TempMinAdr As String
With ThisWorkbook.Sheets(1)
Set W1 = .Cells(21, 12)
TempMinWert = W1.Value
TempMinAdr = W1.Address
For i = 22 To 5200
Set W2 = .Cells(i, 12)
If W2.Value