Minimum suchen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Minimum suchen
von: Viktor
Geschrieben am: 05.06.2002 - 19:14:39

Hallo!

Ich habe ein Makro, es wird ein Minimum in der Spalte gesucht.
Nun wenn es in der Spalte 2 oder mehr gibt, dann wird nur ein
Knoten gegeben. Kann mir jemand sagen, wo das Problem liegt?

Sub Minimum()
Dim dimension As Integer
Dim x As Integer, y As Integer, i As Integer
dimension = Cells(1, 4)
x = 6
y = 9
a = Cells(x, y).Value
For i = 1 To dimension - 1
b = Cells(x + i, y).Value
If b < a Then
a = b
c = x + i
End If
Next i
MsgBox "Der Knoten " & Cells(c, 1) & " ist Minimum"
End Sub


nach oben   nach unten

Re: Minimum suchen
von: Stefan
Geschrieben am: 06.06.2002 - 04:46:43

Hallo Viktor,

versuch mal diesen Code:

Dein Code hat zwei große Probleme: zum einen werden Werte, die gleichgroß sind, durch dein "<" ignoriert, zum anderen kann dein Code auch nur eine Zelle speichern, die dann nach der Schleife ausgegeben wird.

Gruß

Stefan

nach oben   nach unten

Re: Minimum suchen
von: Viktor
Geschrieben am: 06.06.2002 - 09:03:32

Hallo Stefan!

Vielen Dank für deine Hilfe, es funktioniert super.

Viktor


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Minimum suchen"