|
Betrifft: Makro: Bereich markieren
von: WalterK
Geschrieben am: 31.07.2010 19:38:28
Hallo,
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
Besten Dank und Servus, Walter
Betrifft: AW: Makro: Bereich markieren
von: Gerd L
Geschrieben am: 31.07.2010 20:20:33
Hallo Walter,
du hast bei Cells(Ls, Lz) die Variablen vertauscht; Cells(Zeilennr, Spaltennr).
Die Ermittlung der letzten Spalte könntest Du an deiner Überschriftenzeile festmachen.
Sub Bereichmarkieren()
Dim Lz As Long 'letzte befüllte Zeile
Dim Ls As Long 'letzte Spalte
Ls = Cells(2, Columns.Count).End(xlToLeft).Column 'ermittelt die Spalte der letzten Ü _
berschrift in Zeile 2
Lz = Range(Columns(1), Columns(Ls)).SpecialCells(xlCellTypeLastCell).Row 'ermittelt letzte _
befüllte Zeile
Range(Cells(3, 1), Cells(Lz, Ls)).Select
Application.Dialogs(xlDialogSort).Show
End Sub
Gruß Gerd
Betrifft: Jetzt funktionierts! Danke Gerd. Servus Walter
von: WalterK
Geschrieben am: 31.07.2010 20:26:55
|
