aktive Zelle
18.10.2012 17:19:42
Peter
ich möchte mit dem Klick auf CommandButton4 in der ersten freien Spalte in Zelle 1 das aktuelle Datum eintragen und diese Zelle soll dann sofort als aktive Zelle gelten.
hab schon einiges probiert aber so rictig komm ich net weiter.
Private Sub CommandButton4_Click()
With Sheets("Berechnung")
.Cells(1, .Cells(1, .Columns.Count).End(xlToLeft).Column + 4) = Date
.Cells(1, .Cells(1, .Columns.Count).End(xlToLeft).Column + 4) = ActiveCell.Columns("A:A")
End With
End Sub
Peter
Anzeige