|
Ich möchte gern ein End-Datum in der richtigen Kalenderwoche dick umranden (markieren).
In Spalte E wird das End-Datum eingetragen.
- Spalte F weist das Jahr von Spalte E aus
- Spalte G weist die Kalenderwoche von Spalte E aus
Bsp.:
E: 10.01.2017
F: 2017 (Jahr von E)
G: 2 (KW von E)
jede Zeile enthält diese Daten in derselben Spalte
Im Bereich J13-JI76 sind sämtliche Jahre und Wochen von 2017-2021 in einem Raster angelegt.
In der Zeile7, Spalte J-JI sind die Jahre enthalten
in der Zeile 9, Spalte J-JI sind die KW's enthalten
Für das Beispiel oben ist also das Jahr 2017 von J7-BI7 enthalten, die KW nur in Zelle K9.
Somit müsste die Zelle K13 dick umrandet werden, da K7 + K9 die richtigen Werte enthält
ich habe meinen Code soweit, dass er die Zellen K7 und K9 mit den Werten "2017" und "34" findet und beide Werte in derselben Spalte verglichen (=) werden und eine MsgBox dies mit "Yes" bestätigt.
Aber wie kann ich nun den Code erweitern, dass er in derselben Spalte, Zeile für Zeile die Spalte findet und die richtige Zelle dick umrandet.
Sub suchenfinden()
Dim jfinden As Range
Dim wfinden As Range
Dim jtreffer As String
Dim wtreffer As String
Dim jahr As Range
Dim woche As Range
Set jahr = Range("F13")
Set woche = Range("G13")
Set jfinden = Range("J7:JI7").Find(What:=jahr)
Set wfinden = Range("J9:JI9").Find(What:=woche)
jtreffer = Split(jfinden.Columns.Address, "$")(1)
wtreffer = Split(wfinden.Columns.Address, "$")(1)
jtreffer = wtreffer
MsgBox "Yes"
End Sub
|