Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wenn Courser auf A10 dann...

Forumthread: Wenn Courser auf A10 dann...

Wenn Courser auf A10 dann...
01.08.2021 12:20:32
philipp
Guten Morgen zusammen,
ich suche eine Möglichkeit, wenn der Courser z.B. auf A10 steht, soll diese
Zelle Rot gefärbt werden.
Würde dies gern in das Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
einbinden.
mfg philipp b
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Courser auf A10 dann...
01.08.2021 12:42:00
PeTeR
Hallo Philipp,
so vielleicht:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$10" Then
Target.Interior.ColorIndex = 3
Else
Range("A10").Interior.ColorIndex = 0
End If
End Sub
Viel Erfolg
PeTeR
AW: Wenn Courser auf A10 dann...
01.08.2021 12:47:40
Matthias
Hallo,

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A10").Address Then
Target.Interior.Color = vbRed
Else
Range("A10").Interior.Color = xlNone
End If
End Sub
Gruß Matze
Anzeige
Hallo Peter und Matze, wenn ...
01.08.2021 14:20:32
philipp
Hallo Peter und Matze,
was muss ich ändern wenn ich überall wo sich der aktive Courser befindet
rot machen möchte ?
mfg philipp b
AW: Hallo Peter und Matze, wenn ...
01.08.2021 16:10:15
Matthias

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.Color = xlNone
Target.Interior.Color = vbRed
End Sub
Gruß Matze
Anzeige
Herzlichen Dank Matze ..-)
01.08.2021 16:26:56
philipp
Kleine Nachfrage...
01.08.2021 16:58:02
philipp
Hallo,
was muss ich ändern für z.B.
B4, B6-B8,
C4, C8:C9 usw.
gruß philipp b
AW: Kleine Nachfrage...
01.08.2021 17:28:22
Hajo_Zi
ersetze Target durch
Range("B4, B6,B8")
GrußformelHomepage
Anzeige
AW: Kleine Nachfrage...
01.08.2021 17:54:48
philipp
Hallo Hajo,
leider Fehler:

Private Sub wwWorksheet_SelectionChange(ByVal Target As Range)
If Range.Address = Range("B4,B6:B8").Address Then
Range.Interior.Color = vbGreen
Else
Range("B4,B6:B8").Interior.Color = xlNone
End If
End Sub
gruß philipp
Anzeige
AW: Kleine Nachfrage...
01.08.2021 17:57:27
Hajo_Zi
Hallo Philipp,
diese Zeile ist falsch
If Range.Address = Range("B4,B6:B8").Address Then
so
If Range.Address = Range("B4").Address or Range.Address = Range("B6").Address or Range.Address = Range("B8").Address Then
Gruß Hajo
Anzeige
AW: Kleine Nachfrage...
01.08.2021 18:02:12
Hajo_Zi
Hallo Philipp,
ersetze Range.address durch Target.address
Gruß Hajo
Danke Hajo, wäre schön wenn... sonst -)
01.08.2021 18:30:34
philipp
Hallo Hajo,
DANKE.
Wäre nur schön wenn man dies kürzer fassen könnte aber es klappt auch so !
gruß philipp b
oder kürzer.
01.08.2021 18:24:11
Hajo_Zi
Hallo Philip,
If Not Intersect(Range("B4,B6,B8"), Target) Is Nothing Then
Gruß Hajo
Hajo Super Danke -)
01.08.2021 19:58:17
philipp
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige