Thema Datum  Von Nutzer Rating
Antwort
16.10.2016 11:52:05 Johannes
NotSolved
16.10.2016 11:56:30 Gast43859
NotSolved
16.10.2016 11:58:45 Gast46234
NotSolved
Blau VBA Bedingte Formatierung
 16.10.2016 13:28:30 Gast70951
NotSolved
16.10.2016 16:55:02 Johannes
NotSolved
18.10.2016 11:52:27 Johannes
NotSolved
18.10.2016 15:32:28 Johannes
NotSolved
Blau nee
 18.10.2016 16:25:49 Gast78198
NotSolved
Rot nee
 18.10.2016 16:36:02 Johannes
NotSolved

Ansicht des Beitrags:
Von:
Gast70951		 Datum:
16.10.2016 13:28:30		 Views:
720		 Rating:
     
Antwort:
  Ja
Thema:
VBA Bedingte Formatierung

Moin!

Ganz auf die schnelle, probiere es mal so. Der Code geht dabei die Spalte A durch. Sollte mE nach klappen. VG

Sub markieren()

Dim ende As Long
Dim werte()
Dim zeile As Long
Dim suchwert As String
Dim temp

ende = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ReDim werte(ende)

For zeile = ende To 1 Step -1
    suchwert = ActiveSheet.Cells(zeile, 1)
    temp = Filter(werte, suchwert, , vbTextCompare)
    If UBound(temp) = -1 Then
        werte(0) = werte(0) + 1
        werte(werte(0)) = suchwert
        ActiveSheet.Cells(zeile, 1).Font.Bold = True
    End If
Next zeile

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
16.10.2016 11:52:05 Johannes
NotSolved
16.10.2016 11:56:30 Gast43859
NotSolved
16.10.2016 11:58:45 Gast46234
NotSolved
Blau VBA Bedingte Formatierung
 16.10.2016 13:28:30 Gast70951
NotSolved
16.10.2016 16:55:02 Johannes
NotSolved
18.10.2016 11:52:27 Johannes
NotSolved
18.10.2016 15:32:28 Johannes
NotSolved
Blau nee
 18.10.2016 16:25:49 Gast78198
NotSolved
Rot nee
 18.10.2016 16:36:02 Johannes
NotSolved