Kopieren - Einfügen



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Kopieren - Einfügen
von: Dieter
Geschrieben am: 02.07.2002 - 10:48:20

Guten Morgen,

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

nach oben   nach unten

Re: Kopieren - Einfügen
von: Andreas
Geschrieben am: 02.07.2002 - 10:56:38

Hallo Dieter,

warum mit VBA, wenns doch in Excel die bedingte Formatierung gibt?
Also einfach A1:A3 markieren, Menü Format, bedingte Formatierung...
Dort 1. Bedingung
Formel ist: =$D$1<>$E$1
Dann Deine Farbe festlegen,

2. Bedingung hinzufügen
Formel ist: =$D$1=$E$1
und die andere Farbe festlegen.

Viel Spaß,
Andreas

nach oben   nach unten

Re: Kopieren - Einfügen
von: Dieter
Geschrieben am: 02.07.2002 - 11:04:25

Hallo Andreas,

danke für den Tipp.

Gruß
Dieter


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Kopieren - Einfügen"