ich habe folgenden VBA-code, der mir aus vier verschiedenen Tabellenblättern, die alle in Zeile 4 fortlaufende Daten stehen haben, das aktuelle Datum heraussucht und die Zelle mit dem aktuelen Datum im richtigen Tabellenblatt markiert:
Private Sub Workbook_Open()
AktDatum = Date
AktBlatt = 1
If (AktDatum) > Range("IT4").Value Then AktBlatt = 2
If (AktDatum) > Range("IT4").Value Then AktBlatt = 3
If (AktDatum) > Range("IT4").Value Then AktBlatt = 4
Select Case AktBlatt
Case 1
Blatt = "Markteinführungskonzept_1"
Case 2
Blatt = "Markteinführungskonzept_2"
Case 3
Blatt = "Markteinführungskonzept_3"
Case 4
Blatt = "Markteinführungskonzept_4"
End Select
Sheets(Blatt).Select
For Spalte = 1 To ActiveSheet.UsedRange.Columns.Count
If Cells(4, Spalte) = AktDatum Then
Cells(4, Spalte).Select
Exit Sub
End If
Next
MsgBox (AktDatum & " nicht gefunden")
End Sub
Ich möchte den Code dahingehend verändern, dass Excel mir anstatt nur die eine Zelle mit dem Datum die ganze Spalte markiert.
Wie stelle ich das an?
Vielen Dank für Eure Hilfe