sortiermakro
30.10.2006 13:06:21
CB
ich wollte mir ein einfaches makro zum sortieren von nem datenblatt machen
der markierte bereich soll einfach nach einer bereits festgelegten spalte alphabetisch sortiert werden. das sortiermakro an sich läuft, funzt aber nur wenn etwas markiert ist - sonst rennt er in einen fehler (is klar). nun wollte ich das ganze einfach mit ner if-abfrage abfangen, aber die tuts nicht...
wie muss ich die formulieren das er das macht was er soll?
ich hab bisher:
Sub Mark_Sort_Date()
If Selection Then
Selection.Sort ...
Else
MsgBox "Nichts markiert!"
End If
End Sub
wenn nichts markiert ist gehts, aber bei ner markierung kommt "fehler:13 typen unverträglich"
danke
mfg