Hallo zusammen,
Wenn ich ein Excel-Tool öffne kommt ab und zu (nicht immer!) die Meldung eines Laufzeitfehlers 380 "Eigenschaft BorderColor konnte nicht gesetzt werden. Ungültiger Eigenschaftswert"
Wenn ich dann über Debuggen in den VBA-Code gehe, markiert er mir die fett markierte Zeile in untem stehendem Code. Ich weiß nicht inwiefern ich diese ändern soll. Da es ab und zu funktioniert kann es ja nicht so ganz falsch sein. Kann mir da jemand helfen?
Public Function fondscounter() 'Function which counts the number of funds
Dim i As Integer
Dim name As String
'erst auf 0 setzen, um zusammenzählen zu können
Main.fondsnumber = 0
'Fonds zusammenzählen, indem Anzahl der Häkchen gezählt werden
For i = 1 To fonds
Main.fondsnumber = Main.fondsnumber + Abs(Main("Fund" & CStr(i)).Value)
'die neuen Fonds sollen auch mitgezählt werden
If i < 7 Then
Main.fondsnumber = Main.fondsnumber + Abs(Main("newfund" & CStr(i)).Value)
End If
Next i
'Zuweisung der Beschriftung
Main.fondsnumberlabel.Caption = Main.fondsnumber
End Function
|