Es funktioniert auch soweit, nur falls jemand auf die Idee kommt die Selection von unten nach Oben zu ziehen bekomme ich in den Labels die falsche Daten angezeigt.
Gibt da ne Möglichkeit?
Label10.Caption = Cells(ActiveCell.Row, 4)
Label11.Caption = Cells(ActiveCell.Row + Selection.Rows.Count, 4)
Danke und Gruss