AW: Letzte Zeile
02.03.2007 09:32:00
EtoPHG
Hallo Manfred,
Hier wäre noch eine Formel, die den numerischen Wert von M in ein 'echtes' EXCEL-Datum umwandelt.
=WENN(M2>10101900;DATUM(RECHTS(M2;4);TEIL(M2;3;2);LINKS(M2;2));WENN(M2>1101900;DATUM(RECHTS(M2;4);
TEIL(M2;2;2);LINKS(M2;1));WENN(M2>1011900;DATUM(RECHTS(M2;4);TEIL(M2;3;1);LINKS(M2;2));DATUM(RECHTS(M2;4);
TEIL(M2;2;1);LINKS(M2;1)))))
Diese Formel wurde gesplittet und muss zusammengesetzt werden.
Wenn Du die (für Dich) richtige Formel hast, kannst Du den untenstehenden Code wie folgt in Dein Blatt kopieren.
1. Rechtsklick auf den Tabellenreiter
2. Im Kontextmenu Code anzeigen
3. Den untenstehenden Code mit Copy/Paste ins leere Fenster kopieren.
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
Was macht der Code?
1. Jedesmal wenn die Tabelle aktiviert wird, frägt er ob er auf die nächste freie Zeile springen soll.
2. Wenn mit ja beantwortet, wird das gemacht und gleichzeitig die Formel von der darüberstehenden Zelle in die neue, aktive Zelle kopiert.
Gruss Hansueli