AktiveCell zurück, geht noch nicht (Andre bitte?)
03.01.2004 15:51:44
Walter
habe gerade ausprobiert.
Meine letzte Zelle hingehen funktioniert, leider aber nicht zurück zur Ausgangszelle
vor dem starten des Makros. "A59" wird aktiviert, müßte aber "B50" sein.
Hier mein Makro nochmal:
Sub VF_activeCell()
Dim lc As Long
lc = ActiveCell.Select
Dim z As Long
z = Range("a4").End(xlDown).Row 'diese Zeile muß mit der nächsten
ActiveSheet.Range(Cells(z, 1), Cells(z, 1)).Select
Selection.ClearContents 'hier bleibt die Formatierung
' Selection.Delete ' verschiebt die zellen
Selection.Borders(xlEdgeTop).LineStyle = xlNone 'Linie oben raus
ActiveCell(lc).Activate
End Sub
Wieso ?
Kannst Du mir nochmal helfen?
Gruß Walter