automatisch Sortieren

[atilla]

Hallo Alfred,

nee, das kriegst Du hin.

Lies die Beiträge noch einmal durch und mach alles noch einmal.

[Alfredd64]

Habe dir die Datei jetzt noch einmal angehängt, habe alles noch einmal eingegeben :) jetzt kommt zwar keine Fehlermeldung mehr aber er berechnet nichts in Strafen und Scorer Liste :( Makros sind aktiviert....Hallo Alfred,

nee, das kriegst Du hin.

Lies die Beiträge noch einmal durch und mach alles noch einmal.

[Jockel]

Hallo Alfred64, es ist natürlich auch einfacher, dieselbe Frage in einem anderen Forum neu zu posten... (ohne einen Hinweis, wieweit Du schon gebracht wurdest) - Schade...!!!!

[Alfredd64]

Hallo Alfred64, es ist natürlich auch einfacher, dieselbe Frage in einem anderen Forum neu zu posten... (ohne einen Hinweis, wieweit Du schon gebracht wurdest) - Schade...!!!!

Das war auch so nicht gewollt

[Steffl]

Hallo,

habe den Code von Atilla in der Tabelle Gesamtübersicht eingefügt.

[Alfredd64]

Danke das einfügen funktioniert bei mir auch, jedoch sortiert er nicht anschließend und ich weis nicht warum bzw. an was es liegen kann!!StefflHallo,

habe den Code von Atilla in der Tabelle Gesamtübersicht eingefügt.

[Alfredd64]

Jetzt habe ich was gesehen :) die Scorerliste wird jetzt in der Gesamtübersicht sortiert jedoch nicht in der eigentlichen Scorerliste wo ich es bräuchte :(
in der Gesamtübersicht soll nichts verändert werden. Ebenso werden die Strafen nicht sortiert. Wie muss ich den Code verändern damit es passt!?

[atilla]

Hallo Alfred,

folgenden Code in das Codefenster der Tabelle "Scorerliste"

Code:

'Scorerliste sortieren zuerst nach Spalte G und dann nach Spalte E
Private Sub Worksheet_Activate()
 Dim lngZ As Long
 Range("A10:G" & lngZ).Sort Key1:=Range("G4"), Order1:=xlDescending, Key2:=Range("E4") _
   , Order2:=xlDescending, Header:=xlYes, _
   OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
   DataOption1:=xlSortNormal

End Sub

folgenden Code in das Code Modul der Tabelle "Strafen"

Code:

'Strafen sortieren nach Spalte I
Private Sub Worksheet_Activate()
lngZ = Cells(Rows.Count, 1).End(xlUp).Row
  Range("A4:I" & lngZ).Sort Key1:=Range("I4"), Order1:=xlDescending, Header:=xlYes, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal
End Sub

Und mach Dich mal ein wenig mit dem Forum vertraut. Schau Dir mal Deine Beiträge an.
Deine Antworten vermischen sich mit den Zitaten. Du musst auch nicht jedes mal zitieren.

[Alfredd64]

Super Danke,
bei Strafen funktioniert es jetzt einwandfrei!!
Bei der Scorerliste kommt Laufzeitfehler 1004
Die Methode Range für das Objekt_Worksheet ist fehlgeschlagen
Kannst du mir da Bitte noch einmal helfen !?
VG
Alfred

Private Sub Worksheet_Activate()

  Dim lngZ As Long
  Range("A10:G" & lngZ).Sort Key1:=Range("G4"), Order1:=xlDescending, Key2:=Range("E4") _
    , Order2:=xlDescending, Header:=xlYes, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
End Sub

[atilla]

Hallo Alfred,

mein Fehler fehlte eine Zeile:

Code:

'Scorerliste sortieren zuerst nach Spalte G und dann nach Spalte E
Private Sub Worksheet_Activate()
 Dim lngZ As Long
 lngZ = Cells(Rows.Count, 1).End(xlUp).Row
 Range("A10:G" & lngZ).Sort Key1:=Range("G4"), Order1:=xlDescending, Key2:=Range("E4") _
   , Order2:=xlDescending, Header:=xlYes, _
   OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
   DataOption1:=xlSortNormal

End Sub