wahrscheinlich im falschen forum eröffnet, drum hier dann richtig nochmal:

habe folgendes Problem

Ich habe ein Makro geschrieben, was dynamisch die Grenzen eines Bereiches ermittelt und diesen dann automatisch befüllen soll

Im Einzelschrittt Debug Modus funktioniert das ganze perfekt von Anfang bis zum Ende

lasse ich allerdings den Code normal laufen, dauert zwar die Berechnung ziemlich lange, allerdings enthält das Tabellenblatt keine eingefügten Werte

Woran kann das liegen?

Hier der Auszug vom Code:


On Error Resume Next
While nRowKurse < KURSE_BESTAND_SCHICHT_LAST
If Tabelle8.Cells(nRowKurse, nColKurse).Value <> "" Then
Application.StatusBar = "Formeln erweitern: " & nRowKurse & " / " & nColKurse

'rechte Begrenzung suchen
Set fNVSpaceRight = Tabelle8.Cells.Find(What:="", After:=Tabelle8.Cells(nRowKurse + 6, nColKurse), LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

'letzte Zelle der ISIN-Reihe suchen
Set fNVSpaceDown = Tabelle8.Cells.Find(What:="", After:=Tabelle8.Cells(nRowKurse + 5, nColKurse), LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

' automatisches befüllen des Bereiches

Tabelle8.Range(Cells(nRowKurse + 6, nColKurse + 2), Cells(nRowKurse + 6, fNVSpaceRight.Column - 1)).AutoFill _
Destination:=Range(Cells(nRowKurse + 6, nColKurse + 2), Cells(fNVSpaceDown.Row - 1, fNVSpaceRight.Column - 1))
nColKurse = fNVSpaceRight.Column
Calculate
End If
nColKurse = nColKurse + 1

If nColKurse > 250 Then
nColKurse = KURSE_BESTAND_FIRST_Col
nRowKurse = nRowKurse + KURSE_BESTAND_SCHICHT
End If
Wend

^{*Threadedit* 09:04:23
Admininfo: bitte vermeide Mehrfachanfragen in verschiedenen, bzw. gleichen Gruppen.
Die Datenbank und User werden es dir danken. Siehe FAQ 2.}