Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
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
1756to1760
1756to1760
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schriftfarbe von Zelle in UF

Forumthread: Schriftfarbe von Zelle in UF

Schriftfarbe von Zelle in UF
05.05.2020 17:50:04
Zelle
Guten Abend,
ich möchte gern die Schriftfarbe der Zelle übernehmen.
Wenn C10 die Schriftfarbe ROT ist , soll die Farbe vom Label1 auch Rot sein.
Wenn die Schriftfarbe in C10 wieder Schwarz ist, sollte diese auch im Label1 schwarz sein.
mfg sigrid
Anzeige

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Was gerade gefunden ABER ...
05.05.2020 17:57:26
sigrid
Hallo zusammen,
ich habe gerade was gefunden:
Me.Label2.ForeColor = Cells(10, 3).Font.Color
das klappt aber kann man dies in meiner Zelle einbauen:
Me.Label2.Caption = Format(ActiveSheet.Range("C10"), ("dd.mm.yyyy"))
ODER
kann man alle Zellen in Spalte C von C10 bis C50 prüfen und entsprechend
auf die Label2 bis Label50 entsprechend Farbig anpassen ?
gruß sigrid
Anzeige
Gibt es dafür eine Schleifenmöglichkei @
05.05.2020 20:52:12
Sigrid
Guten Abend,
gibt es dafür eine Schleifenmöglichkeit ?
Wenn nicht muss ich halt die Zeilen einzeln Schreiben.
Mit freundlichen Grüßen Sigrid
AW: Gibt es dafür eine Schleifenmöglichkei @
05.05.2020 21:00:06
Daniel
Hi
Wenn Zeilennummer und Labelbezeichnung in einem Berechenbaren Zusammenhang stehen, ja.
Du kannst ein Userformsteuerelement mit Hilfe der Controls-Funktion den Elementnamen als Freitext angeben und "berechnen"
For x = 0 to 48
Me.Controls("Label" & x + 2).Caption = Cells(x + 10, 3).Text
Next
Gruß Daniel
Anzeige
AW: Gibt es dafür eine Schleifenmöglichkei @
05.05.2020 21:14:58
Sigrid
Danke Daniel,
werde morgen Früh mal sehen wie ich es hinbekomme.
Label 2 bis 50 soll ja entsprechend rote Farbe dargestellt da wo
In den Zellen in der Spalte C von 10 bis 50 da wo auch die Schriftfarbe
Rot ist.
Ich habe gedacht ich muss das Makro in die Userform einbringen.
Mit freundlichen Grüßen sigrid
Anzeige
AW: Gibt es dafür eine Schleifenmöglichkei @
05.05.2020 21:33:58
Daniel
Das Makro kann überall innerhalb des Projektes stehen.
Man muss dan ggf die Objekte zusätzlich mit dem Modulnamen ansprechen: UserForm1.Label2
Steht der Code in der Userform, kannan das weglassen.
Ich wollte dir hier nur zeigen, wie du über die Controls-Funktion die Objekte einer Userform in einer Schleife ansprechen kannst, ohne jedes einzeln aufzuführen.
Dabei kannst du natürlich jede vorhandene Objekteigenschaft verwenden.
Anzeige
Leider nicht...
06.05.2020 09:41:38
sigrid
Guten Morgen Daniel,
leider Fehlermeldung:
Laufzeitfehler, Das angegebene Objekt konnte nicht gefunden werden.
Ich hab dies in Private Sub UserForm_Initialize()
habe nur mal 8 Label erstellt und aktive Datei entspricht
der Zellen die evtl. Rot sind.
als Test so reingesetzt:
Dim x
For x = 0 To 8
Me.Controls("Label" & x + 2).Caption = Cells(x + 10, 1).Text
Next
mfg sigrid
Anzeige
Hier mein Muster... Bitte mal kontr.
06.05.2020 10:55:07
sigrid
Guten Morgen,
hier ist mein Muster:
https:\/\/www.herber.de/bbs/user/137302.xlsm
es sollen die Farben der Datumswert in der UF Labels angezeigt
werden.
bitte mal prüfen was habe ich FALSCH gemacht,
danke im Voraus,
mfg sigrid
Anzeige
AW: Hier mein Muster... Bitte mal kontr.
06.05.2020 12:31:28
Daniel
HI
was du falsch machst?
1.das fängt schon mal damit an, dass du im Code Userform1 schreibst, obwohl du sie Userform2 genannt hast. man sollte schon wissen, welche Namen man vergibt.
zumal es hier nicht notwendig ist, den Userform zu verwenden. das muss man nur tun, wenn man ein Objekt der Userform verwenden will und sich das Makro in einem anderen Modul befindet.
2. deine Schleife ist nicht auf die Modulbenennungen abgestimmt.
bei den ersten Umläufen passt es noch, bei den letzten generierst du nicht vorhandene Namen.
3. du verweist auf leere Zellen
4. du überträgst den Text von der Zelle auf das Label und nicht die Farbe.
Gruß Daniel
Gruß Daniel
Anzeige
Zudem Schriftfarbe aus Bedingtem Format! (owT)
06.05.2020 12:55:22
EtoPHG

