Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Färben von Zellen

Forumthread: Färben von Zellen

Färben von Zellen
22.01.2009 14:07:00
Zellen
Hallo.
Ich möchte über Zelle A1 eine Nummer vorgeben und alle zellen die diese Nummer enthalten in einem bestimmten Bereich z.B. A2-A100 sollen dann rot eingefärbt werden. Danach soll eine neue Nummer in A1 eingegeben werden können und wieder (zusätzlich) eingefärbt werden usw.
Wie löse ich das? Danke!
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Färben von Zellen
22.01.2009 14:12:30
Zellen
Hallo max,
ich vermute mal die alte Farbe soll erhalten bleiben? Das kann aber nicht sein, dann wäre ja alles irgendwann mal Rot. Also löse es über bedingte Formatierung, Zellinhalt =A1

AW: Färben von Zellen
22.01.2009 14:30:00
Zellen
Es kann durchaus alles die gleiche Farbe sein. Da der Bereich in echt mehr als 20.000 Zeilen umfasst und ca. 100 Einträge gesucht werden und alle eingefärbt werden sollen (darf gleiche farbe sein) kann ich nicht mit bedingter Formatierung arbeiten. Das ja mein Problem.
Anzeige
AW: Färben von Zellen
22.01.2009 14:53:00
Zellen
bitte weiter um hilfe
AW: Färben von Zellen
22.01.2009 14:59:00
Zellen
Hallo Max
versuch mal das makro

Sub farbe()
Dim i As Long
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("A2:A20000")
If c = Cells(1, 1) Then
c.Interior.ColorIndex = 3
End If
Next
Application.ScreenUpdating = True
End Sub


Gruss hary

Anzeige
AW: nachtrag
22.01.2009 15:02:00
hary
hallo ma
Dim i as long
kann raus. War aus einem anderen Test.
Gruss hary
AW: nachtrag
22.01.2009 15:15:00
Max
super. genau sowas meinte ich. vielen, vielen dank!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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