TMSearcher
Anmeldungsdatum: 19.05.2005 Beiträge: 270 Wohnort: Bremen
|
Verfasst am: 13. Jun 2005 18:05 Titel: |
|
|
Hi,
versuchs mal damit:
Sub Makro1()
Range("C3:C11").Select
Range("C11").Activate
Selection.Sort Key1:=Range("C11"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Ähm.. Ok , aktivier in der Leiste VB, geh auf recording und nimm einfach ein Makro auf. Das Makro kannst dann hinterher bearbeiten, hast aber alles drin was du brauchst. Der source code oben ist auch so erstellt.
Record - dann mit der Maus die Zellen markieren die sortiert werden sollen - dann in der Leiste auf sortieren drücken - Makroaufnahme mit Stop beenden - fertig .
Brauchst jetzt nur noch einen Button einsetzen, der dieses Makro ausführt.
Viel Glück
TMS |
|