das ist in der genannten Excelversion
06.05.2020 14:08:57
Daniel
aber kein Problem mehr.
das lässt sich per VBA mittlerweile genauso gut abfragen wie normale Farben.
Gruß Daniel
Bitte Muster, da ich nicht so fittttt bin...
06.05.2020 14:24:34
sigrid
Hallo Daniel,
wie muss ich den die Formel ändern oder könntest Du mir das
in meinem Muster darstellen ?
Wäre sehr dankbar,
mfg sigrid
Anzeige
Nochmal meine Erklärung...
06.05.2020 14:29:07
sigrid
Hallo zusammen,
ich möchte das die Datumswerte die ROT in der Tabelle sind auch in
der Userform in den Labeln ROT dargestellt werden, sind alle Schwarz, soll halt in der
UF in den LABEL Schwarz dargestellt werden,
DANKE im Voraus
gruß sigrid
AW: Nochmal meine Erklärung...
06.05.2020 14:36:54
Daniel
Hi
wie du die Farbe von eine Zelle ins Label übernimmst, hattest du doch schon selber herausgefunden.
Gruß Daniel
Anzeige
AW: Nochmal meine Erklärung...
06.05.2020 14:46:02
sigrid
Hallo Daniel,
bekomme es leider nicht hin, vielleicht weil ich eine Frau bin
oder nicht so fit wie Du es bist, deswegen würde ich Dich
bitten....
hatte diese Zeile beim googeln gefunden = Label1.ForeColor = Cells(10, 2).Font.Color
gruß sigrid
Bin glücklich, habs rausgefunden --))
06.05.2020 15:37:07
sigrid
Hallo an Alle,
besonders Daniel der viel Geduld hatte !!!
Ich habe mal rumprobiert und es geschafft.
Dim x
For x = 0 To 5
'UserForm2.Controls("Label" & x + 2).Caption = Cells(x + 14, 3).Text 'Orginal von Daniel
UserForm2("Label" & x + 1).ForeColor = Cells(x + 10, 2).Font.Color
danke
mfg
sigrid
Anzeige
AW: Bin glücklich, habs rausgefunden --))
07.05.2020 09:32:11
Daniel
tja, das wichtigste beim Programmieren ist, dass man selber mitdenkt.
dann hat man Erfolg und mit dem Erfolg auch Spass an der Sache
mit einfach nur "irgendwelche Codeteile aus dem Internet kopieren und einfügen" wird man nicht weit kommen.
Nur leider haben viele Fragesteller in den Foren genau diese Erwartungshaltung und sind meist zu faul zum selber mitdenken. Das hat jetzt nichts mit Mann oder Frau zu tun, und in den wenigsten Fällen mit Intelligenz (so kompliziert ist das meiste ja nicht), sondern meistens mit der inneren Einstellung.
Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Bedingte Formatierung Zelle
hindenberger@gmx.de

Hallo,
kann ich ausgehend eines Ergebnis (grösser oder kleiner Null) eine Zelle einmal grün und einmal rot einfärben lassen?
Danke.
Gruß,
Patric
27.12.2008 12:46:09
Thread-ID: 1035362
3 Beiträge
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
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
Bedingte Formatierung-Rahmen für bestimmte Zellen
Peter

