Zeilennummer bestimmen
28.01.2008 13:29:45
Andi
ich habe zur zeit ein kleines Problem mit der Bestimmung der Zeilennummer. Wie kann ich mir die Zeilennummer des Maximums anzeigen lassen? In meinem Programmausschnitt wird leider immer ein unterschiedlicher Wert als Zeilennummer abgegeben. Mal ist es Zeile 11, mal 17 usw. Hat jemand eine Idee? Kann bei Bedarf auch die .xls ins Netz stellen.
Private Sub CommandButton1_Click()
Dim i%, n%
Dim Maximum As String
Dim Zeilennummer As Long
Sheets("Tabelle1").Select
Maximum = WorksheetFunction.Max(Range("B2:B18"))
Zeilennummer = ActiveCell.Row
n = 1
i = Zeilennummer - 1
Do
If Cells(i, 2) > Cells(i + 1, 2) Then Cells(i, 3) = Cells(i, 2) - (2 * (Cells(i, 2) - Cells(i + _
1, 2))) Else: Cells(i, 3) = Cells(i, 2)
'End If
i = i - 1
Loop Until i
Viele Grüße
Andi