Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column > 20 And ActiveCell.Column 5 And ActiveCell.Row
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyData As New DataObject, Merker
MyData.GetFromClipboard
Merker = MyData.GetText(1)
Range("U5:BR5").Interior.ColorIndex = none
Range("E5:E77").Interior.ColorIndex = none
If ActiveCell.Column > 20 And ActiveCell.Column 5 And ActiveCell.Row
Gruß
Reinhard