Herbers Excel-Forum - das Archiv

zählwerk in userform

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

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
Bild

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
Bild

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
Bild

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
Bild

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
Bild

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 :-)
Bild
Excel-Beispiele zum Thema " zählwerk in userform"
Diagramm in Userform XL-Dateien in UserForm listen
UserForm an Excel-Fenster anpassen Fundstellen in UserForm listen
Module und UserForms austauschen In einer Schleife auf Elemente einer UserForm zugreifen
Werte in eine ComboBox einer UserForm übernehmen Zellinhalt als Label-Aufschrift in UserForm
Alle CheckBoxes einer UserForm ansprechen Wenn kein Eintrag, UserForm nicht schließen