VBA Code Wert suchen dann markiere Zeile

Hallo zusammen,

ich würde mich sehr freuen wenn mir jemand helfen kann. Meine Frage versuche ich kurz und klar zu formulieren.

Excel-Arbeitsmappe.
In Tabellenblatt 1 ("Master") steht in Zelle A1 immer ein Datum

Tabellenblatt 2 und Tabellenblatt 3 enthält in Spalte A das Datum für das aktuelle Jahr fortlaufend abwärts.

Ich benötige einen VBA-Code der abhängig vom Datum im Tabellenblatt 1 ("Master") die Zeilen der anderen beiden Tabellenblätter markiert wo dasselbe Datum steht.
Die gesamte Zeile beider Tabellenblätter soll angeklickt/aktiviert werden. Bitte nicht mit einer bedingten Formatierung und dem Färben der Zeile verwechseln.

Also quasi: wenn Datum in Tabellenblatt 1 = 05.05.2023 dann markiere die Zeile mit dem Datum 05.05.2023 im sowohl im Tabellenblatt 1 als auch im Tabellenblatt 2.

Vielen Dank schonmal falls sich jemand dazu Gedanken macht und mir helfen möchte.
Fragen jederzeit.

gruß
Kristoph

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sorry, aber der Code von Onur liefert nur der zuletzt selektierte Range.

Man kann am Ende

    For Each Z In sel.Areas
        Debug.Print Z.Address
    Next

legen und sehen, dass nur der letzte Bereich zurückgegeben wird.

Man kann tatsächlich nur Zeilen dieselbe Blatt selektieren:
das geht:

Sub test()
Dim Z
    Set Z = Union(Sheets(1).Rows(3), Sheets(1).Rows(5))
End Sub

das geht nicht:

Sub test()
Dim Z
    Set Z = Union(Sheets(1).Rows(3), Sheets(2).Rows(5))
End Sub

Ein 3-dimensionale Auswahl scheint über VBA möglich zu sein: https://learn.microsoft.com/de-de/office/vba/excel/concepts/cells-and-ranges/working-with-3-d-ranges
Dabei werden aber alle Zeilen zwischen erste und letzte auf alle Blätter zwischen erste und letzte von der Aktion betroffen.
Ich könnte es allerdings unter Excel 2016 nicht zum Laufen bringen.

Nun ist ja DIE FRAGE, warum man diese beiden Bereiche gleichzeitig selektiert haben möchte?
Man könnte die verschiedene Bereich nacheinander über VBA selektieren und eine Aktion darüber laufen lassen. Das geht:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh
    
    If Target.Address > "$A$1" Then Exit Sub
    
    For Each sh In Worksheets(Array("Tabelle3", "Tabelle2"))
        If WorksheetFunction.CountIf(sh.Range("A1:A1000"), Target) Then
            With sh.Rows(WorksheetFunction.Match(Target, sh.Range("A1:A1000")))
                .Font.Bold = True 'Fett
                .Font.ColorIndex = 3 'roter Schrift
            End With
        End If
    Next sh
End Sub

VG
Yal

Beliebteste Forumthreads (12 Monate)

VBA Code Wert suchen dann markiere Zeile

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Code Wert suchen dann markiere Zeile

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread