Letzte Active Celle zurückgehen
03.01.2004 13:04:53
Walter
ich bin in der Zelle z.b. B10 und möchte dann zurück nach meinem ausgeführten
Befehl.
Mein Makro:
Sub activeCell()
Dim ca As String
ca = ActiveCell.Activate
z = Range("a4").End(xlDown).Row 'diese Zeile muß mit der nächsten
ActiveSheet.Range(Cells(z, 1), Cells(z, 1)).Select 'Zeile stehen
Selection.Delete
Selection.Borders(xlEdgeTop).LineStyle = xlNone 'Linie oben raus
ActiveCell(ca).Activate
End Sub
Funktioniert bis auf die Ausführung das die Zelle "B10" wieder aktiviert wird.
Was habe ich Falsch gemacht ?
Gruß Walter