Private
Sub
uebernehmen_Click()
With
ActiveSheet
.Range(
"B11:G11"
) = Array(
"Paletten Nr."
,
"Produktionsdatum"
,
"Schicht"
,
"Stamm Nr."
,
"bla"
,
"blub"
)
.Range(
"B12"
).Value = 1
.Range(
"B12"
).DataSeries Rowcol:=xlColumns, Type:=xlLinear,
Date
:=xlDay, _
Step
:=1,
Stop
:=TextBox1, Trend:=
False
.ListObjects.Add(xlSrcRange, Range(
"$B$11:$G$21"
), , xlYes).Name =
"Tabelle6"
End
With
End
Sub