Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.10.2025 18:10:41
vba pdf
24.10.2025 17:27:23
Mit Makro eine pdf erstellen mit Namen aus einer Zelle
24.10.2025 15:11:16
Differenz errechnen zum Vortag aus anderem Tabellenblatt
24.10.2025 11:47:33
Shape auf 1 cm und in Zelle zentriert. Code kürzen
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
1828to1832
1828to1832
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zwei Bereiche vergleichen

Forumthread: Zwei Bereiche vergleichen

Zwei Bereiche vergleichen
19.05.2021 07:48:21
Chris
Hallo zusammen,
ich möchte per VBA Inhalte vergleichen.
Der 1. feste Bereich ist im Sheet "Holiday" B2:B31, dort stehen Datumsangaben aller Feiertage.
Jede Zelle dieses Bereiches soll mit allen vorhanden Sheets des aktiven Workbooks, die im Namen die Buchstabenfolge "KW" enthalten, verglichen werden. Hier jeweils der Bereich A1:W1. Wenn hier ebenfalls das selbe Datum gefunden wird, soll die Zelle im jeweiligen KW-Sheet rot markiert werden.
Ich hoffe, meine Beschreibung ist detailliert genug. Wie löst man so etwas per VBA
Schon mal danke.
Gruß
Chris
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zwei Bereiche vergleichen
19.05.2021 09:06:58
Worti
Hallo Chris,
das geht zB. so:

Sub Vergleich()
Dim ws As Worksheet
Dim rngSuchbereich As Range
Set rngSuchbereich = ThisWorkbook.Worksheets("Holiday").Range("B2:B31")
For Each ws In ThisWorkbook.Worksheets
If InStr(ws.Name, "KW") Then
Call Datumsabgleich(ws, rngSuchbereich)
End If
Next
Set ws = Nothing
End Sub
Sub Datumsabgleich(ws As Worksheet, rngSuchbereich As Range)
Dim rngC As Range
For Each rngC In ws.Range("A1:W1")
If Not rngSuchbereich.Find(rngC) Is Nothing Then
rngC.Interior.ColorIndex = 3
End If
Next rngC
End Sub
Gruß Worti
Anzeige
AW: Zwei Bereiche vergleichen
20.05.2021 11:17:53
Chris
Danke für das Makro, es funktioniert. GRuß C:
Dann nicht mehr offen (owT)
20.05.2021 15:49:32
Pierre
;

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