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

Label in Farbe von Tabelle übernehmen

Forumthread: Label in Farbe von Tabelle übernehmen

Label in Farbe von Tabelle übernehmen
05.01.2024 17:56:22
kurt k
Guten Abend,
gibt es eine Möglichkeit die Schriftfarbe der Tabelle zu übernehmen ?
Wenn z.B. die Summe in der Tabelle ROT ist würde ich die auch gern in der Userform
übernehmen.

mfg kurt k
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Label in Farbe von Tabelle übernehmen
05.01.2024 18:43:00
Piet
Hallo

bei der UserForm kannst du das Eigenschaften Fenster anklicken. Da kannst du Farben einstellen.
Ob sich alle einstellen lassen kann ich dir aus dem Stegreif nicht sagen.

mfg Piet
Danke Piet aber es soll ja Abhängigkeit
05.01.2024 19:05:30
kurt k
Guten Abend Piet,
Danke Piet,
aber es soll ja Abhängigkeit zur Tabelle werden.
Vielleicht hat noch jemand eine Idee !

mfg kurt k
Anzeige
AW: Danke Piet aber es soll ja Abhängigkeit
05.01.2024 19:33:04
volti
Hallo Kurt,,
Deine Anforderung ist für mich nicht eindeutig.

Sollen alle Objekte die Schriftfarbe ändern?
Was ist die Farbe der Tabelle? Die Farben sind ja den Zellen oder Objekten zugeordnet.
Wann sollen die Farben übernommen werden? Beim Wechseln der Zelle, usw....
Fragen über Fragen.

Aber hier mal ein Beispiel, wie Du die angezeigte Schriftfarbe einer Zelle in eine Textbox überträgst.

Trigger ist hier das Aktivieren der Userform. Vielleicht hilft es ja schon. 
Private Sub UserForm_Activate()

  Me.TextBox1.ForeColor = ThisWorkbook.Sheets("Tabelle1").Range("A1").DisplayFormat.Font.Color

End Sub


Gruß Karl-Heinz
Anzeige
Leider Fehler
06.01.2024 10:47:14
kurt k
Guten Morgen Karl-Heinz,
sorry, mein Fehler, ich brauch es für ein LABEL. 
 Label94.Caption = Format(ActiveSheet.Range("K49"), ("#,##0.00"))        'so wird normal angezeigt

    Label94.Caption.ForeColor = Format(ActiveSheet.Range("K49"), ("#,##0.00")).DisplayFormat.Font.Color


mit Label wird Fehler angezeigt, bleibt bei Label94.Caption stehen = ungültiger Bezeichner !
mfg kurt k
Anzeige
AW: Leider Fehler
06.01.2024 11:18:28
volti 
Private Sub UserForm_Activate()

  Me.Label1.ForeColor = ThisWorkbook.Sheets("Tabelle1").Range("A1").DisplayFormat.Font.Color

End Sub


Funktioniert bei mir tadellos. Von Caption war keine Rede....

Gruß
Karl-Heinz
AW: Leider Fehler noch immer aber
06.01.2024 14:57:31
kurt k
Hallo Karl-Heinz,
ich habe folgendes eingesetzt, es wird keine Fehlermeldung angezeigt
und es wird nicht der € Betrag angezeigt sondern nur was im Label94 steht als Text.
Ich krieg es mit € Darstellung nicht hin. 
    Me.Label94.ForeColor = ThisWorkbook.ActiveSheet.Range("K49").DisplayFormat.Font.Color


mfg kurt k
Anzeige
AW: Leider Fehler noch immer aber
06.01.2024 15:38:37
volti
Hi,

bei Deiner Frage hier ging es um die Schriftfarbe, nicht um irgendwelchen Text.
Das hattest Du doch schon in einem anderen Beitrag geklärt.

Hier noch ein funktionierendes Beispiel. 

Code:


Private Sub UserForm_Activate()
  With ThisWorkbook.Sheets("Tabelle1").Range("A1")
     Me.Label1.ForeColor = .DisplayFormat.Font.Color
     Me.Label1.Caption = Format(.Value, "#,##0.00")
  End With
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz
Anzeige
DANKE Karl-Heinz perfekt ! -)
06.01.2024 15:45:50
kurt k
Hallo Karl-Heinz,
perfekt so habe ich für mich angepaßt: 
With ActiveSheet.Range("K49")

        Label94.ForeColor = .DisplayFormat.Font.Color

        Label94.Caption = Format(.Value, "#,##0.00")

  End With


Danke
mfg kurt k
AW: DANKE Karl-Heinz perfekt ! -)
06.01.2024 16:03:24
volti
👍😎
KH
Anzeige

Forumthreads zu verwandten Themen

