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

Zellen mit Farbe füllen

Forumthread: Zellen mit Farbe füllen

Zellen mit Farbe füllen
Karsten
Hallo,
ich möchte, wenn in der aktiven Zelle "Montag" steht, dass sie und die linken 11 Zellen sich mit Farbe 38 füllen. Steht Dienstag, dann dasselbe, nur mi Farbe 8.
Kann mir da jemand mit dem richtigen Befehl weiterhelfen?
Gruß
Karsten
Anzeige
bedingte Formatierung
25.07.2009 15:05:43
Matthias
Hallo
Bereich markieren (11 Zellen Links und die Zelle in der der Wochntag steht)
Userbild
bedingtes Format einstellen
1.
=$M$2="Montag" & Farbe wählen
2.
=$M$2="Dienstag"& Farbe wählen
sollte reichen
Gruß Matthias
Anzeige
AW: bedingte Formatierung
25.07.2009 15:11:23
Karsten
Hallo Matthias,
Würde ja gehen, aber das ganze geht bis Sonntag und 3 Bedingungen gehen nur.
Gruß
Karsten
warum schreibst du das nicht gleich ?
25.07.2009 15:16:54
robert
hi,
immer das gleiche, kaum kommt eine lösung, kommt schon das ABER...
warum?
gruß
robert
AW: warum schreibst du das nicht gleich ?
25.07.2009 15:19:35
Karsten
Hallo Robert,
ich wollt's doch nicht so kompliziert machen.
Gruß
Karsten
Anzeige
@Matthias...
25.07.2009 15:12:25
robert
hi Matthias,
frage-wie erstellst du eigentlich deine
SUPER-Anleitungen ?
gruß
robert
@Robert
25.07.2009 15:18:49
Matthias
Hallo
Mit der Drucktaste
Damit wird der aktuuelle Bildschirmausschnitt in die ZWA kopiert
z.B. Paint öffnen oder ein anderes Programm und Einfügen
und dann als jpg im Paint speichern.
Vorher natürlich ein bisschen zurecht-rücken und nur den relavnten Teil
aus dem so erstellten Bild ausschneiden und wieder in eine neue Paintdatei einfügen
Dateigröße für Upload beachten
Gruß Matthias
Anzeige
Danke Matthias :-) owT
25.07.2009 15:25:28
robert
AW: Zellen mit Farbe füllen
25.07.2009 15:13:59
Bernd
Darf in den 11 Zellen links vom "Montag/Dienstag" Feld ein Wert eingetragen werden? Wenn ja, dann kann man das mit einer Kombination aus "Wenn-Formel" und bedingter Formatierung lösen.
Sagen wir in L1 steht "Montag" oder "Dienstag", dann trag in die Zellen A1:K1 diese Formel ein:
=wenn(L1="Montag";1;wenn(L1="Dienstag";2;""))
Anschließend die Zellen A1:K1 mit zwei bedingtern Formatierungen versehen und für 1 und 2 die jeweilige Farbe auswählen.
Wenn in A1:K1 nichts eingetragen werden darf, dann muss wohl VBA her, da kann ich leider nicht helfen.
Gruß,
Bernd B.
Anzeige
AW: Zellen mit Farbe füllen
25.07.2009 15:26:10
Karsten
Hallo Bernd,
geht leider nicht so, in die Zellen lings daneben wird immer etwas hineingeschrieben.
Ich hab hier schon so etwas ähnliches, aber ich will nicht, dass gleich immer der ganze Bereich "aufgefrischt" wird.
Gruß
Karsten
Dim Zelle_in_der_Schleife As Variant
Dim X, farbe As Byte
For Each Zelle_in_der_Schleife In Range("erster_Wochentag:letzter_Wochentag")
If Zelle_in_der_Schleife.Value = "Montag" Then farbe = 38
If Zelle_in_der_Schleife.Value = "Dienstag" Then farbe = 8
If Zelle_in_der_Schleife.Value = "Mittwoch" Then farbe = 40
If Zelle_in_der_Schleife.Value = "Donnerstag" Then farbe = 35
If Zelle_in_der_Schleife.Value = "Freitag" Then farbe = 39
If Zelle_in_der_Schleife.Value = "Samstag" Then farbe = 34
If Zelle_in_der_Schleife.Value = "Sonntag" Then farbe = 36
For X = -11 To 0
Zelle_in_der_Schleife.Offset(0, X).Interior.Colorindex = farbe
Next
farbe = 0
Next
Anzeige
mit VBA so
25.07.2009 15:27:57
Matthias 

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target
Case Is = "Montag"
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = 3
Case Is = "Dienstag"
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = 4
Case Is = "Mittwoch"
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = 5
Case Is = "Donnerstag"
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = 6
Case Is = "Freitag"
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = 7
Case Is = "Samstag"
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = 38
Case Is = "Sonntag"
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = 38
Case Else
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = xlNone
End Select
End Sub
Gruß Matthias
Anzeige
AW: mit VBA so
25.07.2009 15:48:04
Karsten
Hallo Matthias,
danke, klappt.
Gruß
Karsten
erledigt
25.07.2009 16:06:43
zu
AW: mit VBA so
25.07.2009 17:07:52
Karsten
Hallo Matthias,
einerseits funktioniert es, aber wenn ich jetzt in einer Zelle etwas ändere und dann bestätige wird jedesmal dieser Befehl durchlaufen. Läßt sich da ändern?
Gruß
Karsten
Anzeige
klar, aber da brauchte man mehr infos
25.07.2009 17:47:11
Matthias
Hallo Karsten
Richtig. ImMoment wird der Code bei jeder Zelländerung angestoßen
Man kann das auch auf bestimmt Spalten, Zeilen, Zellen oder Bereiche beziehen.
Du mußt hier nur mitteilen, wann und wo das passieren soll.
Gruß Matthias
AW: klar, aber da brauchte man mehr infos
25.07.2009 17:58:41
Karsten
Hallo Matthias,
Danke, hab mich gerade an den If Target.Column = 12 Then erinnert und davor eingefügt. Zellen in der L-Spalte die es nicht betrifft, sind sowieso gespert. Jetzt läufts doch.
Gruß
Karsten
Anzeige
noch ein Hinweis ..
25.07.2009 18:06:39
Matthias
Hallo
Bist Du Dir aber auch im klaren darüber das der Code dann in jeder Zelle der Spalte12 angestoßen wird
von Zeile1 bis zur letzten Zeile
Deahalb hatte ich gefragt. Wenn das nur ein Breich in Spalte L ist kann man das auch noch auf diesen einschränken.
Gruß Matthias
Anzeige
AW: noch ein Hinweis ..
26.07.2009 21:47:43
Karsten
Hallo Matthias,
Danke, gute Idee, der Bereich wäre: "erster_Tag:letzter_Tag"
Gruß
Karsten
;

