Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1172to1176
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1172to1176
1172to1176
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellfarbe per VBA / bedingte Formatierung

Zellfarbe per VBA / bedingte Formatierung
guffels
Hallo zusammen,
ich möchte gerne, dass in der Zelle oberhalb der zu überprüfenden Zelle die Hintergrundfarbe anhand von Kriterien geändert wird. Es gibt 6 verschiedene Text-Kriterien ("RS", "RA", "GF", usw.). Leider kann ich in 2003 ja nur 3 Farben über die bedingte Formatierung festlegen.
Meine Idee ist nun, "einfach" jede Zelle in dem Tabellenblatt zu überprüfen und gegebenfalls zu ändern, nur wie? Oder geht das nicht?
Vielen Dank Im Voraus!
Gruß Michael
AW: Zellfarbe per VBA / bedingte Formatierung
30.08.2010 17:55:11
ransi
HAllo
jede Zelle in dem Tabellenblatt zu überprüfen und gegebenfalls zu ändern,
Das geht auch, würde ich mir an deiner Stelle aber nochmal überlegen.
das ist sehr rechenintensiv und macht ein zügiges Arbeiten in der Tabelle unmöglich.
Kannst du den Bereich irgendwie einschränken ?
ransi
AW: Zellfarbe per VBA / bedingte Formatierung
30.08.2010 20:31:43
guffels
Hallo,
ja, ich kann den Bereich schon ein wenig einschränken, dachte aber das wäre zu schwierig zu programmieren. Es sind ca 150 Spalten und 110 Zeilen, also um die 16.500 Zellen. Wahrscheinlich reicht das schon aus, um die Datei extrem langsam zu machen, da ich auch noch andere aufwendigere Summenproduktformeln dort habe.....
Michael
Anzeige
AW: Zellfarbe per VBA / bedingte Formatierung
30.08.2010 20:47:04
ransi
HAllo
ALso 16500 Zellen sollten noch kein Problem darstellen.
Teste mal sowas:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Calculate()
Dim arr As Variant
Dim L As Long
Dim I As Integer
arr = Range("A1:ET110") 'Range("a1").CurrentRegion
On Error Resume Next
Application.ScreenUpdating = False
For L = 1 To UBound(arr)
    For I = 1 To UBound(arr, 2)
        Select Case arr(L, I)
            Case "A": Cells(L, I).Interior.ColorIndex = 3 'Anpassen
            Case "B": Cells(L, I).Interior.ColorIndex = 30 'Anpassen
            Case "C": Cells(L, I).Interior.ColorIndex = 21 'Anpassen
            Case "D": Cells(L, I).Interior.ColorIndex = 47 'Anpassen
            Case "E": Cells(L, I).Interior.ColorIndex = 4 'Anpassen
            Case "F": Cells(L, I).Interior.ColorIndex = 27 'Anpassen
        End Select
    Next
Next
Application.ScreenUpdating = True
End Sub


ransi
Anzeige
Wie du weißt, da du ja neulich meinen...
31.08.2010 16:54:11
Luc:-?
…Hinweis aufgegriffen hast, Ransi,
geht das auch mit dynamisierter BedingtFormatierung; spart das Rückstellen, wenn die (Hpt-)Bedingung nicht mehr zutrifft… ;-)
Gruß Luc :-?
AW: Wie du weißt, da du ja neulich meinen...
31.08.2010 18:37:54
guffels
Hallo zusammen,
die Prozedur klappt, bei der Antwort von Luc verstehe ich nur Bahnhof.
Wie spricht man eigentlich die Schriftfarbe per VBA an?
Gibt es eine Liste, in der ich die Nummern zu den Farben zuordnen kann?
Schon mal vielen Dank für Eure Bemühungen!
Gruß Michael
AW: Wie du weißt, da du ja neulich meinen...
31.08.2010 19:43:00
Hajo_Zi
Hallo Michael,
.Font.Color = 225
oder .Font.ColorIndex = 3
ColorIndex Farbliste in Hilfe
unter PatternColorIndex

Anzeige
AW: Wie du weißt, da du ja neulich meinen...
31.08.2010 19:43:00
Hajo_Zi
Hallo Michael,
.Font.Color = 225
oder .Font.ColorIndex = 3
ColorIndex Farbliste in Hilfe
unter PatternColorIndex

Das war keine Antwort für dich! Ansonsten...
01.09.2010 18:23:32
Luc:-?
…gibt's da oben rechts noch 'nen grauen Button Alle Recherchen, Michael… :->

330 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Zellenformatierung mit Blattschutz
donald

Hallo ihr vielen Helfer,
ich möchte es gerne zulassen, dass man die Zellen, zeilen und Spalten formatieren sowie auf das Blatt gelegte textfelder bearbeiten kann, obwohl der Blattschutz aktiv ist. Das kann man zwar beim Schutz einstellen, mein Problem ist aber, dass sich diese Einstellunge...
05.12.2008 08:25:00
Thread-ID: 1030343
2 Beiträge
Anzeige
Bedingte Formatierung mit VBA-Modul
Fuhrer

Hallo zusammen
Ich will mit einem VBA-Modul einen bestimmten Bereich nach definierten Kriterien einfärben.
Das Modul wird später einem Comnand-Button Zugeordent (dies ist für mich kein Problem).
Nun konnte ich im Internet ein entprechendes Makro finden. Jedoch ist dieses Makro nur f...
19.01.2009 18:03:57
Thread-ID: 1041611
6 Beiträge
Formatierung mit VBA
Dave

Hallo zusammen
Ich will Zellen aufgrund des Inhalts, der mit einer Formel geholt wird, formatieren.
Ich habe es in der folgenden Datei versucht, jedoch wird die Formatierung nicht automatisch angepasst, sondern die Zelle muss jedesmal angewählt werden.
Könnt ihr Euch das mal in der...
27.01.2009 08:20:03
Thread-ID: 1044069
10 Beiträge
Bedinte Formatierung mittels VBA
Dinci

Hallo zusammen.
Ich habe eine Liste aus der ich verschiedene Ausagen herausziehen möchte.
Dieses kann man ja gut mit der bedingten Formatierung durchführen.
Da es für Anwender konzipiert ist, möchte ich, dass der Anwender diese Aussagen selber definiert.
Aus diesem Grund habe...
27.01.2009 13:36:57
Thread-ID: 1044216
5 Beiträge
"Bedingte Formatierung" kopieren
Susanne

Hallo,
wenn ich unter Excel 2007 die bedingten Formatierungen von Zelle A1 via Innhalte einfügen auf Zelle A2 kopieren, werden die dort eventuell vorhandenen bedingten Formatierungen (im Gegensatz zu Excel 2003!) nicht automatisch gelöscht bzw. überschrieben.
Wie ersetze ich bei Excel 2...
08.02.2009 20:33:51
Thread-ID: 1048473
5 Beiträge
Inhalt Textfelder mit Formatierung kopieren
Tobias

Hi zusammen,
ich hab folgenes Problem. Ich habe 2 Textfelder (NICHT aus den Steuerelementen) und möchte den Inhalt des einen Textfeldes in das andere kopieren wobei jedoch die Formatierung beibehalten wird. Ich habe schon alles mögliche versucht (siehe Anhang) aber es funktioniert leider ni...
10.02.2009 11:41:00
Thread-ID: 1048975
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
1
5
1
19
5
9
4
4
9
3
4
1
5
3
4
2
3
1
5
2
4
1
2
3