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