Hallo liebe Freunde,
ich habe mir folgenden Code zusammengebastelt, um die Zeile der ausgewählten Zelle farlblich zu markieren und fett zu schreiben. Das klappt auch wunderbar.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
' Clear the color of all the cells
Cells.Font.ColorIndex = 0
Cells.Font.Bold = 0
With Target
' Highlight the entire row that contain the active cell
.EntireRow.Font.ColorIndex = 5
.EntireRow.Font.Bold = True
End With
Application.ScreenUpdating = True
End Sub
Mein Problem: Jetzt möchte ich den Inhalt der Zelle kopieren - das funktioniert auch - aber sobald ich eine andere Zelle markiere, um dort meinen Zwischeninhalt einzufügen, wird die Zeile wieder farblich markiert und ich kann nicht mehr meinen Inhalt hineinkopieren. Gibt es eine Möglichkeit trotz Markierung wieder Copy & Pasten zu können?
Vielen lieben Dank
r1ked
|