Hallo,
ich hoffe auf eure Hilfe.
Ich soll am Wochenende eine Auswertung von einem Schirennen mittels einer Excelliste machen.
Ich möchte mir dazu Markos anlegen.
Es sind da einige Spalten zu sortieren, die ich mir schon vorher eingeben will, damit dann die Listen möglichst schnell fertig sind.
Da ich aber nicht weiß, wie viel Starter ich dann schlussendlich in der Ergebnisliste habe, weiß ich nicht wie ich das machen soll.
Kann mir da jemand helfen?
Danke für eure Hilfe
anita
Hallo Anita,
Ich soll am Wochenende eine Auswertung von einem Schirennen
mittels einer Excelliste machen.
meinst du damit dieses WE?
Kann mir da jemand helfen?
Vielleicht.
Lade mal mit fileupload o.ä. s. FAQ:2606 eine aussagekräftige
Mappe hoch und beschreib anhand von ihr was da wo, wie, warum sortiert werden soll.
Gruß
Reinhard
Danke Reinhard für die schnelle Antwort.
Hab jetzt versucht es rauf zu laden
http://www.file-upload.net/download-4180545/TestTour…
Ich brauche es erst nächsten Samstag also noch etwas Zeit.
Muss die Zeilen mal nach Bergaufzeit sortieren und die Ränge eingeben,
dann nach bergab und wieder die ränge eingeben, zum schluss noch die gesamtzeit und die ränge eingeben.
dass noch Männlein und weiblein getrennt.
…dann noch die differenzzeit rechnen und dem ganzen eine Form geben.
Die einzelnen Arbeitsschritte sind kein Problem das hab ich drauf (aber was Makro betrifft bin ich ein ziemlicher Anfänger), aber es benötigt alles seine Zeit und wie schon geschrieben soll es so schnell wie möglich gehen.
hab jetzt schon probiert, einzelne markos zu machen müsste so eigentlich gehen.
ich hoffe ich hab es verständlich rüber gebracht.
Danke für die Hilfe.
lg anita
Hallo Anita,
Muss die Zeilen mal nach Bergaufzeit sortieren und die Ränge
eingeben,
Brauchst du dann dafür nur ein Sortiermakro was nach Spalte H sortiert?
Tabellenblatt: K:\[kwTestTour12.xlsm]!Tabelle1
│ F │ G │ H │
──┼──────────┼─────────────┼──────┤
1 │ Bergauf │ Zeitauf │ Rang │
──┼──────────┼─────────────┼──────┤
2 │ 33:34,86 │ 0,023320139 │ 9 │
──┼──────────┼─────────────┼──────┤
3 │ 36:42,91 │ 0,025496644 │ 32 │
──┼──────────┼─────────────┼──────┤
4 │ 39:48,36 │ 0,027643056 │ 52 │
──┼──────────┼─────────────┼──────┤
5 │ 39:55,42 │ 0,027724769 │ 55 │
──┼──────────┼─────────────┼──────┤
6 │ 42:38,92 │ 0,02961713 │ 66 │
──┼──────────┼─────────────┼──────┤
7 │ 45:09,56 │ 0,031360648 │ 76 │
──┴──────────┴─────────────┴──────┘
Benutzte Formeln:
G2: =ZEITWERT(F2)
G3: =ZEITWERT(F3)
G4: =ZEITWERT(F4)
G5: =ZEITWERT(F5)
G6: =ZEITWERT(F6)
G7: =ZEITWERT(F7)
H2: =RANG(G2;$G:blush:G;1)
H3: =RANG(G3;$G:blush:G;1)
H4: =RANG(G4;$G:blush:G;1)
H5: =RANG(G5;$G:blush:G;1)
H6: =RANG(G6;$G:blush:G;1)
H7: =RANG(G7;$G:blush:G;1)
Zahlenformate der Zellen im gewählten Bereich:
F1:F7
haben das Zahlenformat: h:mm:ss,00
G1:G7,H1:H7
haben das Zahlenformat: Standard
Tabellendarstellung erreicht mit dem Code in FAQ:2363
dann nach bergab und wieder die ränge eingeben, zum schluss
noch die gesamtzeit und die ränge eingeben.
Auch da bräuchtest du doch nur Sortiermakros, denn Rang geht ja mit Formeln und der Hilfsspalte z.B. G.
Die kannst du übrigens ausblenden dann stört sie nicht.
Ich vermisse in der Spalte „Gesamt“ die Formeln, berechnest du „Gesamt“ mit dem Taschenrechner und trägst das da ein?
dass noch Männlein und weiblein getrennt.
Woher soll eine Excelformel oder ein Makro wissen wer da m/w ist?
Da fehlt doch wohl eine Spalte mit m/w Einträgen.
…dann noch die differenzzeit rechnen
Diff ist die Differenz zwischen bergauf und bergab?
Und da ich immer neugierig bin, ich sehe da 100stel Sekunden.
Werden die elektronisch ermittelt oder habt ihr da
reichlich viele Zeitstopper mit Stoppuhr in der Hand?
und dem ganzen eine Form geben.
Die einzelnen Arbeitsschritte sind kein Problem das hab ich
drauf
Ich sehe da aber keine entsprechenden Formeln.
Und da eingebaute Excelfunktionen zigmal schneller als
Vba-Prozeduren sind sähe eine „schnelle“ Vba-Lösung von mir sowieso so aus daß ich Vba da die schnelleren Formeln in Spalten eintragen lasse.
Insofern kannst du doch jetzt in aller Ruhe da die Formeln in bestimmte Spalten reinschreiben lassen.
Dann diese Spalten über Blattschutz sperren lassen.
Dann kannst du dann an den „Renntagen“ wenn es da hektisch zugeht,
dir die Formeln nicht durch Fehleingaben „zerschießen“.
Was ich für dich als hilfreich erachte ist z.B. dieses.
Gehe mal auf Ansicht—Fenster fixieren und fixiere z.B die oberste Zeile.
Dann, um den Überblick weiter zu verbessern färbe jede zweite
Zeile mit einer Hintergrundfarbe.
Das geht über Start—bed. Formatierung, da eine neue Regel vergeben
für den gesamten genutzten Bereich und der Regel diese Formel zuweisen:
=Rest(Zeile();2)=0
Du schreibst „dem ganzen eine Form“ geben, naja, das mußt du tuen.
Du kannst z.B. dir über Entwicklertools—Einfügen— ActiveX-Steuerelemente Befehslschaltflächen einfügen lassen und da
auf dem Blatt positionieren wo sie Sinn machen.
Z.B. die Schaltflche für die Bergauf-Spalte im fixierten Zell-Bereich
der Rang-Spalte der Bergauf-Zeiten.
Aus Platzgründen auf dem Blatt solltest du da das Fenster nicht
fixieren wie ich oben beschrieb, sondern markiere Zeile 3,
dann fixiere das Blatt. Dann sind Zeile 1 und 2 fixiert.
In Zeile 2, kannst ja die Zeilenhöhe erhöhen hast du dann Platz für die Schaltflächen.
(aber was Makro betrifft bin ich ein ziemlicher
Anfänger), aber es benötigt alles seine Zeit und wie schon
geschrieben soll es so schnell wie möglich gehen.
Schon klar daß du möglichst gern jetzt schon eine Lösung
hättest um dich ggfs. einzuarbeiten, was aber viel wichtiger
ist um die Lösung mehrfach testen zu können.
Bitte lese sorgfältig was ich schrieb, versuche umzusetzen davon was du möchtest und was du hinkriegst.
Ich, gar andere hier, können dir sicher helfen. Aber wir haben
davon was du GEANU in dieser Tabelle machen möchtest nur eine vage Vorstellung.
Deine Tabelle macht mir aus einem, für dich erstmal unwichtigem Problem SChwierigkeiten.
Aber dazu frage ich hier getrennt/extra hier im Brett an,
irgendwo/irgendwie übersehe ich da was.
Vielleicht hilft mir eine andere/ ein anderer netterweise von dem Schaluch auf dem ich da grad stehe. Details in meiner nuen Anfrage hier. Abder die hat für dich keinerlei Priorität.
hab jetzt schon probiert, einzelne markos zu machen müsste so
eigentlich gehen.
Auch das sind Informationen für mich wenn du in der Mappe
die du hochlädst, ist dann eine xlsm, deine Makros zeigst.
ich hoffe ich hab es verständlich rüber gebracht.
Ja, ich hoffe umgedreht auch 
Gruß
Reinhard
Hallo Reinhard und der Rest des Formus,
bin noch immer bei meinen Listen.
Hab folgende Sortiermakros eingegeben.
Sub sortierenbergauf()
’
’ sortierenbergauf Makro
’
’ Tastenkombination: Strg+a
’
Range(„A12:M120“).Select
ActiveWorkbook.Worksheets(„Tabelle1“).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(„Tabelle1“).Sort.SortFields.Add Key:=Range(„F13:F120“ _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets(„Tabelle1“).Sort
.SetRange Range(„A12:M120“)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range(„G13“).Select
ActiveCell.FormulaR1C1 = „1“
Range(„G14“).Select
ActiveCell.FormulaR1C1 = „2“
Range(„G13:G14“).Select
Selection.AutoFill Destination:=Range(„G13:G120“), Type:=xlFillDefault
Range(„G13:G120“).Select
End Sub
Sub sortierenbergab()
’
’ sortierenbergab Makro
’
’ Tastenkombination: Strg+b
’
Range(„A12:M114“).Select
ActiveWorkbook.Worksheets(„Tabelle1“).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(„Tabelle1“).Sort.SortFields.Add Key:=Range(„H13:H114“ _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(„Tabelle1“).Sort
.SetRange Range(„A12:M114“)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range(„I13“).Select
ActiveCell.FormulaR1C1 = „1“
Range(„I14“).Select
ActiveCell.FormulaR1C1 = „2“
Range(„I13:I14“).Select
Selection.AutoFill Destination:=Range(„I13:I114“), Type:=xlFillDefault
Range(„I13:I114“).Select
End Sub
Sub sortierengesamt()
’
’ sortierengesamt Makro
’
’ Tastenkombination: Strg+c
’
Range(„A12:M114“).Select
ActiveWorkbook.Worksheets(„Tabelle1“).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(„Tabelle1“).Sort.SortFields.Add Key:=Range(„J13:J114“ _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(„Tabelle1“).Sort
.SetRange Range(„A12:M114“)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range(„A13“).Select
ActiveCell.FormulaR1C1 = „1“
Range(„A14“).Select
ActiveCell.FormulaR1C1 = „2“
Range(„A13:A14“).Select
Selection.AutoFill Destination:=Range(„A13:A114“), Type:=xlFillDefault
Range(„A13:A114“).Select
End Sub
Dazu jetzt meine Frage,
ich weiß ja nicht ob ich dann bei unserem Rennen 114 Zeilen zum Sortieren habe. Hätte jetzt probiert 120 ein zu geben, das funktioniert leider nicht, weil es mir die Zeilen mit O auch mit sortiert und dann die Reihung nicht mehr stimmt.
Was muss ich da eingeben, geht das? Kann mir jemand helfen?
Danke für die Antwort.
Lg anita
Dazu jetzt meine Frage,
ich weiß ja nicht ob ich dann bei unserem Rennen 114 Zeilen
zum Sortieren habe. Hätte jetzt probiert 120 ein zu geben, das
funktioniert leider nicht, weil es mir die Zeilen mit O auch
mit sortiert und dann die Reihung nicht mehr stimmt.
Hallo Anita,
sorry, kann erst jetzt reagieren.
Nachfolgender Code bezieht sich auf diese Datei wo er auch schon eingebaut ist.
http://www.file-upload.net/download-4192932/kwTestTo…
Gruß
Reinhard
Option Explicit
Sub sortierenbergauf()
' sortierenbergauf Makro
' Tastenkombination: Strg+a
Call Sortieren("F", "G")
End Sub
Sub sortierenbergab()
' sortierenbergab Makro
' Tastenkombination: Strg+b
Call Sortieren("H", "I")
End Sub
Sub sortierengesamt()
' sortierengesamt Makro
' Tastenkombination: Strg+c
Call Sortieren("J", "K")
End Sub
Sub Sortieren(ByVal strSpaZeit As String, ByVal strSpaRang As String)
Dim Zei As Long
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Tabelle1")
Zei = .Cells(Rows.Count, strSpaZeit).End(xlUp).Row
With .Sort
.SortFields.Clear
.SortFields.Add Key:=Range(strSpaZeit & "3:" & strSpaZeit & Zei), \_
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
.SetRange Range("A3:M" & Zei)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
.Range(strSpaRang & "3").FormulaR1C1 = "1"
.Range(strSpaRang & "3").AutoFill Destination:=Range(strSpaRang & "3:" & strSpaRang & Zei), Type:=xlFillSeries
End With
Application.ScreenUpdating = True
End Sub