VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei Eingaben in Spalte B in Spalte A den Maximalwert anzeigen

Gruppe

Ereignis

Bereich

Change

Thema

Bei Eingaben in Spalte B in Spalte A den Maximalwert anzeigen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change