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
Warum beendet die VBA Ausführung beim öffnen eines Dokuments? Warum beendet die VBA Ausführung beim öffnen eines Dokuments?: Hallo Zusammen, Ich habe eine VBA geschrieben, die automatisch Dateien von einem Workbook aktiv in ein neus Workbook wird geöffnet - ist ein Template kopieren soll.Der Benutzer soll ein Input...	Microsoft Office	Donnerstag um 09:53 Uhr
VBA Summe nicht runden VBA Summe nicht runden: Hallo,ich habe folgendes:Function FarbSummeBereich As Range, _ Farbe As Range, Optional Schrift As Boolean As Long Dim rngC As Range Dim myClr As Long If Schrift = False Then myClr =...	Microsoft Office	29. November 2024
Bereich in Excel als Bild abspeichern - VBA Makro Bereich in Excel als Bild abspeichern - VBA Makro: Hallo Zusammen, da ich immer wieder aus unterschiedlichen Excels einen Bereich als Bild abspeichern muss, habe ich versucht ein Makro zu schreiben. Wenn ich das ganze in Einzelschritten durchführe...	Microsoft Office	29. November 2024
Formel per VBA nach IF-Abfrage in ganze Spalte schreiben Formel per VBA nach IF-Abfrage in ganze Spalte schreiben: Hallo zusammen,die Frage sollte nicht so kompliziert sein, ich kriege es aber nicht ganz hin.Per VBA soll in alle Zellen von Spalte F eine Formel geschrieben werden, die sich auf die Spalten B, D...	Microsoft Office	30. Oktober 2024
Get the data part of a stuctured column in VBA Get the data part of a stuctured column in VBA: This will get me a column of data from a structred tableFunction GetNameColumn As Range Dim ws As Worksheet Dim tbl As ListObject Dim colName As ListColumn Set ws = SheetsSheetName Set tbl =...	Microsoft Office	17. Oktober 2024
How to add signature with images using VBA How to add signature with images using VBA: I am using below VBA code source to add a signature with images to a new mail item. The code works perfect for external and internal mails.Now I wanted to add this functionality to automatically...	Outlook.com	8. Oktober 2024
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