Hallo liebe VBA'ler,
vielleicht kann mir hier jemand helfen.
Mit dem nachfolgenden Makro möchte ich sortieren. Das funktioniert gut, wenn nur Zahlen sortiert werden sollen. Wenn aber eine Kombination aus Zahlen und Buchstaben, wie z.b. 8568A sortiert werden soll, findet sich die Sortierung ganz unten in den letzten Zellen von dem genannten Bereich wieder. (Zelle A124 ist eine Überschrift)
-----------
Range("A124:A148").Select
Selection.Sort Key1:=Range("A125"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
-----------
Weiter geht es mit folgendem Problem:
Nach der Sortierung soll der o.g. Bereich kopiert werden und an einem anderem Bereich gefiltert werden, mit folgendem Makro:
--------
Range("A124:A148").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("A124:A148"), CopyToRange:=Range("A150:A174"), Unique:=True
--------
Bei den Zahlen-Buchstabenkombinationen bleibt hier immer die erste Zelle frei und dann funktionieren die weiteren Formeln nicht mehr.
Hat vielleicht jemand eine Ahnung, woran das leigen könnte?
Vielen Dank schon mal für jede Hilfe.
Scheinchen