Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
884to888
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
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Rote Schrift bei einem bestimmten Wort per VBA

Rote Schrift bei einem bestimmten Wort per VBA
13.07.2007 23:06:47
Lenhard
Moin Moin Ihr Excelianer!!
Ich habe im Forums-Archiv sehr viel zu meiner folgenden Anfrage gefunden, aber irgendwie war nicht das richtige dabei.
Problem: Wenn in meinem Tabellenblatt in der Spalte C6:C750 das Wort "Ausgang" steht, dann soll es in Roter Farbe erscheinen. Alle anderen Worte sollen im normalen Excel-Standard "Automatisch" verbleiben.
Bitte eine Lösung per VBA. Die "Bedingte Formatierung" kenne ich, greift aber leider aus verschiedenen Gründen nicht.
Ich bitte um Hilfe!
Gruß aus dem hohen Norden
Lenhard

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Rote Schrift bei einem bestimmten Wort per VBA
13.07.2007 23:29:00
Uduuh
Hallo,
als Teil des Zellinhalts oder als Inhalt?
Wenn 2. der Fall sein sollte, warum sollte bed. Format nicht greifen?
Gruß aus’m Pott
Udo

AW: Rote Schrift bei einem bestimmten Wort per VBA
13.07.2007 23:35:08
Lenhard
Hallo Udo!
Danke der Nachfrage!!
Nur als Inhalt! ...und "Bedingte Formatierung" greift nicht, weil teilweise schon mehr als 3 bedingte Formatierungen auf Zellen "lasten".
Deshalb per VBA.
Gruß
Lenhard

AW: Rote Schrift bei einem bestimmten Wort per VBA
14.07.2007 02:27:03
Oberschlumpf
Hi Lenhard
Versuch es mal so:
Schreib ins Change-Ereignis des Sheets diesen Code

If Target.Column = 3 Then
If Target.Value = "Ausgang" Then
Target.Font.ColorIndex = 3
Else
Target.Font.ColorIndex = xlAutomatic
End If
End If


Hilft das?
Ciao
Thorsten

Anzeige
AW: Rote Schrift bei einem bestimmten Wort per VBA
14.07.2007 11:17:00
Lenhard
Moin Thorsten!!
Das funktioniert perfekt!!! Vielen Dank!
Gruß aus dem Norden!
Lenhard

AW: Rote Schrift bei einem bestimmten Wort per VBA
14.07.2007 13:55:00
Matthias
Hallo Lenhard
Nein, nicht ganz perfekt ;-)
Um es auch wirklich nur für Deinen Bereich zu verwenden, solltest Du die Zeilenangaben nicht unterschlagen.
( fetter blauer Text im Code )
sonst passiert das auch außerhalb Deiner Zeilenangaben sofern man in Spalte C (Column=3) bleibt.
Mein Vorschlag:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Row > 5 And Target.Row 
Target.Font.ColorIndex = Target.Font.ColorIndex
If Target.Value = "Ausgang" Then Target.Font.ColorIndex = 3
End If
End Sub


Durch die Zeile Target.Font.ColorIndex = Target.Font.ColorIndex
zerstörst Du nicht eine andere evtl. schon vergebene Schriftfarbe (die aktuelle Schriftfarbe bleibt Dir somit erhalten)
So und nun feier ich den Geburtstag meiner Mutter (Gartenparty angesagt ;-)
bis bald ...
Userbild

Anzeige
AW: Rote Schrift bei einem bestimmten Wort per VBA
14.07.2007 14:12:45
Oberschlumpf
Hi Matthias
Du hast Recht. Mit meinem Code bekommt jede Zelle in Spalte C rote Textfarbe, wenn man "Ausgang" eingibt.
So gesehen ist dein Code an der Stelle der Bessere (ich war zu faul, auch was für die Zeilenkontrolle zu tun :-) )
Aber dein Code ist trotzdem auch noch nich perfekt.
Mit Verwendung der Zeile
Target.Font.ColorIndex = Target.Font.ColorIndex
bleibt der Text rot, nachdem 1x Ausgang drin stand, und man diesen Wert wieder in anderen Text ändert.
Deine Idee ist wohl nur mit einer Public-Variable möglich.
Ciao
Thorsten

