Herbers Excel-Forum - das Archiv
zählwerk in userform
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: zählwerk in userform
von: Peter
Geschrieben am: 29.11.2003 17:03:51
hallo vba freunde,
ich möchte gerne während eine liste mit meinem makro durchsucht wird einen
zähler mitlaufen lassen der in der userform angezeigt wird und auch mitläuft.
jetzt ist das so das nur nach ablauf des makros die summe angezeigt wird.
obwohl ich nach jedem durchlaufen immer weiter addiert haben.
Auszug:
Private Sub CommandButton4_ausführen_Click()
Dim Zähler as integer
Range("A1").Select
do
Zähler = Zähler + 1
ActiveCellOffset(1, 0).select
loop until Zähler = 5000
userform1.Textbox1.Value = Zähler
End Sub
kann mir einer helfen, was muss ich anders machen ?
danke im voraus
Betrifft: AW: zählwerk in userform
von: Michael
Geschrieben am: 29.11.2003 17:05:59
hi,
wenn du zuweisung
userform1.Textbox1.Value = Zähler
auch in die schleife packst
wird es auch funktionieren ;-)
cu Michael
Betrifft: AW: zählwerk in userform
von: Peter Malze
Geschrieben am: 29.11.2003 17:42:27
hi Michael,
klappt nicht richtig, nur wenn ich mit F8 die schleife langsam laufen lasse ?!?
gruß peter
Betrifft: AW: zählwerk in userform
von: Michael
Geschrieben am: 29.11.2003 17:52:09
hi
meckert das ding ? wenn ja wo ?
oder kannst du nur nicht so schnell gucken wie er zählt ?
cu Michael
Betrifft: AW: zählwerk in userform
von: K.Rola
Geschrieben am: 29.11.2003 17:51:04
Hallo,
Option Explicit
Dim stopp As Boolean
Private Sub CommandButton1_Click()
If stopp Then Exit Sub
Dim Zähler As Integer
stopp = True
Range("A1").Select
Do
Zähler = Zähler + 1
ActiveCell.Offset(1, 0).Select
TextBox1 = Zähler
DoEvents
Loop Until Zähler = 5000
stopp = False
End Sub
Gruß K.Rola
Betrifft: AW: zählwerk in userform
von: Peter Malze
Geschrieben am: 29.11.2003 18:13:56
danke K.Rola
hat geklappt, der entscheidende hinweis war wohl die funktion DoEvents !!
gruß peter :-)