Hallo alle
Ich wüsste gerne was für ein Code ich benötige um Daten die ich eingegeben habe auf ein anderes tabellenblatt über button speicher kann
http://users.quick-line.ch/excel/vorlage.xls
Sub Daten_eintragen()
Dim arrSchichten
arrSchichten = Array("Früh", "Mittag", "Nacht")
With Sheets("TM2Rapport Eingabe").Cells(Rows.Count, 2).End(xlUp)
.Offset(1, 0) = Range("B9")
.Offset(1, 1) = Application.Index(Range("B58:B97"), Range("F9"))
.Offset(1, 2) = Application.Index(arrSchichten, Range("H8") - 1)
.Offset(1, 3) = Range("B12")
'und so weiter
End With
End Sub