If
CheckBox1.Value =
True
Then
Worksheets(
"Retouren_Template"
).Range(
"J15"
) =
"APP"
Else
Worksheets(
"Retouren_Template"
).Range(
"J15"
) =
""
End
If
If
(TextBox5.Text <>
""
And
CheckBox1.Value =
True
)
Then
GoTo
weit
On
Error
GoTo
la
la:
If
(TextBox5.Text =
""
And
CheckBox1.Value =
True
)
Then
TextBox5.Text = InputBox(
"Das Häkchen zum Versenden von Textil Kartons wurde gesetzt. Allerdings wurde keine Kartonanzahl angegeben. Bitte geben Sie im unteren Feld eine Anzahl zwischen 1 und 999 Kartons an oder klicken sie auf Abbrechen."
)
If
TextBox5.Text = vbchancel
Then
GoTo
weiter
If
TextBox5.Text = vbOK
Then
GoTo
weit
If
CheckBox1.Value =
False
Then
GoTo
weiter
weit:
Call
mainBarCoder(Worksheets(
"Retouren_Template"
).Range(
"B6"
), Range(
"A3"
), 50, 10)
ActiveSheet.PrintOut Copies:=
Me
.TextBox5.Value
End
If