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"