Was ist an diesem Makro falsch?
Jens-Claus
ich habe das nachstehende mit dem Makrorekorder aufgezeichnet. Die Sortierung nach dem Feld ist als Makro für spätere Teilergebnisse gedacht. Wenn ich das aufgezeichnete Makro laufen lassen funktioniert dies auch einwandfrei. Da, jedoch Daten ergänzt werden können, habe ich das Makro
erstellt mit der variablen .
Wenn ich dieses Makro laufen lasse, kommt eine Fehlermeldung und die Zeile ist gelb hinterlegt.
Ich habe das Makro mit Office 2010 aufgezeichnet, möchte es jedoch an einen Unser weitergeben, der noch mit der Version 2003 arbeitet.
Was mache ich falsch?
Sub Makro1()
Application.Goto Reference:="R8C1"
Range("A8:S212").Select
ActiveWorkbook.Worksheets("Verdichtung").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Verdichtung").Sort.SortFields.Add Key:=Range( _
"A9:A212"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Verdichtung").Sort
.SetRange Range("A8:S212")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A10").Select
End Sub
Sub SortTeilergebnisse()
Application.Goto Reference:="R10C1"
Selection.End(xlDown).Select
z = ActiveCell.Row
Range("A8:s" & z).Select
ActiveWorkbook.Worksheets("Verdichtung").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Verdichtung").Sort.SortFields.Add Key:=Range( _
"A9:s" & z), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Verdichtung").Sort
.SetRange Range("A8:S" & z)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A10").Select
End Sub