|
Moin,
lang ist VBA her bei mir und es ist gut ein Jahr her, dass ich mich damit grundlegend auseinander gesetzt habe.
Für ein kleines Turnier bin ich gerade mal wieder auf die Idee gekommen Excel und VBA zu benutzen.
Mein Problem - die Umsetzung meiner Idee funktioniert momentan noch nicht - Fehlermeldung liegt momentan keine vor.
Vielleicht könnt ihr mir ja auf die Sprünge helfen ;)
Idee: Es gibt einen Spielplan wo gelistet ist, wer gegen wen spielt - insgesamt 16 Teilnehmer.
Um per Formel den Gewinner ein Spiels herauszufinden, habe ich schnell eine IF Formel gebastelt : =IF(E6=G6;"Tie";IF(E6>G6;D6;H6)) => Die spuckt mir in Excel dann schön den Gewinner aus oder zeigt an, wenn es unentschieden ausgegangen ist. Nun zeigt er aber auch unentschieden an, wenn keine Werte eingetragen sind. Das wollte ich durch VBA dann so umgehen:
Dim SP As Worksheet
Dim GP As Worksheet
Dim z As Integer
Set SP = ActiveWorkbook.Worksheets("Spielplan")
Set GP = ActiveWorkbook.Worksheets("Gruppen")
For z = 6 To z = 30
If SP.Cells(z, 7) = "" And SP.Cells(z, 5) = "" Then
SP.Cells(z, 9) = ""
Else
SP.Cells(z, 9) = "=IF(E6=G6;" & "Tie" & ";IF(E6>G6;D6;H6))"
End If
Next z
Kann mir jemand auf die Sprünge helfen?
Wenn Ihr Fragen zum Problem habt, einfach her damit - nicht ganz einfach zu erklären für mich ;)
Danke im Voraus!
Grüße
Skizzzi
|