Hallo liebe Excelspezialisten,


ich brauche Hilfe bei der Umsetzung eines "Meilensteinplans". 
Ich habe bisher eine Textbox wo ich die Projektbezeichnung eingebe und für vier Meilensteine eine entsprechende Kalenderwoche intragen kann. 
Diese Einträge übernimmt excel dann in die Tabelle. Wenn ich also folgendes Eingebe: ProjektABC KW40 KW50 KW52 KW4 Dann macht er mir das alles ins Jahr 2018! Ich möchte aber das er sieht, dass KW4 in 2019 sein muss. 
Hat da jemand eine Idee für mich? 
Danke im Voraus :-X

Private Sub CommandButton1_Click() Dim last As Integer last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 'Die Projektbezeichnung wird in die erste freie Zeile geschrieben (z.B. ProjektXYZ123 in Spalte A) ActiveSheet.Cells(last, 1).Value = UserForm1.Projektbezeichnung.Value 'Sucht in der Zeile "3" nach der Kalenderwoche die im Textfeld für "Note6" eingetragen ist Dim rngZelle As Range Set rngZelle = Sheets("Tabelle2").Range("3:3").Find(What:=Note_6.Text, Lookat:=xlWhole, LookIn:=xlValues) If rngZelle Is Nothing Then MsgBox "Die Kalenderwoche für Note 6 gibt es nicht" Else Cells(last, rngZelle.Column) = ("6") End If 'Dim rngZelle As Range Set rngZelle = Sheets("Tabelle2").Range("3:3").Find(What:=Note_3.Text, Lookat:=xlWhole, LookIn:=xlValues) If rngZelle Is Nothing Then MsgBox "Die Kalenderwoche für Note 3 gibt es nicht" Else Cells(last, rngZelle.Column) = ("3") 'hier müsste jetzt irgendwas passieren, sodass die Zahl 6 (für Note 6) in die richtige Zelle geschrieben wird. 'Diese Zelle ergibt sich aus der Spalte der angegebenen Kalenderwoche (Textfeld Note6) und der Zeile in der die Projektbenennung reingeschrieben wurde. End If Set rngZelle = Sheets("Tabelle2").Range("3:3").Find(What:=Teilelieferung.Text, Lookat:=xlWhole, LookIn:=xlValues) If rngZelle Is Nothing Then MsgBox "Die Kalenderwoche für Teilelieferung gibt es nicht" Else Cells(last, rngZelle.Column) = ("T") End If Set rngZelle = Sheets("Tabelle2").Range("3:3").Find(What:=Werkzeugversand.Text, Lookat:=xlWhole, LookIn:=xlValues) If rngZelle Is Nothing Then MsgBox "Die Kalenderwoche für Werkzeugversand gibt es nicht" Else Cells(last, rngZelle.Column) = ("WV") End If Unload UserForm1 End Sub