hier eine Umsetzung. Sollte bei dir klappen. Es wird das aktive Blatt beschrieben. Alternativ hinter das with worksheets("dein Blattname")
die Punkte vor Range bilden die Verbindung mit dem Blatt wenn innerhalb "with - end with"
Private Sub uebernehmen_Click()
With ActiveSheet
'kopfzeile schreiben
.Range("B11:G11") = Array("Paletten Nr.", "Produktionsdatum", "Schicht", "Stamm Nr.", "bla", "blub")
'initialwert für erste Zeilennummer
.Range("B12").Value = 1
'ausfüllen als Datenreihe
.Range("B12").DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Stop:=TextBox1, Trend:=False
'hier wird daraus eine intelligente Tabelle, falls benötigt
.ListObjects.Add(xlSrcRange, Range("$B$11:$G$21"), , xlYes).Name = "Tabelle6"
End With
End Sub
|