Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
944to948
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
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle mit Wert mit VBA Farbe zuweisen!

Zelle mit Wert mit VBA Farbe zuweisen!
29.01.2008 18:36:00
Markus
Hallo zusammen,
ich möchte in meiner Tabelle alle Zellen (D6:GC110) mit folgenden Werten über VBA farbig markieren:
SC = Grün
SU = Gelb
U = Gelb
K = Blau
E = Grau
Ü = Lila
kann mir dabei jemand helfen?
Danke und Gruß Markus

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle mit Wert mit VBA Farbe zuweisen!
29.01.2008 18:49:09
Chris
Servus

Sub farbe()
Dim Zelle as Range, Bereich as Range
Set Bereich = Range("D6:GC110")
For each Zelle In Bereich
Select Case Zelle.Value
Case "SC":
Zelle.Interior.ColorIndex = 4
Case "SU":
Zelle.Interior.ColorIndex = 4
u.s.w.  Die Farbenindexnummern, kannst du dir über den Makrorecorder holen. Einfach Makro  _
aufzeichnen und zelle mit entsprechender Füllfarbe versehen und dann nachschauen  und als Case: vor End Select analog dem Beispiel einfügen (Ich hab die jetzt nicht alle im Kopf)
End Select
Next Zelle
End Sub


Gruß
Chris

Anzeige
AW: Zelle mit Wert mit VBA Farbe zuweisen!
29.01.2008 18:54:39
Reinhard
Hi Markus,
mit dem zweiten Makro sieht du, welche Farbe der zeilennummer entspricht.
Diese Zeilennummern mußt du dann im Code für die Variable F() anpassen.
Wichtig ist daß es für jeden durch Komma getrennten Eintrag in W() auch einen in F() gibt, dann kannst du die Kriterien in W() beliebig vergrößern.
Gruß
Reinhard

Option Explicit
Sub Ostern()
Dim N, Zelle, W, F
W = Array("SC", "SU", "U", "K", "E", "U")
F = Array(3, 5, 7, 34, 12, 6)
For Each Zelle In Range("D6:GC110")
For N = 0 To UBound(W)
If Zelle = W(N) Then
Zelle.Interior.ColorIndex = F(N)
Exit For
End If
Next N
Next Zelle
End Sub
Sub Farbwert()
Dim F
For F = 1 To 56
Cells(F, 1).Interior.ColorIndex = F
Next F
End Sub


Anzeige
AW: Zelle mit Wert mit VBA Farbe zuweisen!
29.01.2008 20:24:00
Markus
Dank Euch,
funktioniert hervorragend!
Gruß Markus

235 Forumthreads zu ähnlichen 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
Anzeige
Wenn ijn Spalte Datum von Jänner dann Werte zählen
Jänner

Hallo!
Ich habe in der Spalte A ab der Zeile 3 Datumwerte aus den Wochenenden und den Feiertagen stehen.
In der spalte G, H, I stehen nun Werte.
Ich möchte nun alle Werte in Abhängigkeit des Datums zusammenzählen.
Ist in der Spalte A das Jänner Datum vorhanden dann sollen die We...
07.01.2009 08:42:00
Thread-ID: 1037440
4 Beiträge
Wenn Dann mit Werten zwischen 2 Zellen
Thomas

Hallo,
montagsgemäß steh ich gerade auf dem Schlauch und benötoge Hilfe für folgendes Problem:
ich habe mind. 10 Werte in % von 50% bis 110%
In den Zellen A1 bis A10 steht ein Text, dahinter also in B1 bis B10 die Prozentwerte.
Dann steht in C1 ein Objektspezifischer Wert/ein E...
23.02.2009 11:55:52
Thread-ID: 1053025
3 Beiträge
Anzeige
Mehr als sieben Werte bei WENN(Prüfung;Dann_Wert;S
Florian

Hallo zusammen,
WENN(Prüfung;Dann_Wert;Sonst_Wert). Leider kann ich nicht mehr als sieben Werte eingeben.
Gibt es eine Möglichkeit diese Obergrenze zu Umgehen?
Danke schon mal und schönes Wochenende :-)
13.03.2009 14:55:58
Thread-ID: 1059900
4 Beiträge
Wenn "Test" in I19:I23 dann Wert kopieren
Heinz

Guten morgen Leute
Habe ein Problem,deren Lösung ich nicht weiterkomme.
ZB. In Sheet "Zuschauer"A2 =WENN('R1'!$I19:$I23="Test";R1'!$j$19
In Sheet "Zuschauer" geht es bis 'R36' A2 - A3 - A4 usw. es geht um ein Diagramm für Zuschauer bei
HEIMSPIELEN.
Wenn zB. 'R3 "Test" i...
11.07.2009 10:40:54
Thread-ID: 1087834
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: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
Excel Farbe der selektierten Zellen ändern
lupo

Guten Morgen,
ein Arbeitskollege möchte gerne die Farbe der ausgewählten / markierten Zellen ändern.
Zu dem Thema habe ich viel gegoogelt. An verschiedenen Stellen wird behauptet das würde nicht gehen.
Dann habe ich diese Video gefunden:
http://www.bukisa.com/videos/22842_mrexce...
07.08.2009 10:05:24
Thread-ID: 1094211
4 Beiträge

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
6
3
2
2
3
1
1
3
3
2
9
7
4
2
15
6
9
4
5
4
2
5
7
2