05.03.2015, 11:27
05.03.2015, 12:15
(05.03.2015, 11:27)Hallo Atilla, schrieb: [ -> ]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.
05.03.2015, 14:04
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...!!!!
05.03.2015, 14:22
(05.03.2015, 14:04)Jockel schrieb: [ -> ]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
05.03.2015, 19:12
Hallo,
habe den Code von Atilla in der Tabelle Gesamtübersicht eingefügt.
habe den Code von Atilla in der Tabelle Gesamtübersicht eingefügt.
06.03.2015, 08:17
(05.03.2015, 19:12)Guten morgen schrieb: [ -> ]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.
06.03.2015, 09:09
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!?
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!?
06.03.2015, 11:11
Hallo Alfred,
folgenden Code in das Codefenster der Tabelle "Scorerliste"
folgenden Code in das Code Modul der Tabelle "Strafen"
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.
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 Subfolgenden 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 SubUnd 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.
06.03.2015, 12:17
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
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
06.03.2015, 12:23
Hallo Alfred,
mein Fehler fehlte eine Zeile:
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