Selektion im Makro definieren
23.07.2003 16:06:52
Walter
habe mal ein Makro erstellt, mit dem ich selektieren kann.
Siehe Beispiel:
Sub SortierenVKNamen()
ActiveSheet.Unprotect 'schutz aufheben
Application.ScreenUpdating = False
z = Range("b3").End(xlDown).Row
'AktivesBlatt.Bereich(ZelleListe(1; 1); ZelleListe(z; 16)).Auswählen
ActiveSheet.Range(Cells(3, 2), Cells(z, 17)).Select
Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
Range("B3").Select
Application.ScreenUpdating = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True 'schützen
End Sub
Jetzt möchte ich wissen wie ich ich dies so umstellen kann, in Spalte "C"
steht entweder 00400 oder 01400 03400 u.s.w. ich möchte nach 01 oder 00, 03 selektieren oder NUR nach 400, 700 also nach den letzten 4 Zahlen !!
Gruss WAlter
Anzeige