Um die aktive Zeile zu markieren habe folgendes im meiner Datei:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim rng As Range
Set rng = Range("B5:U23")
If Not Intersect(Target, rng) Is Nothing Then
rng.Interior.ColorIndex = xlNone
' neue Zeile einfärben
Cells(Target.Row, 2).Resize(, rng.Columns.Count).Interior.ColorIndex = 33
End If
End Sub
Es trettet das Problem auf dass ich nicht mehr Kopieren und Einfügen kann!
Nach dem Bewegen des Kursors leert sich die Zwischenablage.
Was ist da falsch?
Danke für Euere Hilfe