Suche verschieden Werte und färbe Zelle
29.03.2021 19:13:21
Mani
der Mani schon wieder....neuer Tag neues Problem.
Ich habe zwei Tabellenblätter, in Tabellenblatt Datum stehen in Spalte A verschieden Daten untereinander.
Diese Suche ich in Tabellenblatt Auswertung in Zeile 9. Wenn ein Datum gefunden wird soll mir die Zelle darunter gefärbt werden.
Folgenden Code habe ich mir zusammen gebastelt:
Public Sub Datum_Suchen()
Dim rngFind As Range
Dim strDate As String
Dim Lz As Long
Sheets("Auswertung").Select
Lz = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row
strDate = Sheets("Datum").Range("A2").Value
If strDate = "" Then Exit Sub
Set rngFind = Rows("9:9").Cells.Find(DateValue(strDate), LookIn:=xlFormulas)
If Not rngFind Is Nothing Then
rngFind.Activate
ActiveCell.Offset(1, 0).Interior.Color = vbRed
Else
MsgBox "Das Datum wurde nicht gefunden!"
End If
End Sub
Allerdings wird bei mir im Code immer nur das Datum in A2 gesucht.
Wie und was muss ich ändern das mir nacheinander nach jeden Daten in Tabellenblatt Datum in Spalte A gesucht wird ?
Würde mich über eure Unterstützung sehr freuen.
Viele Grüße
besten Dank
der Mani