Bei Eintrag in Zelle Eintrag i. anderer Zelle prüf
Josef

Guten Morgen!
Wenn ich z. B. in der Spalte K ein Datum eintrage, soll in der Spalte N in der gleichen Zeile folgendes geprüft werden:
Ist ein Wert in der Spalte N vorhanden dann soll dieser gelöscht und die Zelle rot gefärbt werden.
Wenn ich jedoch ein Datum in der Spalte K lösche,...
26.08.2008 06:17:08
Thread-ID: 1004645
3 Beiträge
Wie Zelle abhängig von anderer Zelle einfärben ?
anderer

Hallo,
ich möchte die Zellen in Spalte B in Abhängigkeit des Wertes in Spalte A hervorheben/einfärben.
Wenn der Wert in Spalte A ungleich dem Wert in Spalte B ist, soll Spalte B fablich hervorgehoben werden.
Wenn z.B. in A5 100 steht und in B5 101, so soll B5 farblich hervorgehoben...
09.10.2008 10:29:05
Thread-ID: 1015270
3 Beiträge
Update einer Zelle ändert andere Zelle
Markus

Hallo!
Da mir die DropDown Felder aus der Toolbox ständig mein Excel zum Absturz bringen, möchte ich nun eine andere Variante versuchen.
Ich zeige in einer Zelle eine Liste (ähnlich DropDown Feld) an. Nun möchte ich in Abhängigkeit vom Wert der einen Zelle, den Wert einer anderen Zelle...
10.12.2008 15:17:12
Thread-ID: 1031720
8 Beiträge
Anzeige
Inhalt einer Zelle in anderer Zelle als Formel
Elias

Guten Morgen,
ich bin auf der Suche nach einer Lösung für folgenden Sachverhalt.
In einer Tabelle wird aus dem Inhalt verschiedener Zellen über Verketten eine Zeichenfolge gebildet, die in einer anderen Tabelle als Formel herhalten soll.
(Kurzes) Beispiel, das Original ist furchtbar...
11.01.2009 06:01:22
Thread-ID: 1038572
6 Beiträge
Werte aus einer Zelle in andere Zelle (neue Datei)
Franz

Tach auch,
folgendes Problem habe ich:
ich öffne eine Datei über eine Vorlage "rep.xlt". Die heisst dann bis zum Speichern "rep1". In einer Zelle wird eine Zahl eingetragen, bspw.: 1234. Dann kann ich die Datei per makro speichern, dann heisst sie: "rep1234.xls. Das funktioniert auch g...
22.01.2009 15:10:00
Thread-ID: 1042648
3 Beiträge
Anzeige
Variabler Zellenbezug aus anderer Zelle
Carsten

Hallo Zusammen,
ich hoffe, jemand kann mir weiterhelfen. Ist bestimmt nur ne Sache von einer Minute, aber ich komme einfach nicht drauf.
Ich habe 2 Tabellenblätter. In Tabellenblatt 2 will ich in einer Zelle den Wert aus Zelle A1 aus dem 1 Tabellenblatt auslesen. Soweit kein Problem, da...
28.02.2009 12:11:54
Thread-ID: 1055036
12 Beiträge
Anzeige
Zelleninhalt über andere Zellen legen
Toby

Guten Mogen.
Kann mir jemand bei meinem Problem helfen?
Ich habe eine Tabelle, in der in Zeile B was stehen kann.
Wenn dort was steht sind die unteren Zellen leer.
Dann soll der Text dieser Zelle ( weil er zu groß für die eine ist ) über die darunter geschrieben "gelegt" werde...
13.04.2009 12:50:49
Thread-ID: 1068431
7 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
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
Anzeige
Zeilenhöhe aus Zelle bestimmter Sp übernehmen
Peter

Guten Tag
Ich habe eine Tabelle, in der in Spalte G ab Zeile 1 bis x steht, wieviel die Zeilenhöhe betragen soll. Nun möchte ich diese Zeilenhöhen mit Makro zuweisen und zwar zuerst die letzte Zeile mit Inhalt anwählen und dann rückwärts bis Zeile 1 abarbeiten.
Mit nachstehendem Code bi...
26.10.2009 14:49:49
Thread-ID: 1112247
3 Beiträge
VBA: Zellen vergleichen, Zellen nach unten
Scot

Hallo Leute
Ich hoffe, in diesem Forum eine Lösung für mein Problem zu finden. Bin seit Tagen auf der Suche.
Meine Tabelle sieht so aus, wie die hochgeladene, Blatt "Ausgangslage":
https://www.herber.de/bbs/user/66860.xls
Ziel soll sein, die Spalten B und N ab Zeile 6 Zeile für...
29.12.2009 02:57:17
Thread-ID: 1126145
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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