Hallo zusammen,
ich möchte in einem Tabellenbereich alle Zellen, die eine Zahl enthalten und daher nicht leer sind, mit einem "Rahmen" versehen.
Ich versuche es z.Zt. mit "bedingter Formatierung" und dann "Formel ist" = Istzahl. Leider funktioniert das nicht. Vielleicht hat jemand von E...
20.03.2009 13:51:29
Thread-ID: 1062187
3 Beiträge
Bedingte Formatierung bei leerer Zelle
Marko

Hallo,
vermutlich schon tausend mal gefragt, aber irgendwie komme ich nicht klar.
Wenn in J2 etwas drin steht, soll die Zelle weiß bleiben; wenn nicht, soll sie rot eingefärbt werden.
Wie muss ich die Bedingte Formatierung hierfür gestalten?
Gruss,
Marko
05.05.2009 10:41:00
Thread-ID: 1072999
3 Beiträge
Bedingte Formatierung leere Zellen farbig
ropa

Hallo,
nochmal Bedingte Formatierung
Wie kann ich einen Zellbereich so mit der bedingten Formatierung belegen das alle leeren Zellen z.B. gelb hinterlegt sind wenn ich einen Wert oder Text eingebe dann soll die Formatierung verschwinden.
Grüße
Roland
23.06.2009 14:24:25
Thread-ID: 1083810
2 Beiträge
Eintrag aus Textfeld in zelle übernehmen wenn leer
Benni

hallo,
kann mir jemand helfen, ich kenne mich mit VBA nicht wirklich gut aus.
ich möchte die Eingabe in einem Textfeld auf einer UserForm in eine Zelle auf dem Worksheets "Werte" übertragen. Problem bei der Sache ist, dass z.B. ich bei der Zelle A1 Anfange und wenn dort schon ein „Inhal...
24.06.2009 09:05:21
Thread-ID: 1083991
14 Beiträge
Anzeige
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
Wenn Dann Funktion mit zählen wenn
Christian

Hallo zusammen,
ich brauche eine Funktion, die es mir ermöglicht, in einem Datenblatt erst nach einem bestimmten Wert zu suchen und dann zum gefundenen Wert einen weiteren Wert zu suchen und diese dann in der Anzahl zusammen zu zählen.
Bisher dachte ich, ich komme so zu meinem Ziel:
...
07.08.2009 10:26:38
Thread-ID: 1094218
3 Beiträge
Bedingte Formatierung einer Zelle
Steffen

Hallo,
ich habe folgendes Problem in einer Tabelle:
Die Spalte B ist mit 2 Werten versehen (A+B). Sobald in einer Zeile B ausgewählt wird, soll die Zeile (von z.B. A10-G10) rot markiert werden. Wie kann ich nun also die gesamte Tabelle mit einer bedingten Formatierung versehen, die dann...
26.08.2009 17:02:10
Thread-ID: 1098830
3 Beiträge
Anzeige
Werte aus Zellen übernehmen
sanktflorian

Hallo,
Ich möchte gerne Werte aus zellen die auf dem Blatt Ulm I untereinander stehen im Blatt Einzelergebnisse
neben einander stehen lassen.
ich muß jede einzel Zelle anklicken für die Übernahme von Ulm I in Einzelergebnisse
='SSV Ulm I'!T10 ='SSV Ulm I'!T11 ='SSV Ulm I'!T1...
30.08.2009 12:42:27
Thread-ID: 1099404
13 Beiträge
Datum aus 2 Zellen in 1 Zelle übernehmen
gerhard

Hallo zusammen,
Bitte um VBA Hilfe!
In meiner Tabelle stehen in der Spalte H ein Datum im Format z.B in der Zelle H50 29.07.2008 in der Spalte I steht ebenfalls ein Datum im Format z.B in der Zelle I50 06.10.2008
Jetzt soll in der Spalte G in Zelle G50 automatisch folgender Eintrag...
11.09.2009 07:40:30
Thread-ID: 1101896
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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