Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
496to500
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
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zeichenfolge finden

zeichenfolge finden
07.10.2004 14:21:54
monika
hallo zusammen,
ich hab folgende aufgabe bzw. problem:
eine tabelle besteht aus ca 100 zeilen. es sollen nun alle zeilen die schriftfarbe blau haben, in denen in der ersten zelle die ersten zeichen "er:" sind.
hab leider von excel zu wenig ahnung und geb das auch offen zu. bitte deshalb um verständliche hilfe - wenn möglich.
ich möchte mich aber schon vorab für antworten und bemühungen recht herzlich bedanken !!!
gruß aus werl
monika

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zeichenfolge finden
Dieter
Hallo Monika
bedingte Formatierung
Formel ist: =LINKS(A2;2)="er"
und Schriftfarbe "blau" wählen
Gruß Dieter
AW: zeichenfolge finden
Ingo
Du gehst mit ALT-F11 in den VBA_Editor, dort Menüleiste > Einfügem > Modul und dort kopierst Du folgenden Code rein:

Sub blau_färben()
Dim rng As Range
Dim letzte_zeile As Long
letzte_zeile = ActiveSheet.Range("A65536").End(xlUp).Row
For Each rng In Range(Cells(1, 1), Cells(letzte_zeile, 1))
If Left(rng, 2) = "er" Then
With ActiveSheet.Rows(rng.Row)
.Interior.ColorIndex = 5
End With
End If
Next rng
End Sub

danach wieder zurück in Deine ExcelMappe und ALT_F8;
Im Dialog Makros erscheint dann Blau_färben und dort nur noch auf Ausführen drücken
mfG
Ingo Christiansen
Anzeige
danke euch beiden
monika

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige