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

Ausgewählte Zelle immer farbig markieren

Forumthread: Ausgewählte Zelle immer farbig markieren

Ausgewählte Zelle immer farbig markieren
10.05.2006 18:51:56
Harald
Ich habe in der Recherche nur eine Lösung zur Markierung der gesamten Zeile gefunden, aber wie muss der Code aussehen im ...
Private Sub Worksheet_Change(ByVal Target As Range)
... um immer nur die ausgewählte Zelle (ggf. auch mehrere Zellen) z.B. gelb zu markieren?
Bei Wechsel aus dieser Zelle soll dann wieder die (über FORMATt/ZELLE/MUSTER vorher eingestellte Farbe) aktiviert werden.
Geht das ?
Vielen Dank im voraus.
Gruß, Harald.
P.S. VBA gut gilt für das was man sich durch Makrorecorder, ausprobieren und Fragen im Excelchat selbst beibringen kann.
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausgewählte Zelle immer farbig markieren
10.05.2006 20:22:14
Matze
Hallo Harald,
hier ein kleines Beispiel welches ich selber einsetze (es wird die Spalte F durchsucht und eingefärbt):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim intEnde As Integer
Dim L As Integer
Application.ScreenUpdating = False
If Target.Column = 6 Then
'Diese Pruefung auf den relevanten Datenbereich erweitern
intEnde = Cells(Rows.Count, 2).End(xlUp).Row
' Spalte B durchzaehlen, da hier die meisten Werte
For L = 5 To intEnde
' Zellen gem. Risiko einfaerben
If Worksheets("Übersicht").Cells(L, 6).Value = 1 Then
Worksheets("Übersicht").Cells(L, 6).Interior.ColorIndex = 5
' Risikoeinstufung blau
End If
If Worksheets("Übersicht").Cells(L, 6).Value = 2 Then
Worksheets("Übersicht").Cells(L, 6).Interior.ColorIndex = 4
' Risikoeinstufung gruen
End If
If Worksheets("Übersicht").Cells(L, 6).Value = 3 Then
Worksheets("Übersicht").Cells(L, 6).Interior.ColorIndex = 6
' Risikoeinstufung gelb
End If
If Worksheets("Übersicht").Cells(L, 6).Value = 4 Then
Worksheets("Übersicht").Cells(L, 6).Interior.ColorIndex = 46
' Risikoeinstufung orange
End If
If Worksheets("Übersicht").Cells(L, 6).Value = 5 Then
Worksheets("Übersicht").Cells(L, 6).Interior.ColorIndex = 3
' Risikoeinstufung rot
End If
If Worksheets("Übersicht").Cells(L, 6).Value > 5 Then
Worksheets("Übersicht").Cells(L, 6).Interior.ColorIndex = xlColorIndexNone  ' keine Farbe
End If
Next L
End If
Application.ScreenUpdating = True
End Sub

mfg Matze
Anzeige
AW: Ausgewählte Zelle immer farbig markieren
11.05.2006 08:06:12
Harald
Hallo Matze,
vielen Dank für Deinen VBA-Code.
Ich möchte aber keine Farbeinstellungen in Abhängigkeit von Werten.
Was ich möchte ist, dass immer nur die aktuell ausgewählte Zelle (activeCell) gelb angezeigt wird.
Wenn die Zelle wieder verlassen wird, soll die ursprüngliche FORMAT-Einstellung wieder gelten.
Gruß, Harald.
Anzeige
AW: Ausgewählte Zelle immer farbig markieren
11.05.2006 08:40:55
Harald
Vielen Dank Bernd,
dass mit der gelben Zelle sieht ja schon mal gut aus. Aber, im Beispiel ist die Zelle nach dem Verlassen wieder komplett ohne Farbe, auch wenn diese vorher eine Farbeinstellung (Muster) hatte.
Kann man es jetzt noch hinbekommen, dass beim Verlassen der Zelle die ursprüngliche Farbe (Muster) wieder aktiviert wird.
Das wäre für mich eine optimale Lösung.
Gruß, Harald.
Anzeige
AW: Ausgewählte Zelle immer farbig markieren
11.05.2006 16:53:09
Bernd
Hallo, Harald!
Anbei neue Beispielmappe:
https://www.herber.de/bbs/user/33565.xls
Gruß Bernd
P.S. Rückmeldung wäre nett :-)
Ja !!!!!!
12.05.2006 13:33:11
Harald
Hallo Bernd,
ein Hoch auf Dich und vielen Dank.
Genau so wollte ich es.
Gruß aus Köln, Harald G.
Anzeige
;

Forumthreads zu verwandten Themen

Zellen farbig markieren
chrisss

Hallo,
ist es eigentlich bei Excel 2007 nun möglich, dass bei einer Wenn-Funktion eine Zelle farbig ausgefüllt wird. Beispiel: Wenn in Tabelle 1 in A1 ein U steht, soll die Zelle A1 in Tabelle 2 rot ausgefüllt werden.
Ich hatte die Frage schonmal gepostet und die Antwort erhalten, dass...
21.08.2008 13:20:00
Thread-ID: 1003455
8 Beiträge
Zellen farbig unterlegen bei Eingabe über Inputbox
Jochen

