Wert aus Makro während der Laufzeit an Form übergeben

09/04/2008 - 22:55 von Ronan Habsch | Report spam
Ich habe ein Tabellenblatt mit ca. 300 Datensàtzen IP Adressen und
sonstigen Daten.
Mein Skript geht nun Satz für Satz durch und setzt einen Ping ab. Das
Ergebnis wird dann im jeweiligen Datensatz eingetragen (Antwortzeit
usw.).
Bis alle Sàtze durch sind dauert das natürlich, weil alleine schon der
Ping Zeit frisst.
Ich habe zwar schon die Möglichkeit gefunden einfach einen
Pseudobalken einzublenden, der von links anch rechts làuft, aber das
finde ich nicht ganz so doll.
Ich hàtte gerne ein Form, das sagt: "Ping làuft aktueller Datensatz:"
XX XX soll alle 10 datensàtze refresht werden.
Dazu habe ich im Skript eine Variable ZL, die alle 10 Zeilen
aktualisiert wird. Gleichzeitig wird ein Form.repaint durchgeführt.
Das Form àndert sich aber nicht.
Ich habe das form so gestaltet dass beim Userform_initialize die Zeile
Me.Zeilenzahl=ZL.
Was mache ich falsch?
 

Lesen sie die antworten

#1 Reiner Wolff
09/04/2008 - 23:33 | Warnen spam
Moin Ronan,

*Ronan Habsch* schrieb:
Ich habe ein Tabellenblatt mit ca. 300 Datensàtzen IP Adressen und
sonstigen Daten.
Mein Skript geht nun Satz für Satz durch und setzt einen Ping ab. Das
Ergebnis wird dann im jeweiligen Datensatz eingetragen (Antwortzeit
usw.).
Bis alle Sàtze durch sind dauert das natürlich, weil alleine schon der
Ping Zeit frisst.
Ich habe zwar schon die Möglichkeit gefunden einfach einen
Pseudobalken einzublenden, der von links anch rechts làuft, aber das
finde ich nicht ganz so doll.
Ich hàtte gerne ein Form, das sagt: "Ping làuft aktueller Datensatz:"
XX XX soll alle 10 datensàtze refresht werden.
Dazu habe ich im Skript eine Variable ZL, die alle 10 Zeilen
aktualisiert wird. Gleichzeitig wird ein Form.repaint durchgeführt.
Das Form àndert sich aber nicht.
Ich habe das form so gestaltet dass beim Userform_initialize die Zeile
Me.Zeilenzahl=ZL.
Was mache ich falsch?



Du müsstest beim Durchlauf der Ping-Schleife den Inhalt des Formularfeldes
aktualisieren:
For Ping = 1 To 3000
FormName.Zeilenzahl = ZL
FormName.RePaint
Next Ping

Oder so àhnlich.

Gruß aus Kiel
Reiner
Wenn ein Programmierer sagt "kein Problem", dann hast Du eines.

Ähnliche fragen