Kopieren - Einfügen
02.07.2002 10:48:20
Dieter
habe nachstehenden Code in eine Tabelle eingebaut:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Cells(1, 4).Value <> Cells(1, 5).Value Then
Range("a1:a3").Interior.ColorIndex = 3
Else
Range("a1:a3").Interior.ColorIndex = 4
End If
End Sub
Leider funktioniert dann das Kopieren und anschließende Einfügen nicht mehr. Weiß jemand Rat?
Gruß
Dieter