Brauche Hilfe bei Makro

Sub Symbolchange() Dim i As Long For i = Cells(1, 12).Value To Cells(3, 13).Value If Cells(2, 1).Value <> "Retrieving..." Then Cells(3, 1).Value = Cells(i, 14).Value End If 'Call TextExport Hier würde dann der Export eingebaut werden Next i End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Symbolchange() Dim i As Long For i = Cells(1, 12).Value To Cells(3, 13).Value Do While Cells(2, 1) <> "Retrieving..." DoEvents Loop Cells(3, 1).Value = Cells(i, 14).Value 'Call TextExport Hier würde dann der Export eingebaut werden Next i End Sub

Hallo Daniel,
das Problem ist die Systematik: Du fragst in der For-Schleife ab, ob in Zelle A2 der Wert "Retrieving..." steht. Falls nicht, soll das Makro den nächsten Wert aus Spalte N in die Zelle A3 packen. Das Problem ist jetzt aber, dass sobald der erste Wert geladen wird, ja "Retrieving..." in Zelle A2 steht. Das Makro läuft dann aber gnadenlos weiter und scheitert für alle folgenden i (also Werte für i) an der IF-Abfrage und führt dann nur den Call aus. Du müsstest also schon noch versuchen, entweder über einen Loop zu arbeiten oder eine Wartezeit mit zu berücksichtigen.
Ich würde mal folgenden Aufbau testen:


Sub Symbolchange()
Dim lngCount as Long,l ngStart As Long, lngStop as Long
lngStart = Cells(1, 12).Value
lngStop = Cells(3, 13).Value
Do until lngCount > lngStop
If Cells(2, 1).Value <> "Retrieving..." Then
Cells(3, 1).Value = Cells(lngCount, 14).Value
lngCount = lngCount + 1
'Call TextExport Hier würde dann der Export eingebaut werden
End If
Loop
End Sub

Ich selbst konnte es jetzt aus Zeitgründen nicht probieren, kann also keine Gewähr übernehmen. Sollte er mit einem Fehler in der Schleife festhängen, also quasi eine Endlosschleife produzieren, versuche diese mit der ESC-Taste abzubrechen. Zu Testzwecken würde ich für lngStart und lngStop nicht zu hohe Werte nehmen.
Ich hoffe, es hilft Dir weiter.
Viele Grüße
Henry

Hmm, ich hätte jetzt auch mal auf das DoEvents getippt.
Es gibt noch die Möglichkeit, eine Wartezeit einzubauen. Die unterbricht aber normalerweise alle Excel-Aktivitäten mit Ausnahme der Hintergrundprozesse. Jetzt bin ich kein DDE-Experte und weiß nicht, ob der als Hintergrundprozess gilt.
Du könntest aber versuchen hinter das End If folgende Zeile einzubauen und anzupassen:
Application.Wait(Now + TimeValue("0:00:01"))
Dieser Code lässt die Anwendung eine Sekunde warten. Wenn Du erfahrungsgemäß weißt, dass die DDE-Übertragung länger dauert, kannst Du die Zeit ja entsprechend anpassen.
Sollte das auch nicht gehen, müsste man wahrscheinlich die DDE-Prozesse direkt abfragen und nicht so von hinten durch die Brust ins Auge über den Zellwert. Wie das geht, weiß ich allerdings nicht. Vielleicht kann da ja jemand anderes helfen. Gegebenenfalls solltest Du das Problem dann noch mal mit einem konkreteren Titel posten. Zum Beispiel "Problem mit Makro zur Stapelverarbeitung von DDE-Prozessen" oder so ähnlich.
Grüße
Henry

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread