aktive spalte sortieren
27.05.2003 14:36:39
rudolf kiepetz
ich möchte gerne jene spalte, in der sich die aktive zelle befindet per vba sortieren. leider funkt das mit meinem makro nicht. kann mir jemand sagen warum ??
weiters möchte ich gerne mit jedem wert (kann öfters vorkommen) ein eigenes tabellenblatt anlegen und die entsprechenden zeilen in das zugehörige blatt kopieren.
herzlichen dank im voraus
rudolf
Sub sortieren()
Dim rg As Range
Dim akt As String
Dim spalte%
spalte = ActiveCell.Column
Cells(1, spalte).Select
akt = ActiveCell.Address
Set rg = ThisWorkbook.Worksheets("Tabelle1").Range("akt").CurrentRegion
rg.Sort key1:=rg.Range("akt"), order1:=xlAscending, header:=xlGuess, ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub