Zellvergleiche mit VBA

BigWoelfi · 18. September 2017

Hallo,

Ich habe auf meiner Tabelle "Vorlage" eine Spalte B mit Datumsangaben und zwar untereinander für den ganzen Monat, als hätte er immer 31 Tage.

Relevant für mein jetziges Vorhaben sind aber nur Tage von Montag bis Samstag.

Also habe ich für alle Zeilen die Zellen in Spalte B von Montag bis Samstag und in allen Wochen zusammen den Namen "ATag" vergeben.

Auf der Tabelle "Feiertage"habe ich alle beweglichen (nach Gauss) und festen Feiertage aufgelistet.

Das jeweilige Datum befindet sich in Spalte D.

Für diesen Bereich habe ich den Namen "FT" vergeben.

Jetzt bräuchte ich ein Makro, für den zeilenmäßigen Vergleich des Inhalts von ATag und FT.

Dann sollte bei Übereinstimmung dieser Tag in Tabelle "Vorlage", in Spalte C den Eintrag "Feiertag" erhalten.

Ich konnte so etwas früher schon mal, habe aber lange nicht mehr damit gearbeitet und tue mich unheimlich schwer damit im Moment.

Ob mal jemand so nett ist?

Danke schon mal.

Claus Busch

Hallo Wolfgang,

das geht doch einfach mit Formel.

Ich nehme an, du hast eine Überschrift und die Datumswerte beginnen erst in B2. Sonst musst du den Zellbezug anpassen.

Dann in C2:

=WENN((WOCHENTAG(B2;2)<7)*(ZÄHLENWENN(Feiertage!FT;B2)>0);"Feiertag";"")

Claus

BigWoelfi

Hallo Claus,

nee, so einfach wäre schön aber unter jeder Woche ist eine Summenzeile.

Und zu Beginn jeder Woche gibt es eine Zeile Woche von-bis (Datumsangaben.

Und - ich wollte da keine Formeln drin stehen haben, weil da doch später der Arbeitsbeginn eingetragen wird.

Egal, ich habe jetzt doch selbst ein Makro zusammengebracht, das auch gut funktioniert.

Sub Feiertage()

On Error Resume Next

Dim AZeile, ASpalte, zelle, zelle2, TBV

Set TBV = ActiveSheet

For Each zelle In Range("ATag")

AZeile = zelle.Row

ASpalte = zelle.Column

If TBV.Cells(AZeile, ASpalte + 1) = "Feiertag" Then TBV.Cells(AZeile, ASpalte + 1) = ""

For Each zelle2 In Range("FT")

If zelle = zelle2 Then TBV.Cells(AZeile, ASpalte + 1) = "Feiertag"

Next zelle2

Next zelle

End Sub

Gismo_67

Hallo Claus,
 Danke für die schnelle Antwort, aber leider klappt es nicht .
 Es befindet sich nur Text in den zu vergleichenden Zellen.
 Funktioniert auch nicht mit ISTTEXT.

Claus B.

Hallo,
 schau nochmals rein. Ich habe die Bezüge angepasst.
 Claus

Claus B.

Hallo,
 in OneDrive sind die Bezüge jetzt wieder auf das Blatt und nicht mehr auf die Namen.
 Edit: Die Namen sind jetzt auf das Blatt bezogen und die entsprechende Formel dazu erstellt. Außerdem ist in der Mappe auch eine Formel drin, die sich nur auf das Blatt und nicht auf die Namen bezieht.
 Claus

Hi,

willkommen im Windows Forum!

Zellvergleiche mit VBA - Similar Threads - Zellvergleiche VBA	Forum	Datum
Im Excel VBA werden Objekte automatisch angelegt Im Excel VBA werden Objekte automatisch angelegt: Hallo zusammen,ich habe ein Problem mit meinem Excel Skript.Und zwar wird immer mal wieder so ein Tabellenblatt dupliziert. Ich kann dies leider nicht löschen.Woran kann das liegen?Gruß Andre	Microsoft Office	4. April 2025
Fehler VBA - Suche nach Zeichenfolge mit Zeilenumbruch Fehler VBA - Suche nach Zeichenfolge mit Zeilenumbruch: Hallo,in einer vorliegenden Exceldatei mit VBA Code konnte bisher über Betätigen eines Buttons eine Routine durchlaufen werden, sodass nach Zeile der Zeile für Eintrag "1" in Zeile 11 eine neue...	Microsoft Office	10. März 2025
.csv Import ergibt Fehler beim erneuten Öffnen - VBA Makro .csv Import ergibt Fehler beim erneuten Öffnen - VBA Makro: Hallo Zusammen, ich habe ein Makro geschrieben, das über 30 .csv-Dateien einliest und diese als Tabellen in einem Excel-Arbeitsbuch darstellt. Zusätzlich wird eine Grafik erzeugt. Das Makro...	Microsoft Office	30. Januar 2025
Hilfe bei VBA-Code Hilfe bei VBA-Code: Microsoft Excel 2019Windows 11 Hallo zusammen,ich habe folgendes Problem: Ich komme zwar mit Excel gut zurecht, kenne mich aber nicht mit VBA-Codes aus, sodass ich mithilfe von ChatGPT ich einen...	Microsoft Office	20. Januar 2025
Excel VBA-Programmierung herstellen, um die Tagesplanung meiner Mitarbeiter zu automatisieren Excel VBA-Programmierung herstellen, um die Tagesplanung meiner Mitarbeiter zu automatisieren: Moin Zusammen, ich habe für die Tagesplanung meiner Mitarbeiter ein Exceltool gebastelt, aber es geht mir auf die Nerven, jeden Tag das Arbeitsblatt zu kopieren und das Datum zu ändern. Nun habe...	Microsoft Office	5. Januar 2025
Exel VBA Programmierung herstellen um die Tagesplanung meiner Mitarbeiter zu automatisieren Exel VBA Programmierung herstellen um die Tagesplanung meiner Mitarbeiter zu automatisieren: Moin Zusammen, ich habe für die Tagesplanung meiner Mitarbeiter eine Exeltool gebastelt, aber es geht mir auf die Nerven jeden Tag das Arbeitsblatt zu kopieren und das Datum zu ändern. Nun habe...	Microsoft Office	4. Januar 2025
Zellvergleich in 2 Tabellenblättern Zellvergleich in 2 Tabellenblättern: Hallo zusammen,ich hoffe es kann mir hier einer helfen.Problemstellung:Vergleich drei Zellen in zwei Blättern mit Ausgabe des "Wahr oder Falsch" Wertes in einer leeren Zelle.Firma Vorname Nachname...	Microsoft Office	14. November 2021

Zellvergleiche mit VBA