AW: Rote Schrift bei einem bestimmten Wort per VBA
14.07.2007 14:38:33
Matthias
Hallo Thorsten
ich hatte ja auch gepostet ... (die aktuelle Schriftfarbe bleibt Dir somit erhalten).
Und wenn sie nun mal rot war dann war sie eben rot und bleibt auch so. ;-)
aber ich weiß schon wie Du es meinst ;-)
Userbild

Anzeige
AW: Rote Schrift bei einem bestimmten Wort per VBA
14.07.2007 14:52:38
Oberschlumpf
Hi Matthias
Aber nei der Gelegenheit kannst du mir (uns) ja mal bitte verraten, wie du den Text (hier) nicht nur fett/kursiv bekommst, sondern auch noch in anderer Farbe.
Thx & bye
Thorsten

AW: Rote Schrift bei einem bestimmten Wort per VBA
14.07.2007 16:41:26
Lenhard
Hallo Leute!!! ...das haut mich fast um, was meine Anfrage da so los gelöst hat!! Finde ich SUPER TOLL!!
Bin gerade zwischen zwei Fototerminen ( ...mein 2. Standbein, sonst Krankenpfleger) mal kurz zu Hause und erfreue mich Eures Dialoges!!!
Ich muss nun Fotos bearbeiten und senden und dann zu einem Test-Handspiel vom THW Kiel. Danach, also heute Abend später, schau ich mir alles noch an und werde, so glaube ich, einiges davon umsetzen!!!
Wenn so mit einem Forum verfahren wird, dann LEBT es!!! ...und zahlreiche andere haben auch etwas davon!!
Danke Euch allen!
Gruß
Lenhard

Anzeige
AW: Rote Schrift bei einem bestimmten Wort per VBA
15.07.2007 02:44:29
Matthias
Hallo Thorsten
Das ist HTML
Den Text Hallo Thorsten schreibst Du dann so wie im Bild:
Userbild
hilft Dir das weiter ?
Userbild
Anzeige
AW: Rote Schrift bei einem bestimmten Wort per VBA
15.07.2007 07:22:24
Oberschlumpf
Hi Matthias
es hilft!!
Ich kenn mich in HTML (Grundkenntnisse) eigtl aus...hätte ich selbst drauf kommen können.
Wenn einer n Brett vermisst - das hab ich gerad vorm Kopp :-))
Danke + Ciao
Thorsten :-)

AW: Rote Schrift bei einem bestimmten Wort per VBA
15.07.2007 12:21:00
Lenhard

Hi Leute!!
Ist ein wirklich netter
Dialog, den Ihr da so führt!!!
Ich bin am Schmunzeln und freue mich!! ...der
Spruch mit "dem vermissten Brett"
ist einfach klasse!



Wenn Ihr Euch fragt, wie
ich dass hier nun so schnell gemacht habe: Ganz einfach, schreibt Euren
Text in einem HTML-Editor und formatiert ihn da auch (ist wesentlich bequemer!).
Dann geht Ihr in den Quelltext (...oder bei Frontpage ist es die
"HTML-Registerkarte") und kopiert einfach das, was zwischen den Wörtern "body"
steht hier ins Forum! Thats it!


Und nochmals: Danke für Euer Interesse!!
Gruß
Lenhard
PS ...na na na, wir sind doch hier in einem Excel-Forum und nicht in einem HTML-Skript-Forum... :-)))

Anzeige
AW: Rote Schrift bei einem bestimmten Wort per VBA
14.07.2007 02:25:00
Jenny
Hallo Lenhard,
kopiere diesen Code in das Modul des Tabellenblattes:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
For Each rngZelle In Range("J3:J2000")
If rngZelle.Value = "Ausgang" Then rngZelle.Font.ColorIndex = 3
Next rngZelle
End Sub


Grüße von Jenny im Excel-Land

AW: Rote Schrift bei einem bestimmten Wort per VBA
14.07.2007 11:41:00
Lenhard
Moin Jenny!
Vielen Dank für Deinen Vorschlag!!
Dein Vorschlag funktioniert bis zum Eintrag des Wortes "Ausgang". Das Wort nimmt in der Tabelle die rote Farbe an... ...aber gleichzeitig wird dadurch die Zelle formatiert.
Wenn man die Einträge in der Spalte wieder ändert, bleiben sie in roter Schrift! Es soll aber nur das Wort "Ausgang" rot dargestellt werden.
Da Thorsten mir auch eine funktionierende Lösung vorgeschlagen hatte, könnten wir natürlich hier Schluss machen. Mich interessiert aber Dein Grundgedanke sehr! Also: Wenn Du magst und noch eine Lösung auf Deiner Basis hast, dann gerne hier!!
Vielen Dank Jenny!
Gruß
Lenhard

Anzeige
AW: Rote Schrift bei einem bestimmten Wort per VBA
14.07.2007 11:53:00
Lenhard
Hallo Jenny! Ich noch mal! ....denn ich habe eine - mögliche - Lösung bereits selber gefunden:
Dim rngZelle As Range
For Each rngZelle In Range("C6:C750")
If rngZelle.Value = "Ausgang" Then
rngZelle.Font.ColorIndex = 3
Else
rngZelle.Font.ColorIndex = xlAutomatic
End If
Next rngZelle
Das funktioniert, aber da ich Daten per UserForm in die Tabelle eintrage folgt nun das nächste Problem: Die Zeit, in der die Einträge aus dem UserForm in das Tabellenblatt übernommen werden, verlängert sich wesentlich!!
Gruß
Lenhard

8 Forumthreads zu ähnlichen Themen

Wenn o dann Text in A1 rot
Heinz A. Wankmüller
Hallo Jörg,dafür verwendest am besten die Bedingte Formatierung.
Setze den Cursor in die Zelle A1 und rufe Format/Bedingte Formatierung auf. Wähle anstatt Zellwert ist den Eintrag Formel ist und gib die Formel =$A$12="o" ein. Danach definierst du noch das gewünschte Format mit roter, vielleicht...
16.04.2002 17:25:23
Thread-ID: 113808
2 Beiträge
Anzeige
Zellen mit roter Schrift in anderes Blatt kopieren
Burghard

Hallo,
ein gutes neues Jahr wünsche ich!
Mein aktuelles Problem: Ich kriege es nicht hin. Ich habe in einer Tabelle "Daten" mit den Spalten A:H verstreut Zeilen, die im Bereich D:H (in der jeweiligen Zeile) eine rote Schriftfarbe haben. Ich möchte aus der Tabelle "Daten" die Zeilen, die...
01.01.2018 18:56:33
Thread-ID: 1599645
11 Beiträge
Text-&Listbox in UF aktiv wenn Zellfarbe rot
Sönke

Moinsen...
...ich komme nicht weiter!
Ich lese eine Zelle im aktiven Tabellenblatt aus in eine Textbox einer UF. Ich lese sowohl den Wert (Name), als auch die Hintergrundfarbe aus. Ich schaffe es aber nicht zu sagen, dass bspw. Text- und Listbox6 in der UF dann ausgeblendet und deaktivi...
11.10.2018 17:43:31
Thread-ID: 1650830
5 Beiträge
Anzeige
Text in Rechteckform trotz Gruppierung ändern
Michael Rapp
Hallo Excelexperen,

ich benötige Hilfe bei einem VBA Problem.
Ich möchte in einem Rechteck, das mit 8 anderen zu einer Gruppe verbunden ist, den darin enthaltenen Text verändern. Das ist möglich per Hand ohne die Gruppe aufzulösen (ist auskommentiert). Wenn ich jedoch den Makrorecorder...
14.09.2003 13:35:07
Thread-ID: 309560
5 Beiträge
Text-in-Rot-Formel
Pogonatherum

Hallo,
würde gerne mein Excel Datei etwas frisieren.
D. h. ich dokumentiere in Excel meine geschriebenen Rechnungen nach Rechnungsnummer (04-#### - Platzhalter für eine vierstellige Nummer), nach Rechnungsstellung (Datum), nach dem Rechnungsempfänger und nach dem Betrag. In Spalte F wir...
02.04.2006 16:51:29
Thread-ID: 751548
8 Beiträge
VBA Schriftfarbe ändern
Juls

Hallo zusammen,
ich habe eine Tabelle mit Daten in den Spalten A bis P. Wenn in Spalte A ein Y steht soll die komplette Zeile in der es steht von A bis P eine rote Schriftfarbe erhalten und durchgestrichen werden. Bei meinen Versuchen habe Ich es nicht geschafft, die Zellformatierung auf g...
10.11.2020 09:13:27
Thread-ID: 1792218
3 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

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
1
5
10
4
3
4
7
2