Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1320to1324
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
Inhaltsverzeichnis

VBA bedingte Formatierung

VBA bedingte Formatierung
22.07.2013 08:50:36
Andy
Hallo zusammen,
mit dem folgenden Script markiere ich mir alle Nummer in Spalte A, die doppelte vorkommen. Wie _ muss ich mein Script erweitern, wenn ich anschließend zusätzlich alle Nummern in Spalte A orange markieren möchte, bei denen in Spalte S eine Zahl mit dem Wert "88888" steht?

Public Sub filtern()
Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String
'doppelte Nummer in Spalte A farblich markieren
lngZeile = Cells(Rows.Count, 1).End(xlUp).Row
For lngZeilenSprung = lngZeile To 1 Step -1
strSuchwert = Cells(lngZeilenSprung, 1).Value
If Application.WorksheetFunction.CountIf(Range(Cells(1, 2), Cells(lngZeile, 1)),  _
strSuchwert)  1 Then
Cells(lngZeilenSprung, 1).Interior.ColorIndex = 3
End If
Next lngZeilenSprung
End Sub

Gruß Andy

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Lösung
22.07.2013 09:46:13
Andy
so habe die Lösung mit etwas Experimentierfreunde gefunden:

Public Sub filtern()
Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String
dim strSpalteS
'doppelte Nummer in Spalte A farblich markieren
lngZeile = Cells(Rows.Count, 1).End(xlUp).Row
For lngZeilenSprung = lngZeile To 1 Step -1
strSuchwert = Cells(lngZeilenSprung, 1).Value
If Application.WorksheetFunction.CountIf(Range(Cells(1, 2), Cells(lngZeile, 1)),  _
strSuchwert)  1 Then
Cells(lngZeilenSprung, 1).Interior.ColorIndex = 3
End If
Select Case strSpalteS
Case "88888"
Cells(lngZeilenSprung, 1).Interior.ColorIndex = 3
Case "77777"
Cells(lngZeilenSprung, 1).Interior.ColorIndex = 3
Case "66666"
Cells(lngZeilenSprung, 1).Interior.ColorIndex = 3
End Select
Next lngZeilenSprung
End Sub

Anzeige

319 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige