Excel stürzt ab

Hallo Zusammen!
Ich nutze folgenden Code:
Application.ScreenUpdating = False
Dim Zeile As Long, Schrittweite As Long
Dim rKey1 As Range, rKey2 As Range, rKey3 As Range
Set rKey1 = Range("EM" & 2 + Zeile)
Set rKey2 = Range("EP" & 2 + Zeile)
Set rKey3 = Range("EN" & 2 + Zeile)
For x = 0 To 18
Schrittweite = 11
Zeile = x * Schrittweite
Range("EH" & 1 + Zeile & ":FD" & 11 + Zeile).Select
rKey1 = Range("EM" & 2 + Zeile)
rKey2 = Range("EP" & 2 + Zeile)
rKey3 = Range("EN" & 2 + Zeile)
Calculate
Selection.Sort Key1:=rKey1, Order1:=xlDescending, Key2:= _
rKey2, Order2:=xlDescending, Key3:=rKey3, Order3 _
:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Next x
Calculate
Range("EM3:EP3").Select
Selection.AutoFill Destination:=Range("EM2:EP3"), Type:=xlFillDefault
Range("EH2").Select
Application.ScreenUpdating = True
Jedoch kommt der folgende Fehler und danach stürzt Excel ab.
Userbild

Weiss jemand Rat? danke vorab!
Gruß Frank H.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
die Anweisungen

    Set rKey1 = Range("EM" & 2 + Zeile)
MsgBox rKey1.Address   ' *******************
Set rKey2 = Range("EP" & 2 + Zeile)
Set rKey3 = Range("EN" & 2 + Zeile)
For x = 0 To 18
Schrittweite = 11
Zeile = x * Schrittweite
Range("EH" & 1 + Zeile & ":FD" & 11 + Zeile).Select
rKey1 = Range("EM" & 2 + Zeile)
MsgBox rKey1.Address ' *******************
rKey2 = Range("EP" & 2 + Zeile)
rKey3 = Range("EN" & 2 + Zeile)

sind kritisch, wie man mit der msgbox überprüfen kann: es kommt *immer* EM2 raus.
Unten fehlt das Set.
Ansonsten wäre eine "select"-freie Programmierung wünschenswert, am Anfang des Moduls sollte Option explicit stehen (dann merkt man nämlich, daß Dim x fehlt) und ich empfehle, die Hilfe von range.offset anzusehen.
Das hier ist etwas aufgehübscht:

Private Sub CommandButton5_Click()
Dim Zeile As Long, x As Long
Const Schrittweite = 11
Application.ScreenUpdating = False
For x = 0 To 18
Zeile = x * Schrittweite
Calculate  ' wozu?
Range("EH" & 2 + Zeile & ":FD" & 11 + Zeile).Sort _
Key1:=Range("EM" & 2 + Zeile), Order1:=xlDescending, _
Key2:=Range("EP" & 2 + Zeile), Order2:=xlDescending, _
Key3:=Range("EN" & 2 + Zeile), Order3:=xlDescending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Next x
Calculate
Range("EM3:EP3").AutoFill Destination:=Range("EM2:EP3"), Type:=xlFillDefault
Range("EH2").Select
Application.ScreenUpdating = True
End Sub

Gruß,
Michael

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel stürzt ab

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread