AW: Makro
11.02.2010 21:13:54
Reinhard
Hallo Herby,
warum hast du dann XL2003 angekreuzt?
Bei Überschau über den Code (ist der Code von Modul1, sonst gibt es keinen Code, er steht nachstehend,
dann braucht ihr die Mappe nicht zu öffnen)
konnte ich nichts erkennen was einen Verweis benötigt.
Aber, die Parameter der Versionen bei Sort unterscheiden sich, schmeiß mal den letzten Parameter raus.
Bzw. überprüfe in beiden Versionen die parameter.
Ich glaube daran liegt es.
ich habe hier nur 2000, kein 2002
Gruß
Reinhard
Sub Endergebnis_erzeugen()
' Endergebnis_erzeugen Makro
' Endergebnis erzeugen
' Tastenkombination: Strg+Umschalt+E
Range("A2:H30").Select
Selection.Copy
Range("K2").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll ToRight:=1
Columns("L:Q").Select
Selection.EntireColumn.Hidden = True
Range("K3:R30").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("R3"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Sub Endergebnis_löschen()
' Endergebnis_löschen Makro
' Endergebnis löschen
' Tastenkombination: Strg+Umschalt+L
Range("K2:R30").Select
Selection.Delete Shift:=xlToLeft
End Sub