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

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 08:29:40
Hajo_Zi
Application.WorksheetFunction.CountIf()

AW: Daten vergleichen und markieren
04.07.2012 08: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 08:57:54
Hajo_Zi

Du hast wohl vergessen >0, vermute ich mal.

Gruß Hajo
AW: Daten vergleichen und markieren
04.07.2012 13:45:15
Captain
Nee habe ich nicht...
AW: Daten vergleichen und markieren
04.07.2012 16: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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige