große liste, großes problem

Bild

Betrifft: große liste, großes problem
von: Torschti
Geschrieben am: 22.02.2005 12:59:39
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

Bild

Betrifft: AW: große liste, großes problem
von: Uduuh
Geschrieben am: 22.02.2005 13:14:09
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!
Bild

Betrifft: DANKE!!!
von: Torschti
Geschrieben am: 22.02.2005 13:22:24
vielen lieben dank gruß torschti
 Bild

Beiträge aus den Excel-Beispielen zum Thema "große liste, großes problem"