Sortieren bis zur ersten leeren zelle
09.06.2005 07:42:36
Alex
habe folgendes problem.
Ich habe ein Makro erstellt zum sortieren des bereiches B3:D1002 nach zufallsprinzip. Das Problem ist, dass wenn ich sortiere nach zufallsprinzip er den bereich komplett sortiert. Wenn ich aber nur bis zelle B200 eine worteingabe habe, schmeißt er die wörter bis zeile 1000 runter. Kann man das Makro so ändern das er automatisch nur den Bereich sortiert nach zufall wo die letzte worteingabe erfolg ist.
Es soll aber auch nicht durch eigende selektion erfolgen.
Hoffe ihr versteht mein Problem.
Sub Sortieren()
Sheets("Worteingabe").Select
ActiveSheet.Unprotect
Range("B3:D1002").Select
Range("D1002").Activate
Selection.Sort Key1:=Range("D3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B3").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True
Sheets("Test").Select
Range("A1").Select
End Sub
Hoffe jemand kann mir helfen#
Gruß Alex