Hallo Forum
Ich habe eine Tabelle in der werden über eine Inputbox in die Zellen A9 bis K9 Werte eingetragen.
Diese Werte werden der Reihe nach über die Inputbox eingetragen.
Gibt es eine Möglichkeit das die geweils angesprochene Zelle für die Zeit der Eingabe die Farbe
wechselt...
09.11.2008 13:54:18
Thread-ID: 1023062
7 Beiträge
trotz INDIREKT verknüpfte zellen farbig markieren
merlin

Hallo,
gibt es eine Möglichkeit trotz der Verwendung von INDIREKT die verknüpften Zellen markieren zu lassen?
https://www.herber.de/bbs/user/60118.xls
Viele Grüße, vielen Dank.
09.03.2009 11:14:37
Thread-ID: 1058088
3 Beiträge
Anzeige
VBA Zelle einfärben
Tom

Hi Leute,
ich weis zwar wie man ne Zelle einfärbt leider nicht beim objektorientierter Schreibweise kann mir da vll. jemand weiterhelfen?
Es soll einfach die Zeile Grün werden die Kopiert wurde, bzw. die Zelle. Private Sub CSearch_Click() Dim Dat1, Dat2, TB1_Comp, TB2_Comp, TB1_Paste, T...
03.08.2009 08:38:53
Thread-ID: 1093112
2 Beiträge
VBA Zelle einfärben
Tom

Hi Leute,
ich weis zwar wie man ne Zelle einfärbt leider nicht beim objektorientierter Schreibweise kann mir da vll. jemand weiterhelfen?
Es soll einfach die Zeile Grün werden die Kopiert wurde, bzw. die Zelle. Private Sub CSearch_Click() Dim Dat1, Dat2, TB1_Comp, TB2_Comp, TB1_Paste, T...
03.08.2009 08:42:25
Thread-ID: 1093113
4 Beiträge
VBA: Gültigkeit für eine Zelle zuweisen
André

Moin zusammen,
ich möchte per VBA einer Zelle eine Gültigkeit zuweisen, und zwar eine Liste von Werten, die dann per Dropdown ausgewählt werden können.
Um den hierzu notwendigen Code zu erhalten, habe ich die Gültigkeit manuell zugewiesen und per Makrorekorder aufzeichnen lassen. Dabei...
22.03.2010 14:10:36
Thread-ID: 1147568
3 Beiträge
Zelle farbig ausfüllen über Formel / bedingte Form
Jim

Hallo Forum,
ich habe eien Frage bzgl. einer Zellformatierung.
Mit welcher Formel oder bedingten Formatierung kann ich einer Zelle eine Füllfarbe unter Randbedingungen zuweisen
Z.B steht in der Zelle A1 die Zahl 1, 2, 3, 4 oder 5. Nun soll die Zelle A2 farbig sein (ohne das ich ein...
22.07.2010 22:07:47
Thread-ID: 1168460
3 Beiträge
VBA Zellen je nach Inhalt einfärben
jens

Hallo Excel-Profis,
ich habe ein Makro das mir einen Bereich durchgeht und die Zellen je nach inhalt färbt:
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Sheets("Reservierung (3)").Select Dim RaBereich As Range, RaZelle As Range Set RaBereich = Range("B8:P48") 'Set RaBereic...
28.10.2010 12:00:06
Thread-ID: 1184257
7 Beiträge
Anzeige
Formatieren von Zellen per VBA
Zellen

Guten Tag
habe bereits eine Ergänzungsfrage zu einem Projekt bei welchem mir hier via Forum schon sehr sehr gut geholfen wurde....
und zwar:
mittels folgendem Code schreibe ich in eine Spalte ein Datum:
Cells(j, 10).Value = CDate(MyDatStrg)
Wie müsste ich diese Zeile erweite...
07.12.2010 10:53:17
Thread-ID: 1190357
18 Beiträge
Anzeige
Zellen einfärben per VBA
Heinz

Guten morgen,im Forum
Ich hätte bitte gerne ein Makro.
Wenn zB. A3"" das in E4+F4 die Zelle gelb eingefärbt wird.
Also immer eine Zelle in E+F darunter, wenn Spalte A ungleich "".
Angefangen von A5 bis A1000
Mit bed.Formatierung würde die Arbeitsmappe einfach zu groß.
Kö...
29.03.2011 09:10:20
Thread-ID: 1208020
5 Beiträge
Anzeige
vba - Positive Zahlen farbig markieren
mitch

Hallo,
suche ein VBA Funktion die mir positive Zahlen in der dritten Zeile farbig markiert.
A B C
ArtikelNr. Name Verkaufserlöse
345 Becker 20,00
345 Becker -19,00
456...
12.04.2011 21:02:51
Thread-ID: 1210102
5 Beiträge
gesuchte Zelle farbig markieren
Hermann

Ich möchte beim Öffnen eines vertikal aufgebauten Kalenders den Sprung zur Zelle des heutigen Datums. Diese soll farbig markiert sein und der Kursor soll 2 Zellen nach rechts platziert sein.
19.05.2002 20:30:29
Thread-ID: 122076
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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