Laufzeitsfehler 1004

[ultrabest]

Danke an Klaus-Dieter und Uwe.

Ich habe mal die Datei um 2 Spieler erweitert.

Vielleicht kann einer es vollständigen.

Com 1
Com 2
Frank

Gegen 2 Computer Spieler trete ich an.


Herzlichen Dank im voraus.

[Klaus-Dieter]

Hallo,

warum für jeden Spieler ein Blatt? So baut man Dateien nicht auf. Das gehört alles in eine Liste.

[Egon12]

Hallo Frank,

so:

Code:

Sub WerteInTabelle()
    Dim arr(), arrZellen(), varName$, arrName(), i&: arrName = Array(0, 5, 10)
    With Tabelle2
        For i = 0 To UBound(arrName)
            varName = .Cells(8, 17 + arrName(i))
            arrZellen = Array(.Cells(7, 17 + arrName(i)).Value, .Cells(7, 18 + arrName(i)).Value, .Cells(7, 20 + arrName(i)).Value, .Cells(7, 19 + arrName(i)).Value, .Cells(10, 17 + arrName(i)).Value, _
                        .Cells(10, 18 + arrName(i)).Value, .Cells(10, 19 + arrName(i)).Value, .Cells(12, 17 + arrName(i)).Value, .Cells(12, 18 + arrName(i)).Value, .Cells(12, 19 + arrName(i)).Value, .Cells(14, 17 + arrName(i)).Value, .Cells(14, 18 + arrName(i)).Value)
            If .Cells(8, 17) = "Frank" Then
                Sheets(varName).ListObjects(1).ListRows.Add.Range.Resize(1, UBound(arrZellen) - LBound(arrZellen) + 1) = arrZellen
            End If
        Next i
    End With
End Sub

Bedingung: Mache in Com1 und Com2 die Tabellen zu Listobjects (in Tabelle klicken und Strg./T.).

Gruß Uwe

[ultrabest]

An Uwe: 

Es funktioniert.  

Herzlichen Dank.

An Klaus-Dieter: 

"Hallo,warum für jeden Spieler ein Blatt? So baut man Dateien nicht auf. Das gehört alles in eine Liste."

Du meinst eine Datenbank? Welchen Vorteil hat das?

Kann ich später besser eine Auswertung machen wenn alle in einem Tabellenblatt sind?

Viele Grüße 

Frank

[Klaus-Dieter]

Hallo,

ja.  Ging leider nicht kleiner.  

[RPP63]

ja.  Ging leider nicht kleiner. 

Wetten, dass?

[ultrabest]

Sorry ; Habe auf normale Schrift geändert.