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