Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1992to1996
1992to1996
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte mit VBA markieren

Forumthread: Werte mit VBA markieren

Werte mit VBA markieren
07.10.2024 21:05:46
Thomas
Hallo zusammen,

Ich habe eine Liste mit Artikel in der Spalte A3 bis Ende .

In der Spalte Q2 ( per Formel ) stehen die Top 30 Artikel.
Jetzt soll per VBA die top 30 in spalte A markieren. Es kann auch sein, dass nicht immer die top 30 aufgelistet sind.

Über Bedingte Formatierung würde es ohne Probleme funktionieren. Aber ich brauche ein VBA Code.

Würde jemand mir helfen ?

Dankeschön
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte mit VBA markieren
07.10.2024 21:29:48
Onur
VBA-Code ist immer maßgeschneidert auf eine Excel-Datei. Wo ist sie denn?
AW: Werte mit VBA markieren
07.10.2024 21:55:41
Onur
Und warum genau VBA?
Anzeige
AW: Werte mit VBA markieren
07.10.2024 22:01:16
Thomas
Ich erstelle die Liste über vba und diese muss ca. 8mal am tag gemacht werden.

Deswegen sollte zum Schluss die Farben kommen da wir wenig Zeit haben.
AW: Werte mit VBA markieren
08.10.2024 00:05:28
Thomas
Hallo,

ich habe es jetzt durch langen Googeln selber eine Lösung gefunden. Danke
AW: Werte mit VBA markieren
08.10.2024 10:45:09
Yal
Hallo Thomas,

hier ein möglichen Code, um mit dem "im Netz gefundenen" zu vergleichen: 
Sub Recolor()

Dim R As Range



'Code befindet sich im Codepane von Tabelle1. "Me" ist daher Tabelle1

    Me.Range("A:A").Interior.Pattern = xlNone

    For Each R In Range(Me.Range("A1"), Me.Cells(Rows.Count, 1).End(xlUp))

        If WorksheetFunction.CountIf(Me.Range("$Q$1:$Q$18"), R) Then

            R.Interior.Pattern = xlSolid

            R.Interior.ColorIndex = 3 'rot

        End If

    Next

End Sub

Es entspricht genau den Vorgehensweise über bedingte Formatierung, nur im festen Farben.

VG
Yal
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige