Ich bins wieder.
Wie bei meiner Anfrage vom 01.03.07 20:57, geht es wieder um die Formel,
Private Sub Worksheet_Activate()
Dim vAnswer
vAnswer = MsgBox("Wollen Sie zur letzten Zeile springen?", vbExclamation + vbYesNo, "Springen + _
Kopieren")
If vAnswer = vbYes Then
ActiveSheet.Cells(ActiveSheet.Rows.Count, 14).End(xlUp).Offset(1, 0).Activate
ActiveCell.Offset(-1, 0).Copy Destination:=ActiveCell.Offset(0, 0)
End If
End Sub
Das Datum wird jetzt bestens Umgewandelt, aber die nächste freie Zelle wird nicht angesteuert.
Vielleicht habe ich ja etwas falsch gemacht.
Gruß und ein Dankeschön im voraus
Manfred