Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Daten vergleichen und markieren

Forumthread: Daten vergleichen und markieren

Daten vergleichen und markieren
Captain
Moin @all,
ich habe ein kleines Problem.
Ich möchte Daten (Datum) aus der Spalte AJ (AJ1:AJ25) mit Daten (Datum) aus den Spalten B6:X41 vergleichen. Bei Übereinstimung eines Datums hätte ich dieses in dem Bereich B6:X41 markiert. Wie muss ich das angehen?
Als Formel über eine bedingte Formatierung hatte ich bisher =ZÄHLENWENN(Feiertage_quer;B6)>0
Wie macht man das in VBA?
Danke
Jack
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Daten vergleichen und markieren
04.07.2012 10:29:40
Hajo_Zi
Application.WorksheetFunction.CountIf()

AW: Daten vergleichen und markieren
04.07.2012 10:52:34
Captain
Hi Hajo,
ok, habe ich so gemacht...funzt aber leider net...

Sub bedingte_Formatierungen_eintragen()
Dim zelle As Range
Dim Bereich As Range
'Kalenderbereich
Set Bereich = Range("B6:X41")
For Each zelle In Bereich
If IsDate(zelle) Then
Select Case Weekday(zelle, 2)
Case Is = 6
zelle.Interior.ColorIndex = 37
Case Is = 7
zelle.Interior.ColorIndex = 5
zelle.Font.ColorIndex = 2
End Select
'Feiertage
ElseIf zelle = Application.WorksheetFunction.CountIf(Worksheets("Jahreskalender  _
quer_mit_VBA").Range("AJ1:AJ25"), ">" & 0) Then
zelle.Interior.ColorIndex = 36
End If
Next zelle
End Sub

Anzeige
AW: Daten vergleichen und markieren
04.07.2012 10:57:54
Hajo_Zi

Du hast wohl vergessen >0, vermute ich mal.

Gruß Hajo
AW: Daten vergleichen und markieren
04.07.2012 15:45:15
Captain
Nee habe ich nicht...
AW: Daten vergleichen und markieren
04.07.2012 18:25:08
Hajo_Zi
dann hast Du einen anderen Code im Einsatz als im Beitrag gepostet. Ich kann nur auf das antworten was im Beitrag steht.
Gruß Hajo
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige