Fehlerhafter Code bei Excel 2003
20.12.2012 16:34:06
Kreienbaum
habe in Excel eine Datenbank mit Namen erstellt. Diese soll jetzt, nachdem in einem seperaten Tabellenblatt (liste) mit wenn(und) formeln ganz bestimmte Werte ausgefiltert werden, in das Tabellenblatt (Adressen_serienbrief) nach einer Sortierung reinkopiert werden.
Der Code funktioniert in Excel 2007 nur bei meinem Kollegen mit Excel 2003 kommt eine Fehlermeldung. Leider bekomme ich auch nicht hin, das die Liste Aufsteigend sortiert wird. Die gefüllten Zeilen stehen dann am Ende.
Hier der teilweise mit Makro aufgezeichnet Code:
Private Sub Worksheet_Activate()
'Sub Test_aufzeichnung()
' Test_aufzeichnung Makro
ActiveWorkbook.Worksheets("liste").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("liste").Sort.SortFields.Add Key:=Range("B1"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("liste").Sort
.SetRange Range("B1:G131")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Worksheets("liste").Range("b2:g121").Copy
Worksheets("Adressen_serienbrief").Range("a2").PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:= _
False, Transpose:=False
Range("A2").Select
End Sub
Vielen Dank schon einmal im voraus.
Anzeige