Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: große liste, großes problem

große liste, großes problem
22.02.2005 12:59:39
Torschti
Hallo leute!!!
hab noch ein problem!
hab eine riesige liste und muss (wie im anhang zu sehen die "0408") alles irgendwie farbig bekommen und jedes einzeln ist doch etwas mühsam!!!
bitte helft mir!!!
https://www.herber.de/bbs/user/18507.xls
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: große liste, großes problem
Uduuh
Hallo,
in ein Modul und ausführen:

Sub färben_0408()
Dim i As Long
For i = 1 To ActiveSheet.Cells(65536, 1).End(xlUp).Row
If InStr(Cells(i, 1), "0408") > 0 Then
With Cells(i, 1).Characters(Start:=InStr(Cells(i, 1), "0408"), Length:=4).Font
.FontStyle = "Fett"
.ColorIndex = 5
End With
End If
Next i
End Sub

Gruß aus'm Pott
Udo

Das Forum lebt auch von den Rückmeldungen an die Antworter!
Anzeige
DANKE!!!
Torschti
vielen lieben dank gruß torschti
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige