Höchsten Wert in Spalte suchen und höchsten Wert +1

[tomcat]

Hi,

ich ermittle so den höchsten Wert in meiner Spalte:

WorksheetFunction.Max(Columns(1))

jetzt möchte ich aber den letzten gefunden Wert +1 rechnen und in eine Zelle ausgeben.

[Fuzzy62]

Hi tomcat,

Code:

Sub MAX_plus1()
Dim i As Long
Dim z As Long

z = WorksheetFunction.Max(Columns(1))

For i = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(i, 1).Value = z Then
        Cells(i, 1).Value = z + 1
    End If
Next i
End Sub

vielleicht so!

[BoskoBiati]

Hi,

hier noch zwei Möglichkeiten:

Code:

Sub Test()
Dim lngMax As Long
Dim lngZeile As Long
lngMax = WorksheetFunction.Max(Columns(1))
lngZeile = WorksheetFunction.Match(lngMax, Columns(1), 0) + 1
Cells(1, 2) = Cells(lngZeile, 1)
End Sub


Sub Test_2()
Cells(1, 3) = Cells(WorksheetFunction.Match(WorksheetFunction.Max(Columns(1)), Columns(1), 0) + 1, 1)
End Sub