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
VBA Makro, Datei speichern mit Zellnamen als PDF VBA Makro, Datei speichern mit Zellnamen als PDF: Hallo zusammen,bin leider nicht so fit im Makro schreiben. Möchte einen VBA Code3 erstellen, welcher den Dateinamen aus einer Zelle entnimmt und die Datei als PDF speichert. Bekomme leider immer...	Microsoft Office	21. Juni 2025
Dynamische bedingte Dropdown-Liste Datenüberprüfung per VBA nicht möglich Dynamische bedingte Dropdown-Liste Datenüberprüfung per VBA nicht möglich: Hi,ich möchte per VBA eine bedingte Dropdown Liste in eine Zelle implementieren. Manuell mache ich das wie folgt:Zelle "C36" auswählen --> Datenüberprüfung --> "Liste" -->...	Microsoft Office	12. Mai 2025
Dateieigenschaft einer geschlossenen Exceldatei per VBA ändern Dateieigenschaft einer geschlossenen Exceldatei per VBA ändern: Hallo allerseitsDas ProblemEine Exceldatei wird via DropBox von verschiedenen Benutzern bearbeitet. Damit nun jeweils nur ein Benutzer zu einer Zeit Daten änden kann, läuft folgender Prozess ab:-...	Microsoft Office	6. Mai 2025
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
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