Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1268to1272
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

313 Forumthreads zu ähnlichen Themen

Zeichenfolgen vergleichen und markieren
mehmet

Hallo Forum,
in Spalte G4:G92 habe ich mehrere Codes, z.B.:
G4
METAR EKAH 080850Z 18007KT 130V220 9999 SCT012TCU BKN100 18/16 Q1010=
G5
METAR UAAA 080900Z 03003MPS 010V080 9999 SKC 25/05 Q1017 55CLRD65 NOSIG RMK QFE704/0938=
G6
METAR ESSA 080920Z 04006KT 9999 SCT010...
08.09.2008 11:47:07
Thread-ID: 1008096
3 Beiträge
Anzeige
Zellen mit gleicherm Inhalt verbinden
marcl

Hallo Froumsgemeinde,
ich bin auf der Suche nach einer aus meiner Sicht komplizierten Schleife.
Ich möchte ab einer gewissen Zellen alle darunter befindlichen, welche den gleichen Inhalt oder keine Inhalt haben und links oder rechts daneben belegt sind, zusammen fassen. Das so lange, bi...
17.11.2008 13:37:00
Thread-ID: 1025198
5 Beiträge
2 Zellen, gleicher Inhalt, egal welche ausgefüllt
Peter

Hallo zusammen,
folgende Frage: ich habe eine Datei mit mehreren Tabellenblättern. Dabei kommen teilweise die gleichen Daten auf verschiedenen Tabellenblättern vor.
Ich möchte die Daten nur einmal eingeben. Nun habe ich es so gelöst, dass man die Daten in die Zelle eingeben muss, die ma...
20.11.2008 11:19:31
Thread-ID: 1026347
3 Beiträge
Anzeige
2 TabellenBlätter vergleichen - gleiche markieren
Andy

Hallo,
ich habe 2 unterschiedliche Tabellen in denen ein Mitgliederabgleich durch geführt werden soll.
In der Tabelle1 sind die Namen der Mitglieder einer Gruppe zusammen in einer Zelle hinter einander geschrieben; in der der Tabelle2 sind alle Mitglieder unter einander (jeweils neue Ze...
16.04.2009 11:44:02
Thread-ID: 1069028
13 Beiträge
2 Listen vergleichen und Unterschiede markieren
stefan

Hallo zusammen,
ich habe 2 Listen (a1:A100 und B1:B100).
Diese beiden Listen möchte ich vergleichen und prüfen, welche Werte in von Spalte 1 in Spalte 2 vorhanden sind und diese dann farblich kennzeichnen. Geht das irgendwie?
Danke Euch.
25.06.2009 10:48:21
Thread-ID: 1084273
2 Beiträge
2 Tabellen vergleichen, komplette Zeile kopieren
Marc

Hallo,
ich bin mit meinem Latein am Ende und es geht irgendwie nicht wie ich es mir vorstelle.
Folgendes Problem: Ich möchte gerne 2 Kriterien in 2 verschiedenen Workbooks miteinander vergleichen.
In diesem Fall handelt es sich um die Teilenummer und den Prozessvorgang.
Wenn...
07.07.2009 20:22:08
Thread-ID: 1087035
6 Beiträge
Doppelte Werte + unterschiedliche Schreibweisen
Marcel

Hallo,
gibt es eine Möglichkeit, neben den bekannten Funktionen wie
- Bedingte Formatierung (ZÄHLENWENN($A$1;$A$18;A1)Größer1)
- WENN(VERGLEICH(A4;A:A;0)=ZEILE();"";"Doppelt")
sich doppelte Einträge eder Zellen einer Spalte Anzeigen zu lassen (10.000 Datensätze), wenn unterschie...
22.07.2009 13:47:42
Thread-ID: 1090530
7 Beiträge
2 Tabellen vergleichen
Hubert

Hallo Spezialisten,
ich, blutiger Laie was VBA angeht muss in zwei Tabellen die Daten miteinander vergleichen und bei Übereinstimmung in zwei Feldern die entsprechende Zeile farblich markieren.
Ächz, Stöhn.... da weiß ich echt alleine nicht weiter.
So sieht die Basis aus:
Tabell...
05.08.2009 10:33:06
Thread-ID: 1093683
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
4
2
5
12
1
5
6
4
1
1
15
4
3
3
1
6
7
11
7
3
6
6
13