einen von mehreren Zellinhalten fett markieren
04.04.2005 11:48:16
mehreren
mit folgendem Code möchte ich in einer durch den Autofilter angezeigten Zelle einen vorher ausgewählten User (myUser) fett markieren.
Sub user_groups()
Dim r As Range, c As Range
Dim myUser, i%
myUser = Sheets("OS-User").Cells(globalRow, 1)
Selection.AutoFilter Field:=4, Criteria1:="=*" & myUser & "," & "*", Criteria2:="=*" & myUser, Operator:=xlOr
---ab hier für fett-Markierung---
' Spalte normal formatieren
Columns(4).Font.Bold = False
Set r = Application.Intersect(Columns(4), _
ActiveSheet.UsedRange).SpecialCells(xlCellTypeVisible)
For Each c In r
i = InStr(c.Value, myUser)
If i > 0 Then c.Characters(Start:=i, _
Length:=Len(myUser)).Font.Bold = True
Next c
Set r = Nothing
End Sub
Nun habe ich leider das Problem, dass immer das erste Vorkommen markiert wird. Bei folgendem Zellinhalt wird deshalb (bei "oracle" als myUser) das oracle von oraclep2 fett geschrieben, da das als erstes gefunden wird. Richtig wäre aber das oracle an 13. Stelle, da das genau mit "myUser" übereinstimmt.
Zellinhalt:
oraclep2,icisdba,dietrich,invscout,wwwtest,wwwentw,beta48,wgvftp,wwwleben,webicis,avuser,batchdba,oracle,ldap,ipsec,sshd
Da der Code nicht von mir selbst ist (Danke an ANdreas), weiss ich nicht, welche Parameter ich ändern muss ;-(.
Ich hoffe mir kann jemand weiterhelfen. Vielen Dank.
Gruß, Dirk
Anzeige