cells.find
13.08.2003 10:51:44
andreas
tut mir leid dass ich euch auf die nerven gehe. ich habe folgenden code,der manchmal funktioniert und manchmal nicht. hat jemand eine ahnung woran das liegen könnte?
im besonderen funktioniert folgende passage nicht fehlerfrei. gelegentlich gibt sie den fehler 91 zurück dass eine objektvariable nicht festgelegt wurde.
Cells.Find(what:=Left(BloomBergKürzel, 3)).Activate
Public
Sub DividendenAusgleich(k As Integer)
On Error GoTo weiter3
Dim BranchenSchlüssel As Integer
Sheets("KurseAktien").Activate
Assethandle = Cells(3, k * 2).Value
w = Len(Cells(8, k * 2 - 1).Value)
BloomBergKürzel = Left(Cells(8, k * 2 - 1).Value, (w - 7))
BranchenSchlüssel = Cells(4, k * 2).Value
Sheets("GewichtBeiDividende").Activate
Cells.Find(what:=Assethandle).Activate
TradeDatum = ActiveCell.Offset(0, 2).Value
DividendenWert = ActiveCell.Offset(0, 1).Value
Cells.Find(what:=Left(BloomBergKürzel, 3)).Activate
Gewicht = ActiveCell.Offset(0, 2).Value
Sheets("KurseAktien").Activate
Cells.Find(what:=TradeDatum, lookat:=xlWhole).Activate
ActiveCell.Offset(0, k * 2 - 1).Select
KursBeiDividende = ActiveCell.Value
ActiveCell.Value = ActiveCell.Value + DividendenWert
DividendenProzent = DividendenWert / KursBeiDividende
Sheets("KurseSektoren").Activate
Columns.Find(what:=TradeDatum).Activate
For y = 1 To ActiveSheet.Columns.Count
If Cells(6, y * 2).Value = BranchenSchlüssel Then
ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(0, 1).Value * (1 + (DividendenProzent * Gewicht))
GoTo weiter3
Else
ActiveCell.Offset(0, 2).Select
End If
Next y
weiter3:
Sheets("KurseAktien").Activate
End Sub
viele grüße
andreas
Anzeige