Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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
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
Anzeige
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
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
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
Anzeige
Hajo Super Danke -)
01.08.2021 19:58:17
philipp

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige