Makro: Bereich markieren
WalterK
Ich habe versucht ein Makro zusammen zustellen, dass ausgehend von Zelle A3 (in Zeile 2 sind die Überschriften) bis zur letzten befüllten Spalte und letzten befüllten Zeile die Tabelle markiert und dann den Sortieren-Dialog aufruft.
Es scheint nicht zu funktionieren, es wird jedenfalls nicht der richtige Bereich markiert.
Was ist hier falsch? Kann jemand behilflich sein?
Mein AnfängerCode:
Option Explicit
Sub Bereichmarkieren()
Dim Lz As Long 'letzte befüllte Zeile
Dim Ls As Long 'letzte befüllte Spalte
Ls = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column 'ermittelt die letzte _
befüllte Spalte
Lz = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row 'ermittelt letzte befüllte _
Zeile
Range(Cells(3, 1), Cells(Ls, Lz)).Select
Application.Dialogs(xlDialogSort).Show
End Sub
Anzeige