Forumthreads zu verwandten Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Bedingte Formatierung - Datenbalken bei neg Werten
Gianleandro

Ich suche nach einer Möglichkeit die Datenbalken bei der bedingten Formatierung auch für negative Werte zu nutzen. Dabei schwebt mir eine Art Spielgelung der Datenbalken bei negativen Werten vor.
Wer hat dazu eine Idee?
https://www.herber.de/bbs/user/55283.xlsx
09.09.2008 14:22:24
Thread-ID: 1008498
3 Beiträge
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Anzeige
Excel2007: bedingte Formatierung mit Forme
Thorsten

Hallo,
ich habe ein Problem mit bedingten Formatierungen, die auf Formeln basieren, im Excel 2007.
Ich habe in Exel XP bzw. 2002 Dateien mit bedingten Formatierungen auf Formelbasis erstellt und diese werden im Excel 2007 nicht mehr korrekt abgebildet.
Ich habe dazu eine Datei als...
27.01.2009 15:15:00
Thread-ID: 1044267
8 Beiträge
Prozenten von Textbox in Zelle
Textbox

Hallo Spezialisten
Habe ein kleines Problemchen mit den Code.
Die Zelle ist in % formatiert. Wenn ich jetzt die Zahl 5 eingebe, kommt sie mit 500 daher in der Zelle.
Ist es auch möglich, daß bei Falscheingabe der Cursor in der Textbox bleibt?
Private Sub TextBox1_Exit(ByVal Ca...
31.01.2009 19:23:58
Thread-ID: 1045715
8 Beiträge
knifflig: in einer Zelle anzeigen, ob Makros aktiv
Tobias

Gibts ne Möglichkeit, in einer Zelle den "makrostatus" abzufragen.
Ohne VBA natürlich :)
So eine WAHR/FALSCH ausgabe wär praktisch,
da ich den Anfängern, die die Mappe öffnen, einen deutlichen Hinweis darauf geben möchte,
das sie Ohne aktiviertem VBA nicht funktioniert...
I...
20.02.2009 16:47:00
Thread-ID: 1052499
6 Beiträge
Anzeige
Hyperlink Ziel Zelle farbig anzeigen!
Wolfgang

