Indsæt dato

Denne virker med en knap og indsætter to nye linier i toppen af regnearket samt dags dato med fed skrift i 3. række.

Private Sub CommandButton1_Click()
    Rows("3:3").Select
'    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
   
    Rows("3:5").Select
    Rows("3:5").EntireRow.AutoFit
    Range("A3").Select
   
    ActiveCell.FormulaR1C1 = "=NOW()"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
   
    Application.CutCopyMode = False

    Selection.NumberFormat = "d. mmmm yyyy"
    Selection.Font.Bold = True

End Sub

Det skal være sådan, at datoen indættes, ligegyldigt hvor linien indsættes.
Herudover vil jeg også gerne have det sådan, at man kan skrive noget efter datoen(fx 03.08.2006: Status for projektet er...), så now() kan altså ikke bruges.
Jeg kan dog godt have now() stående et andet sted i arket, hvor man så kun kopierer værdien ned i den nye linie.

i selle A65436 skal indsætte et X manuelt
herefter indsættes denne kode i arkets kodemodul

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:IV10000")) Is Nothing Then Exit Sub
If Range("A65436").Value <> "X" Then
Range("A65400:A65536") = "": Range("A65436").Value = "X"
ActiveCell.Value = Format(Now(), "dd-mm-yyyy")
End If
End Sub

hvis det er den samme tekst du skal have så indsæt denne linie istedet

ActiveCell.Value = Format(Now(), "dd-mm-yyyy") & " : Status for projektet er.."

Det er super excelent. Send et svar

ok

Jeg var vist lidt for hurtig, da jeg ikke helt kan få formlen til at fungere.
Hvad bestemmer, hvilken kolonne datoen skal sættes ind i? Jeg vil gerne have den sat i kolonne Z i den ny-indsatte linie.