AW: Speichern
25.08.2007 16:44:54
Renee
Hallo Markus,
So schnell kann man das Problem nicht beheben.
Es sieht so aus, als ob Du in der Datei Änderungen gemacht hast, ohne zu wissen wie der VBA-Code funktioniert, bzw. von was er abhängig ist.
Die Formeln, von denen Du sprichst werden dynamisch beim Öffnen (Workbook_Open) erstellt bzw. bei einem Sichern der Datei (Workbook_BeforeSave) gelöscht. In der Formel werden an der von Dir beschriebenen Stelle Variablen aus dem Blatt Tipper eingesetzt. Das hat sich aber anscheinend zum Original verändert und darum wird an diesen Stellen nix eingesetzt. Wenn Du wirklich die Werte 3,2,1 eingesetzt haben willst, dann kannst Du den Code in DieserArbeitsmappe im Workbook_Open, mit diesem ersetzen:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Tippzettel").Select
lrox = Cells(4, Columns.Count).End(xlToLeft).Column
For i = 8 To 156 Step 3
Range(Cells(5, i), Cells(310, i)).FormulaR1C1 = _
"=IF(COUNTA(RC4:RC5,RC[-2]:RC[-1])4,""x""," & _
"IF(AND(RC[-2]-RC[-1]=RC4-RC5,RC[-1]=RC5,RC[-2]=RC4),3" & _
",IF(RC[-2]-RC[-1]=RC4-RC5,2,IF(((RC[-1]-RC[-2])*(RC5-RC4))>0,1,0))))"
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Aber eine Garantie, dass das dann richtig herauskommt kann ich Dir nicht geben, da ich keine Ahnung von diesem Männersport "Fussball" habe ;-)
Sonst nimm Kontakt mit Deinem Kollegen in den USA auf oder geh zurück zum Original.
Greetz Renee