Hallo,
benutze Hyperlinks um mich im Dokument zu bewegen.
Frage wenn ich nun zu Blatt 1 nach A32 springe, kann ich dann A32 farbig anzeigen lassen, und geht dann die Farbe wieder weg?
Vielen Recht herzlichen Dank für Eure Mühe.
Wolfgang
26.03.2009 08:30:54
Thread-ID: 1064093
5 Beiträge
Excel 2007, Bedingte Formatierung (Symbole) | Herbers Excel-Forum
Flo
Hallo,
ich hätte eine kurze Frage bzgl. der Symbolsätze in Excel 2007 (Ampeln). Erreichen möchte ich folgendes:
Ich habe eine Überprüfungsspalte mit Boolean Werten (Wahr/Falsch). In der nächsten Spalte würde ich nun gerne mit den Ampelsymbolen alle WAHR-Werte mit "Grüner Ampel" und alle FAL...
19.05.2009 10:31:03
Thread-ID: 1076075
3 Beiträge
Internetbild in Zelle anzeigen
stef@n

Hallo zusammen
bin auf der Suche nach einer Möglichkeit, ein Bild aus dem Internet in einer Zelle anzeigen zu lassen.
Ich habe es mit einem Hyperlink probiert z.b.
src="http: //www.google.de/intl/de_de/images/logo.gif" />
(Leerzeichen nach http: damit das Logo hier im Thre...
21.05.2009 15:50:09
Thread-ID: 1076569
9 Beiträge
Tabellenblattname in Zelle A1 anzeigen
Stefanglander

Hallo Forum,
ich habe hie reinen Code-Schnipsel den ich gerne umändern möchte aber mal wieder nicht weiß wie.
Im Moment wird der Tabellenname in der aktiven Zelle beim betätigen der Button angezeigt.
Wie muss ich den Code ändern, dass er in der Zelle B3 angezeigt wird ?
Sub TabN...
14.07.2009 13:33:41
Thread-ID: 1088475
3 Beiträge
Filterbedingungen in extra Zelle anzeigen
raphael

Dear all,
Ich habe eine Frage!
wie kann ich die Bedingung eines Autofilters in einer Extra Zelle darstellen?
Ich habe in B4:K4 einen Autofilter drin,
und ich möchte in B3:K3 die Bedingungen angezeigt bekommen.
Also ob das eine Custom/Top10/all oder halt einer meiner Auswahl...
18.09.2009 17:54:26
Thread-ID: 1103959
2 Beiträge
Anzeige
Ergebnis in Zelle nur anzeigen wenn in Zelle Wert
Sascha

moin,
hab hier eine ganz einefache Formel:
A B
1 2000 5
2 =A1-B1
3 =A2-B2
Wenn ich nun die Formel in Spalte A weiter fortführe wird immer das letzte Ergebnis angezeigt. Wenn nun aber noch kein Wert in Spalte B eingetragen ist, soll die Formel/Ergebnis auch ni...
27.09.2009 08:47:36
Thread-ID: 1105800
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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