Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1828to1832
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
1828to1832
1828to1832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
AW: Zwei Bereiche vergleichen
20.05.2021 11:17:53
Chris
Danke für das Makro, es funktioniert. GRuß C:
Anzeige
Dann nicht mehr offen (owT)
20.05.2021 15:49:32
Pierre

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige