Sub CommandButton1
'wenn ich auf diesen Button drücke soll es mir im Blatt Berechnung immer in
'Zeile 1, in der ersten freie Spalte das Datum im Datumsformat übertragen
With Sheets("Berechnung")
.Cells(1, .Cells(1, .Columns.Count).End(xlToLeft).Column + 1) = Date
.Cells(1, .Cells(1, .Columns.Count).End(xlToLeft).Column).Select
End With
'im Blatt Daten soll es mir aber ebenfalls in Spalte C ab Zelle C2 nach unten gehend das _
Datum in die nächste freie Zelle schreiben
With Sheets("Daten")
.Cells(1, .Cells(1, .Rows.Count, 3).End(xlUp).Rows + 1) = Date
End With
End Sub
Danke
Peter