VBA Code beschleunigen/optimieren

Hallo
Ich habe eine Excel Tabelle mit ca. 1000 Zeilen und ca 40 Spalten.
Ich habe darin ein VBA-Scriot, welches mir aus den Datensätzen (Inhalte der Zellen einer Zeile) jeweils eine HTML-Datei schreibt.
Manchmal habe ich den Bedarf, dieses HTML-Schreiben für alle 1000 Datensätze/Zeilen auf einmal durchführen zu lassen.
Dafür habe ich folgendes Script:
Dim zeile As Long
zeile = 2
Do
If ActiveSheet.Cells(zeile, 3) = "" Then Exit Do
ActiveSheet.Cells(zeile, 3).Activate
Call Neuer_Artikel_Alle
zeile = zeile + 1
Loop
Wenn ich das ausführe, sehe ich, wie die Zeilen meiner Exeltabelle der Reihe nach (sehr schnell) nacheinander aktiv werden und das Script sozusagen von oben nach unten "durchflitzt".
Bitte entschuldigt, wenn ich das so komisch beschreibe, aber mir fällt nichts besseres ein, umd das zu beschreiben.
Meine Frage ist nun, ob es für diese komplette Ausführung mittels des obigen Scriptes überhaupt notwenig ist, dass das Script sozusagen für mich sichbar Zeile für Zeile der Excel-Tabelle abarbeitet (wenn auch sehr schnell).
Insgesamt dauert so ein Durchganh aber do ca. 30 Sekunden oder so.
Kann ich das noch irgendwie beschleunigen, so dass der Durchgang quasi sofort erfolg.
Hoffentlich konnte ich einigermaßen klarmachen, was ich eigentlich will :-)
Gruß
Ingo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Neuer_Artikel_Alle() Dim iT As Integer Dim iFile As Integer Dim iRow As Long Dim iAnz As Integer Dim i As Integer Dim petFile As String If bolAbbruch Then Exit Sub iFile = FreeFile iRow = ActiveCell.Row petFile = LCase(Range("BestNr").Cells(iRow)) & ".php" Open "D:\" & petFile For Output As iFile Print #iFile, "blablabla" Close iFile End Sub

Hallo Ingo,
wenn die Prozedur immer auf das aktive Arbeitsblatt angewendet wird, kannst du es so machen:


Dim zeile As Long, z as Range
zeile = 2
Do
If Cells(zeile, 3) = "" Then Exit Do
Neuer_Artikel_Alle zeile
zeile = zeile + 1
Loop

Und dann die Unterroutine:


Sub Neuer_Artikel_Alle(Optional iRow)
Dim iT As Integer
Dim iFile As Integer
Dim iAnz As Integer
Dim i As Integer
Dim petFile As String
If bolAbbruch Then Exit Sub
iFile = FreeFile
'Zeile nur ermitteln, wenn nicht als Argument mitgegeben:
If IsMissing(iRow) Then iRow = ActiveCell.Row
petFile = LCase(Range("BestNr").Cells(iRow)) & ".php"
Open "D:\" & petFile For Output As iFile
Print #iFile, "blablabla"
Close iFile
End Sub

Wobei ich diesen Ausdruck nicht ganz verstehe:
Range("BestNr").Cells(iRow)
Was kommt dabei raus?
Application.ScreenUpdating muss nur eingesetzt werden, wenn die Selektion von Zellen unvermeidbar ist.
Eine hilfreiche Abhandlung über Selektieren in VBA-Code findest du hier:
http://de.wikibooks.org/wiki/VBA_in_Excel/_Selektieren
Gruß Matthias

Sub Makro() Dim i As Long Dim arr Dim petFile As String arr = Range("BestNr").Value For i = 2 To UBound(arr, 1) If arr(i, 1) "" Then petFile = LCase(arr(i, 1)) & ".php" Open "D:\" & petFile For Output As iFile Print #iFile, "blablabla" Close iFile End If Next End Sub

Beliebteste Forumthreads (12 Monate)

VBA Code beschleunigen/optimieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

4 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Code beschleunigen/optimieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

4 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread