Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen/Zeilen mit Umlauten farbig markieren, aber

Zellen/Zeilen mit Umlauten farbig markieren, aber
28.06.2005 15:14:56
Martin
Hallo,
in einer großen Tabelle will ich alle Zellen, die Umlaute (ß,Ä.Ö.Ü, ä,ü,ö= enthalten farbig markieren (rot) und dann auch die ganzen Zeile, in denen der Wert steht (grün).
Mit einem einfach Replace geht es hier nicht, weil die Daten noch dort wo sie herkommen, korrigiert werden müssen.-
Wie kann das mit VBA gehen?

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen/Zeilen mit Umlauten farbig markieren, aber
28.06.2005 15:42:55
Jan
Hi,
sind das reine Texte oder auch Formeln?
mfg Jan
AW: Zellen/Zeilen mit Umlauten farbig markieren, aber
28.06.2005 15:52:18
Martin
nur Text, keinerlei Formeln
Martin
AW: Zellen/Zeilen mit Umlauten farbig markieren, aber
28.06.2005 16:04:30
EffHa

Sub xx()
For i = 1 To letztezeile
For j = 1 To letztespalte
If InStr(1, Cells(i, j), "ö") > 0 Or _
InStr(1, Cells(i, j), "ä") > 0 Or _
InStr(1, Cells(i, j), "ö") > 0 Or _
InStr(1, Cells(i, j), "ü") > 0 Or _
InStr(1, Cells(i, j), "ß") > 0 Or _
InStr(1, Cells(i, j), "Ä") > 0 Or _
InStr(1, Cells(i, j), "Ö") > 0 Or _
InStr(1, Cells(i, j), "Ü") > 0 Then
Rows(j).Interior.ColorIndex = 4 'grün
Cells(i, j).Interior.ColorIndex = 3 'rot
End If
Next
Next
End Sub

Anzeige
AW: Zellen/Zeilen mit Umlauten farbig markieren, aber
28.06.2005 16:16:16
Martin
SUPER vielen Dank,
musste noch Next j, Next i ergänzen und Rows(i) ... nicht Rows(j) für die Farbe, läuft aber prima.
Das einzige, was mich da noch verrückt macht: Excel liest die Ä,Ü, Ö in der Text-Datei als etxrem, seltsame Sonderzeichen, nicht als "Ä" und "Ö", aber das liegt irgendwie am Import.
VIELEN Dank für die schnelle hilfe
Martin

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige