Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen färben

Forumthread: Zellen färben

Zellen färben
14.07.2003 11:37:57
Stephan
Folgender Code ändert bei Doppelklick die Füllfarbe der angeklickten Zellen.
Das tut er aber für alle Zellen, nicht nur für die Zellen A1:A10, so wie ich es gerne möchte.
Wo liegt mein Fehler ??
Danke für die Hilfe

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim b, e As Integer
For b = 1 To 10
e = 1
If Target.Cells = Cells(b, e) Then
Target.Interior.ColorIndex = 5
End If
Next
End Sub

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen färben
14.07.2003 11:52:26
WernerB.
Hallo Stephan,
mein Vorschlag:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim b As Integer, e As Integer
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Cancel = True
For b = 1 To 10
e = 1
If Target.Cells = Cells(b, e) Then
Target.Interior.ColorIndex = 5
End If
Next
End Sub

Viel Erfolg wünscht
WernerB.

Anzeige
DANKE !!! Funktioniert !!!
14.07.2003 12:20:31
Stephan
DANKE !!! Funktioniert !!!

AW: Zellen färben
14.07.2003 11:50:40
ChrisL
Hi Stephan

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Column = 1 And Target.Row <= 10 Then Target.Interior.ColorIndex = 5
End Sub

Gruss
Chris

DANKE !!! Funtioniert !!!
14.07.2003 12:21:16
Stephan
DANKE !!! Funtioniert !!!

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige