Private
Sub
CommandButton1_Click()
Dim
last
As
Integer
last = ActiveSheet.Cells(Rows.Count, 1).
End
(xlUp).Row + 1
ActiveSheet.Cells(last, 1).Value = UserForm1.Projektbezeichnung.Value
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
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"
)
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