Hallo,
kann mir bitte jemand den Code überprüfen? Der Untere Teil mit dem Array Wertung() funktioniert einwandfrei, nur der obere mit Name() nicht.
Da kommt in der fett hinterlegten Zeile eine Fehlermeldung mit "Erwartet: As" und wenn ich irgendwo As hinzufüge will er einen "Ausdruck" haben.
Ich hab mir die ganzen Codes selber zusammengesucht, deshalb sagen mir die einfachsten Fehlermeldungen leider nichts ^^
Danke für die Hilfe!
Marco
Dim Name(4) As Integer
Dim Wertung(4) As Integer
For h = 1 To 4
With Me("ComboBox" & h)
For k = 3 To 82
If .Value = Sheets("Spieler").Range("C" & k).Value Then
Name(h) = Sheets("Spieler").Range("B" & k).Value
End If
Next k
End With
Next h
For i = 1 To 4
With Me("CB_S" & i & "_Einsatz")
If .Value = True Then
Wertung(i) = 1
Else
Wertung(i) = 0
End If
End With
Next i
|