Herbers Excel-Forum - das Archiv
zählwerk in userform
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
- zählwerk in userform von Peter vom 29.11.2003 17:03:51
- AW: zählwerk in userform - von Michael am 29.11.2003 17:05:59
- AW: zählwerk in userform - von Peter Malze am 29.11.2003 17:42:27
- AW: zählwerk in userform - von Michael am 29.11.2003 17:52:09
- AW: zählwerk in userform - von Michael am 29.11.2003 17:52:09
- AW: zählwerk in userform - von Peter Malze am 29.11.2003 17:42:27
- AW: zählwerk in userform - von K.Rola am 29.11.2003 17:51:04
- AW: zählwerk in userform - von Peter Malze am 29.11.2003 18:13:56
- AW: zählwerk in userform - von Michael am 29.11.2003 17:05:59
 |
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 :-)
| |