Zelle über VBA füllen
18.01.2006 13:15:24
volleybaerchen
ich habe mal wieder ein Problem:
Beim Aufruf unten stehender
Sub kommt jedes Mal die Fehlermeldung "Anwendungs- oder objektdefinierter Fehler und die Zeile
.Cells(intZeile, 5).FormulaLocal = strBedingung & strRunde & "$I$" & Anfang + intZeile
wird markiert. Bisher stand in der Zeile:
.Cells(intZeile, 5).FormulaLocal = "=" & strRunde & "$I$" & Anfang + intZeile
Damit hat es immer funktioniert. Ich hoffe, dass mir jemand sagen kann, was ich falsch mache.
Hier ist die sub:
Sub EndergebnisEineGruppe(Anfang As Integer)
' Blattschutz entfernen, Mannschaften in Spalte E eintragen und Blattschutz wiederherstellen
' ArbeitsblattFreigeben ("Endergebnis")
Dim intZeile As Integer ' Index für Zeile
Dim strRunde As String ' Name der Runde
Dim strBedingung As String ' Bedingung
strRunde = "'Runde " & intGruppen & " x " & intTeams & "'!"
' Bspl.: 'Runde 1 x 3'!
strBedingung = "=IF('Ergebnisse 1 x " & intGruppen & "'!$F$5=FALSe;"""";"
' Bspl.: =WENN('Ergebnisse 1 x 3'!$F$5=FALSCH;"";
With Worksheets("Endergebnis")
For intZeile = 1 To intTeams
.Cells(intZeile, 5).FormulaLocal = strBedingung & strRunde & "$I$" & Anfang + intZeile
Next intZeile
End With
' ArbeitsblattKomplettSperren ("Endergebnis")
End Sub
m.f.g.
volleybaerchen