Office: Addition aus mehreren Blättern

Folgende Aufgabe:

In einer Arbeitsmappe soll ein Tippspiel verwaltet werden. Für jede der 9 Tipprunden gibt es je ein Blatt, dieses enthält in Spalte A einen Benutzernamen und in Spalte D seine Punktzahl für diese Runde.

In einem weiteren Blatt sollen die Werte der Einzelnen Runden zu einer Gesamtwertung addiert werden. Hier sollen also alle Benutzernamen aus allen Runden in einer Spalte stehen und die Addition ihrer Punkte in der nächsten Spalte.

Das Problem dabei: Die Anzahl der Benutzernamen variiert von Runde zu Runde (z.B. weil einige Mitspieler nicht in jeder Runde getippt haben oder sich erst nach der ersten Runde angemeldet haben). Darum ist also z.B. eine direkte Addition gleicher Zeilen nicht möglich.

Hat von Euch jemand eine Lösung?

Mein System:

Windows 2000
Excel 2000 SR-1

 

Hallo,

Du kannst dazu die Excel Funktion SVERWEIS benutzen. Diese durchsucht die erste Spalte einer Matrix und durchläuft die Zeile nach rechts, um den Wert einer Zelle zurückzugeben.

Wenn Du also auf der Gesamtübersicht in der Spalte A die Namen hast könntest Du in der Spalte B folgendes eingeben: "=SVERWEIS(A1;'Runde 1'!A1:D111;4;0)"

Die Bedeutung der Parameter ist die folgende:
1. Parameter: Der Wert der gesucht werden soll.
2. Parameter: Die Matrix, die durchsucht wird.
3. Parameter: Nr der Spalte in der Matrix deren Wert zurückgeliefert werden soll, beginnend bei 1
4. Parameter: der ist etwas tricky, kann 0 oder 1 sein, wobei 1 dann verwendet wird, wenn die Suchspalte sortiert ist und auch Zwischenwerte gesucht werden sollen. Er muss 0 sein, wenn die Werte nicht sortiert sind und exakt gesucht werden soll.

Die verschiedenen Werte kannst Du dann selbstverständlich addieren:
"=SVERWEIS(A1;'Runde 1'!A1:D111;4;0)+SVERWEIS(A1;'Runde 2'!A1:D111;4;0)+..."

Co-Jack

 

Bleibt aber mein Problem:

Das schließt doch die Verwendung von SVERWEIS aus, oder?

 

Also eigentlich nicht.
Du musst nur auf dem Gesamtblatt alle Namen haben. Ich weiß jetzt nicht genau was passiert, wenn SVERWEIS den Namen nicht findet, zur Not muss man das ganze zusätzlich bedingen, nach dem Motto:
WENN(ISTNV(SVERWEIS(A1;'Runde 1'!A1:D111;4;0);0;SVERWEIS(A1;'Runde 1'!A1:D111;4;0))

Da muss man manchmal ein bischen rumspielen, bis genau das passiert, was man möchte. ;-)

Vielleicht habe ich auch einfach das Problem nicht richtig verstanden. :-?

Co-Jack

 

Scheint so. Muss ich wohl genauer (besser) erklären. :-?

Das Gesamtblatt soll ja automatisch entstehen. Es sollen aus den einzelnen Runden-Blättern also die Namen übernommen werden und zu jedem Namen die Summe der Punkte aus allen Runden errechnet werden.

:!: Es ist aber möglich, dass Mitspieler ihren Account währen des Spiels löschen. dann fällt also auch Ihr Name aus allen folgenden Rundenwertungen heraus. Es ist genauso möglich, dass Mitspieler in einer späteren Runde neu einsteigen. Genau dies macht die Addition so tricky. :cry:

Mit einer Datenbank wäre das relativ zu lösen. Die steht aber in diesem Fall nicht zur Verfügung. :roll: Darum suchen wir eine Excel-Lösung mit Bordmitteln, also möglichst ohne VB usw.

 

ok, jetzt hab ich es verstanden, das Problem sind also die Namen...

hmm, wenn das mit Excel Bordmitteln geht, weiß ich nicht wie. Würde wahrscheinlich ein Makro dafür schreiben...

 

Und wie sähe das aus?

 

Wenn Du jetzt Source Code sehen möchtest, muss ich Dich leider enttäuschen. Soviel mache ich nicht mit VBA, als dass ich das aus dem Stand jetzt runterschreiben kann.

Du musst im Prinzip von jedem Tabellenblatt die Werte aus den Zellen in der ersten Spalte auslesen, dann die doppelten Einträge entfernen und schliesslich alle in die erste Spalte auf dem ersten Blatt einfügen. Wie das in VBA geht, weiss ich nicht so genau, da musst du die Doku von Excel lesen oder jemanden der sich besser auskennt fragen ;-) . Die Addition müsste sich dann mit SVERWEIS (meiner Meinung nach) machen lassen.

Co-Jack

 

Schade :-( Ich hatte gehofft, wir nehmen zusammen auch noch diese letzte Hürde. Dann bliebt's halt jetzt bei verdammt aufwändiger Handarbeit und einem vergleichsweisen hohen Fehlerrisiko.

 

da hassu:

Code:

Sub namen_sammeln()
    Dim coll As VBA.Collection
    Set coll = New VBA.Collection
    
    Dim zeile, tabelle_nr, name
    
    ' Daten aus den Tabellen sammeln (Tabelle 2 bis 3)
    For tabelle_nr = 2 To 3
        Sheets("Tabelle" & tabelle_nr).Select
    
        zeile = 1
        Range("A" & zeile).Select
        name = ActiveCell.FormulaR1C1
        
        While name <> ""
            If Not contains(coll, name) Then
                coll.Add (name)
            End If
        
            zeile = zeile + 1
            Range("A" & zeile).Select
            name = ActiveCell.FormulaR1C1
        Wend
    Next tabelle_nr
    
    ' gesammelte Daten in Tabelle1 ausgeben
    Sheets("Tabelle1").Select
    For zeile = 1 To coll.Count
        Range("A" & zeile).Select
        ActiveCell.FormulaR1C1 = coll.Item(zeile)
    Next zeile
End Sub

Function contains(col As VBA.Collection, val) As Boolean
    Dim x
    For x = 1 To col.Count()
        If col.Item(x) = val Then
            contains = True
            Exit Function
        End If
    Next x
    contains = False
End Function

Ist mit Sicherheit nicht das schönste VBA, aber ging auf die schnelle nicht besser. Du musst das jetzt nur noch an deine Datei anpassen (sprich tabellennamen, spalten, zeilen, etc.) und die Sache mit dem SVERWEIS ergänzen.. dann sollte das hinhauen.

Co-Jack

 

Wow, erstmal vielen Dank. Werde das voraussichtlich morgen testen können.

 

Nen Feedback, ob das nun geklappt hat würde mich ja schon interessieren... ;-)