Ab bestimmter Kalenderwoche zellen färben
08.04.2017 10:51:41
Christian
ein Problem das mich schon länger qäult und ich nicht dahinter komme.
Worum gehts:
Zwei Tabellen sollen miteinander verglichen werden
Wenn eine Übereinstimmung gefunden ist, soll die Anzahl der Kalenderwochen gespeichert werden
Ab den gefunden Punkt in tblGrafik soll dann die Färbung beginnen und bis zum Ende der Anzahl gehen.
Also wenn KW 9 getroffen wurde und die Anzahl in der Zeile welche die Übereinstimmung bekommen hat 5 ist, dann soll die Färbung bis zur 14 KW gehen.
Aber ich habe ein ganz dummes Gefühl beim Versuch hier eine Überstimmung zu finden.
In der Tabelle Grafik ist die MSN & die Version welche auch in Tabelle Berechnung zu finden ist, wenn die beide übereinstimmen soll in der Tabelle Berechnung die Spalte KW in eine Variable abgespeichert werden.
Im Vorfeld ist das Startdatum abgeglichen worden und jetzt soll die Färbung beginnen.
Sub Abgleichen()
Dim ZeileMax As Long
Dim SpalteDatum As Long
Dim i As Integer ' Zeilen
Dim j As Integer ' Spalte Kalenderwoche
Dim m As Integer ' Anzahl Kalenderwoche
For i = 2 To ZeileMax
For j = 6 To SpalteDatum
If tblGrafik.Cells(i, 2) And .Cells(i, 3) = tblBerechnung.Cells(i, 1) And .Cells(i, 2) Then ' _
Wenn MSN und Version in beiden Tabellen gleich sind
If tblGrafik.Cells(4, j) = tblBerechnung.Cells(i, 8) Then 'Im zweiten Schritt das Startdatum _
(KW) abgleichen und Punkt festlegen ab wo die Färbung beginnt
m = tblBerechnung.Cells(i, 9).Value 'Anzahl Kalenderwochen speichern
End If
End If
End Sub
https://www.herber.de/bbs/user/112744.xlsm
Vielen Dank für eure Bemühungen und viele Grüße
Christian