ich habe eine Tabelle wo verschiedene zeilen rot sind,
nun möchte ich wenn ich die zeile makiere das eine msgbox auf geht, das diese Zeile nicht kopiert werden kann.
Danke für die hilfe
gruß jens
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngZelle As Range
For Each rngZelle In Selection
If rngZelle.Interior.ColorIndex = 3 Then
MsgBox "Rote Zeilen dürfen nicht kopiert werden"
Range("A1").Select
Exit For
End If
Next
End Sub