Datenübertragung neues Blatt wenn voll
lutz
leider stosse ich mal wieder an meine Grenzen...
Ich habe ein Makro welches mir Daten in ein Tabellenblatt überträgt:
For iI = 1 To UBound(arrWksSek) 'sekundensheets derzeit 2
With arrWksSek(iI)
ZeileSekunde = .Cells(.Rows.Count, 1).End(xlUp).row + 1
.Cells(ZeileSekunde, 1) = datDatum
.Cells(ZeileSekunde, 2) = datZeit
.Cells(ZeileSekunde, 3) = wksAbfrage.Cells(ZeileAbfrage + iI - 1, spAbfrage)
End With
Next
End If
Das Funktioniert auch gut, aber irgendwan ist das Tabellenblatt voll (passiert jede Sekunde)
Jetzt müßte das Makro so ergänzt werden, dass das volle Blatt kopiert wird und die Datensätze weiter in das gleiche Blatt kopiert werden (der Name wird in anderen Makros verwendet). In der Zeile 1 des Blattes stehen Überschriften, in den Zellen D2:G2 stehen Formeln.
Wer weiß wie man das ändern/ergänzen muß?
Tausend Dank und viele Grüße Lutz