Supportnet / Forum / Skripte(PHP,ASP,Perl...)
VBA Problem mit AutoFill
Frage
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
[*][sup][i]
*Threadedit* 09:04:23
Admininfo: bitte vermeide Mehrfachanfragen in verschiedenen, bzw. gleichen Gruppen.
Die Datenbank und User werden es dir danken. Siehe [u][url=https://supportnet.de/faqsthread/840]FAQ 2.[/url][/u][/i][/sup]
Antwort 1 von nighty
hi namenloser :-)
anrede und gruss scheint fuer dich ein fremdwort zu sein,genauso sollte resume next fuer jeden programmierer ein fremdwort sein,eher sinnvoll ist das resume next nun nicht,generell heisst es fehlervermeidung wie fehlerkorrigierung,lass es mal weg das resume next dann kannst du das makro auch vernuenftig korrigieren.
gruss nighty
anrede und gruss scheint fuer dich ein fremdwort zu sein,genauso sollte resume next fuer jeden programmierer ein fremdwort sein,eher sinnvoll ist das resume next nun nicht,generell heisst es fehlervermeidung wie fehlerkorrigierung,lass es mal weg das resume next dann kannst du das makro auch vernuenftig korrigieren.
gruss nighty
Antwort 2 von MarcRenton
Hi!
danke für die antwort
sry für die fehlende grusszeile - war leider ziemlich im stress - im eigentlichen post war si auch enthalten, aber hatte zuvor in den falschen ordner gepostet und hier nochmal eröffnet.
werd die änderung mal testen, hoff es funktioniert dann wie gewünscht
in diesem sinne
Gruß Wolfgang
danke für die antwort
sry für die fehlende grusszeile - war leider ziemlich im stress - im eigentlichen post war si auch enthalten, aber hatte zuvor in den falschen ordner gepostet und hier nochmal eröffnet.
werd die änderung mal testen, hoff es funktioniert dann wie gewünscht
in diesem sinne
Gruß Wolfgang