Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Bei Eingaben in Spalte B in Spalte A den Maximalwert anzeigen
Gruppe
Change
Problem
Wie kann ich in Spalte A bei Eingaben in Spalte B den jeweiligen Maximalwert in Spalte B auflisten lassen?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
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