Gruppe
Ereignis
Problem
In Zeile 20 sollen die Werte der jeweils aktiven Zeile dargestellt werden.
ClassModule: Tabelle1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Cells.Count > 1 Then Exit Sub
Rows(20).Value = Target.EntireRow.Value
End Sub