Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
592to596
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Übereinstimmung von Autofilter fett markieren

Übereinstimmung von Autofilter fett markieren
31.03.2005 16:22:38
Autofilter
Hallo zusammen,
mittels folgendem Code suche ich durch den Autofilter nach einem vorher ausgewählten Begriff bzw. User:
Dim myUser

myUser = Sheets("OS-User").Cells(globalRow, 1)
Selection.AutoFilter Field:=4, Criteria1:="=*" & myUser & "," & "*", Criteria2:="=*" & myUser, Operator:=xlOr
Sei beispielsweise "oracle" ausgewählt, d. h. myUser = "oracle", soll in folgender Zelle (AutoFilter Field4) nur die Übereinstimmung "oracle" fett oder kursiv geschrieben werden (nicht aber die ganze Zelle).
Inhalt der Zelle: oracle,wwwtest,wwwentw,wgvftp
Ich hoffe ihr wisst, was ich meine ;-/.
Ist das machbar und wenn ja, wie kann ich nur die Übereinstimmmung ansprechen (und nicht die ganze Zelle)?
Liebe Grüße, Dirk

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Übereinstimmung von Autofilter fett markieren
31.03.2005 16:36:31
Autofilter
Hallo Dirk,
hier mal als Beispiel:

Sub Beispiel()
Dim r As Range, c As Range
Dim myUser$, i%
myUser = "testwert"
On Error Resume Next
' 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

Gruß
Andreas
AW: Übereinstimmung von Autofilter fett markieren
31.03.2005 16:53:53
Autofilter
Hallo Andreas,
soll ich das jetzt verstehen ;-( ? (grübel)
Ich werd es mal versuchen einzubauen, aber trotzdem schon mal vielen Dank.
Gruß, Dirk
Anzeige
Hat funktioniert. Echt Super. Vielen Dank
31.03.2005 17:29:03
Dirk
Ich kann es zwar mit meinen Kenntnissen nur stückweise nachvollziehen, aber es funktioniert wunderbar. Vielen Dank nochmal
AW: Übereinstimmung von Autofilter fett markieren
31.03.2005 17:37:40
Autofilter
Hallo Dirk,
wenn Du etwas nicht verstehst, frag einfach.
Das Beispiel durchsucht in Spalte D (Columns(4) ) jede Zelle im gefilterten (sichtbaren) Bereich. Wird der Ausdruck der Variable myUser in einer Zelle gefunden (nur das 1. Vorkommen), so wird dieses fett markiert.
Wie gesagt, einfach fragen sobald etwas unklar ist.
Andreas
AW: Bitte nochmal melden
01.04.2005 10:52:55
Dirk
Hallo Andreas,
also so langsam steig ich einigermaßen durch!
Habe leider nur doch noch ein kleines Problem, da 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.
Zellinhalt:
oraclep2,icisdba,dietrich,invscout,wwwtest,wwwentw,beta48,wgvftp,wwwleben,webicis,avuser,batchdba,oracle,ldap,ipsec,sshd
Kann ich bzw. du ;-) das noch entsprechend anpassen, da es mir noch nicht gelungen ist?
Hier ist mein aktueller Code dafür:

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
' 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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige