Gruppe
Ereignis
Problem
Wie kann ich in Spalte A bei Eingaben in Spalte B den jeweiligen Maximalwert in Spalte B auflisten lassen?
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer
If Target.Column <> 2 Then Exit Sub
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(iRow, 1) = WorksheetFunction.Max(Columns(Target.Column))
End Sub