Guten morgen zusammen,

in einer Exceltabelle in Spalte G wird das Enddatum -14 Tage berechnet. Sobald dieses Datum feststeht, sollen weiter rechts in der Tabelle die Zellen, die in dem Zeitraum zwischen "Enddatum-14 Tage" und dem tatsächlichen Ende rot gefärbt werden, damit die Mitarbeiter wissen, dass sie spätestens dann aktiiv werden müssen. Ich möchte das mit einer bedingten Formatierung lösen über die Zellen J5 bis JZ38. Kann mir da jemand einen Tipp geben? Vielen Dank und wenn ihr weiter Fragen habt, meldet beuch gerne. Danke und einen schönen Freitag Annette

Guten Morgen zusammen, ich habe eine Tabelle, in der Audits geplant werden. Von Spalte K bis Spalte BI sind die einzelnen Kalenderwochen eingetragen und bei den jeweiligen Produkten darunter steht immer eine 1 wenn ein Audit in der KW erfolgen soll. In Spalte I möchte ich mir jetzt durch Komma getrennt die KW anzeigen lassen, in der das Audit geplant ist. Mein VBA sieht folgendermaßen aus:

Function VerbindeKW(Bereich As Range) As String

   Dim Zelle As Range

   Dim Ergebnis As String

   Dim KW As Integer

   For Each Zelle In Bereich

       If Zelle.Value = 1 Then

           KW = Zelle.Column - 10 ' K = Spalte 11 = KW1

           Ergebnis = Ergebnis & "KW" & KW & ", "

       End If

   Next Zelle

   If Ergebnis <> "" Then

       VerbindeKW = Left(Ergebnis, Len(Ergebnis) - 2)

   Else

       VerbindeKW = ""

   End If

End Function

Jetzt gibt die Funktion mir die allererste Kalenderwoche korrekt zurück (aber auch nur in der ersten Zelle) und danach ist es immer eine KW zu wenig. Ich habe mich fest auf Spalte K festgelegt, weil dort KW1 hinterlegt ist. Kann mir jmd da weiterhelfen? Herzliche Grüße Annette