Ich habe folgendes Problem: ich habe ein VBA Projekt, mit einem Formular und ein wenig Code. Ich rufe das Formular von einer Tabelle her auf, und das tut dann auch seine Arbeit. Jedenfals unter Windows XP/Office XP.
Wenn ich es aber unter NT4/Office 97 ausführe, lädt er den dialog, stürzt aber bei folgendem Code ab:
Public Sub test(yvalueuebersicht As Integer)
'Tätigkeit
'farbe = 17
xvalueuebersicht = 2
While Tabelle1.Cells(xvalueuebersicht, 2).Value < UserForm1.dtanfang.Value
xvalueuebersicht = xvalueuebersicht + 1
Wend
While UserForm1.dtende.Value >= Tabelle1.Cells(xvalueuebersicht, 2).Value
If Tabelle1.Cells(xvalueuebersicht, yvalueuebersicht).Interior.ColorIndex = 3 Then 'Falls Termin!!!
'nur hinaufzählen
Tabelle1.Cells(xvalueuebersicht, yvalueuebersicht).Value = CStr(CInt(Tabelle1.Cells(xvalueuebersicht, yvalueuebersicht).Value) + 1)
Else
farbe = 15
'einfärben
>> Tabelle1.Cells(xvalueuebersicht, yvalueuebersicht).Interior.ColorIndex = farbe
Tabelle1.Cells(xvalueuebersicht, yvalueuebersicht).Font.ColorIndex = farbe
'hinaufzählen
Tabelle1.Cells(xvalueuebersicht, yvalueuebersicht).Value = CStr(CInt(Tabelle1.Cells(xvalueuebersicht, yvalueuebersicht).Value) + 1)
xvalueuebersicht = xvalueuebersicht + 1
End If
Wend
End Sub
Und bringt diesen Fehler:
Laufzeitfehler 1004:
Die ColorIndex-Eigenschaft des Interior-Objektes kann nicht festgelegt werden.
Vielen Dank für eure Hinweise!