Hi Holger,
ich versteh' den Sinn der Aktion zwar immer noch nicht, da du durch Markieren des Bereichs ja schon mal die Ecken angefasst hast, aber hier mal 4 Befehlszeilen, mit denen du die Ecken aktiv setzen kannst. vielleicht helfen sie dir ja (| = Zeilenumbruch):
Selection.Cells(1, Selection.Columns.Count).Activate 'Rechts oben |
Selection.Cells(Selection.Rows.Count, Selection.Columns.Count).Activate 'Rechts unten |
Selection.Cells(Selection.Rows.Count, 1).Activate 'Links unten |
Selection.Cells(1, 1).Activate 'Links oben
Gruß Mr. K.
|