Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1040to1044
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
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schriftfarben in Zellen

Schriftfarben in Zellen
19.01.2009 07:57:00
Ulli
Hallo Zusammen,
beim letzen mal wurde mir sehr schnell, sehr kompetent und sehr freundlich geholfen. Dafür möchte ich mich nochmals bedanken.
Hier mein Problem: Ich habe eine Tabelle mit verschiedenen Farben in einer Zelle. Diese Farben entsprechen jedoch nicht den originalen Schriftfarben, sondern sind - aus welchem Grund auch immer (ich kann es nicht sagen, da ich die Tabelle nicht erstellt habe) - mit falschen Schriftfarben versehen wurden. Es handelt sich nur um 4 verschiedene Farben, welche zu ändern wären. Die Zelle ich im Moment so aufgebaut:
IF AKTIV "EIN" = Start
IF (RGB 0, 255, 0) AKTIV (RGB 255, 0, 255) EIN (0, 255, 255) Start (RGB 255, 255, 0)
Die Schriftfarben in dieser Zelle müssen jedoch wie folgt lauten:
IF AKTIV "EIN" = Start
IF (RGB 0, 191, 0) AKTIV (RGB 153, 51, 204) EIN (0, 0, 191) Start (RGB 255, 128, 0)
Die Sonderzeichen, wie " oder = sind in Schwarz und sollen auch icht geändert werden. Leider ist es nicht so, dass immer nur die gleichen Worte geändert werden müssen, sondern die Schriftfarbe, die jetzt bei "IF" ist kann in einer anderen Zelle "Start" zugewiesen werden müssen. Die einzige Übereinstimmung ist die Schriftfarbe.
Nun hoffe ich, dass man dieses Problem per VBA beheben kann. Ich kann es jedoch nicht mal Ansatzweise.
Vielen Dank im Voraus
Ulli

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nachfrage?
19.01.2009 08:34:10
Tino
Hallo,
also nochmal zum Verständnis, damit auch ich es verstehen kann.
(Ich stehe manchmal etwas auf der Leitung)
Du hast einen Zellbereich (Bsp. A1:A100)
In diesen Zellen kommen diese Schriftfarben vor
RGB (0, 255, 0) (255, 0, 255) (0, 255, 255) ( 255, 255, 0)
Diese möchtest Du durch diese ersetzen
RGB (0, 191, 0) (153, 51, 204) (0, 0, 191) (255, 128, 0)
Habe ich dies richtig verstanden?
Gruß Tino
Beispiel...
19.01.2009 09:56:56
Tino
Hallo,
bin jetzt eine Zeit lang nicht am Rechner, sollte ich Deine Frage richtig verstanden haben,
kannst Du mal diesen Code testen.
Den Zellbereich musst Du im Code eventuell noch anpassen.
Sub SchriftFarbe()
Dim Bereich As Range, Zelle As Range

'hier den Zellbereich angeben 
Set Bereich = Range("A1:A100")

For Each Zelle In Bereich
  With Zelle.Font
    Select Case .Color
     Case RGB(0, 255, 0): .Color = CDec(RGB(0, 191, 0))
     Case RGB(255, 0, 255): .Color = CDec(RGB(153, 51, 204))
     Case RGB(0, 255, 255): .Color = CDec(RGB(0, 0, 191))
     Case RGB(255, 128, 0): .Color = CDec(RGB(255, 128, 0))
    End Select
  End With
Next Zelle

End Sub


Ich lass die Frage aber offen.
Gruß Tino

Anzeige
AW: Beispiel...
19.01.2009 20:31:17
Ulli
Hallo Tino,
der oben genannte VBA-Code funktioniert nur, wenn nur eine der Farben in einer Zelle vorhanden ist. Bei meiner Tabelle sind aber alle oben genannten Farben in einer Zelle. Dadurch wird die "Aufgabe" um einiges schwieriger und ich weiß beim besten Willen nicht, wie man das anstellen kann.
Trotzdem erst mal vielen Dank für Deine Antwort. Vielleicht kannst Du mir auch in diesem Fall weiter helfen.
Gruß Ulli
AW: Beispiel...
20.01.2009 08:42:04
Tino
Hallo,
dies müsste so funktionieren,
kann aber bei vielen Zellen mit langen texten etwas länger dauern.
Sub SchriftFarbe()
Dim Bereich As Range, Zelle As Range
Dim i As Long
'hier den Zellbereich angeben 
Set Bereich = Range("A1:A100")

Application.ScreenUpdating = False
    For Each Zelle In Bereich
     If Zelle <> "" Then
        For i = 1 To Len(Zelle)
            With Zelle.Characters(Start:=i, Length:=1).Font
              Select Case .Color
               Case RGB(0, 255, 0): .Color = RGB(0, 191, 0)
               Case RGB(255, 0, 255): .Color = RGB(153, 51, 204)
               Case RGB(0, 255, 255): .Color = RGB(0, 0, 191)
               Case RGB(255, 128, 0): .Color = RGB(255, 128, 0)
              End Select
            End With
        Next i
     End If
    Next Zelle
Application.ScreenUpdating = True
End Sub


Tipp: mach Deinen Beitrag offen wenn Dein Problem noch nicht gelöst ist.
Gruß Tino

Anzeige

301 Forumthreads zu ähnlichen Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
An Zellengröße anpassen in Verbundenen Zellen
Kai

Hallo
Ich habe folgendes Problem.
Ich habe die Zellen D12-G23 verbunden.
Darin soll ein längerer Text stehen, welcher mit sverweis geholt wird.
Wenn ich die Zelle mit Zeilenumbruch formatiere, dann ist der Text zu lang (unten fehlt was).
Wenn ich den Text mit "An Zellengröße...
18.08.2008 17:09:00
Thread-ID: 1002694
3 Beiträge
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Anzeige
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Schriftgröße in Textbox anpassen
Kai

Hallo
Ich habe eine Textbox, die mit einer Zelle verlinkt ist, so da die Box den Text aus der Zelle anzeigt.
Die Box ist mit Zeilenumbruch eingerichtet.
Wenn der Text zu lang ist, dann wird der Rest abgeschnitten.
Gibt es eine Möglichkeit, die Box so einzurichten, das sich die S...
24.08.2008 14:25:00
Thread-ID: 1004257
5 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 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
2
4
2
5
3
3
4
9
3
5
1
10
2
1
6
4
1
4
6
1
5
11
5
9
22