Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

5 sek rückwärts zählen in MSG Box

5 sek rückwärts zählen in MSG Box
14.08.2003 12:26:41
Helge
Hallo Leute´;
Welche befehl muss ich in die Userform einbringen das 5 sek. rückwärtsgezählt werden!
Helge
Danke für eure Anwort

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 5 sek rückwärts zählen in MSG Box
14.08.2003 12:52:55
Stephan
Hi Helge!
Versuch es mal damit
Private Sub CommandButton1_Click()
Dim start, anzeige
start = Timer
Do While Timer < start + 5
anzeige = Timer - start
anzeige = 5 - Application.WorksheetFunction.Round(anzeige, 0)
UserForm1.Caption = "noch " & anzeige & " Sek."
Loop

AW: 5 sek rückwärts zählen in MSG Box
14.08.2003 12:55:52
ChrisL
Hi Helge
Option Explicit

Private Sub CommandButton1_Click()
Load UserForm1
UserForm1.Show
End Sub

Option Explicit

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub



Private Sub UserForm_Initialize()
Label1 = 5
Application.OnTime Now + TimeValue("00:00:01"), "UpdateClock"
End Sub

Option Explicit
Sub UpdateClock()
With UserForm1
If .Label1 > 1 Then
.Label1 = .Label1 - 1
Application.OnTime Now + TimeValue("00:00:01"), "UpdateClock"
Else
.Label1 = "ENDE"
End If
End With
End Sub

Gruss
Chris

Anzeige
AW: 5 sek rückwärts zählen in MSG Box
14.08.2003 13:08:15
ChrisL
Hi Willie
Noch ein kleiner Tipp... UF immer mit Load/Unload Oeffnen und Schliessen, dann funktioniert es auch beim zweiten mal ;-)
Gruss
Chris

$(:-O) akteptiert
14.08.2003 13:23:49
Willie
$(:-O) akteptiert ... War nur auf die Schnelle Gelobe Besserung!
Willie

danke
14.08.2003 13:30:39
Willi
danke alle!

90 Forumthreads zu ähnlichen Themen

Datum aus Tag, Jahr, KW auslesen
Stephan

Gibt es eine Möglichkeit das Datum auszulesen aus:
Mo = Montag
Jahr=2008
KW=1
Besten Dank
Stephan
16.08.2008 22:23:00
Thread-ID: 1002369
7 Beiträge
Anzeige
KW in Datum
ToMa

Hallo Leute!
Ich habe ein kleines Problem.
in Zelle A1 ist das Jahr (zB: 2008),
in Zelle A2 ist die Kw (zB: 28)
in Zelle C1 möchte ich Datum von Mittwoch dieser (zB: 28) Woche.
in Zelle C2 möchte ich Datum von Freitag dieser (zB: 28) Woche.
mit diese Formeln bekomme ich...
07.10.2008 20:13:00
Thread-ID: 1014809
4 Beiträge
Suche rückwärts nach Wert wenn Bedingung erfuellt
Horst

Hey !
Ich schreibe suchmakros.
Mir find("suchwert") kann ich nache einem bestimmten Inhalt einen Zelle suchen...
O.K.
jetzt möchte ich nach einem Wert in einer zelle suchen der eine bestimmte Bedingung erfüllt.
Zum Bespiel möchte ich nach einem Datum in einer suchen...
...
13.01.2009 07:45:09
Thread-ID: 1039076
5 Beiträge
Anzeige
Was ist dass Es erscheinen merkwürdige Makros ???
juergen

Hallo liebe Excel Gemeinde
Bei mir passiert etwas sehr mekwürdiges.Und zwar
Öffne ich Excel mit leerem Blatt und gehe dann in die VBA Umgebung ist alles sauber.
Öffne Ich die Exceldatei von Hajo.Ziplies "nur_mit_aktivierten_makros_zeit_loeschen.xls"
Und gehe dann auf Makros...
30.03.2009 19:21:05
Thread-ID: 1065401
8 Beiträge
KW und Tag in Datum ausgeben!
lisa

Hallo
Ich habe hier einen Hänger und komme nicht weiter!
In meiner Zelle A1 steht das Datum 01.01.2009 und in B2 die Formel =KÜRZEN((A1-DATUM(JAHR(A1+3-REST(A1-2;7));1;REST(A1-2;7)-9))/7) und somit eine 1 für die KW1!
Jetzt habe ich in A2 152 stehen, was bedeuten soll, KW15 Tag 2!...
10.06.2009 13:32:56
Thread-ID: 1080458
6 Beiträge
Datum aus Kalenderwoche
Matthias V.

Hallo zusammen,ich weiß, dass das Thema schon häufiger vorkam, und ich habe auch schon das Archiv befragt.
Es ist nur so, dass ich mit den gegebenen Funktionen nicht ganz zurecht komme, ich sie nicht auf meinen Fall anpassen kann.Ich ermittele nun mit:Sub kw()Dim kw As Integerkw = DatePart("...
16.05.2002 16:31:23
Thread-ID: 121427
6 Beiträge
Datum richtig ausgeben in VBA
Stefan

Guten Morgen,
ich habe ein kleines Problem.
Der folgende Befehl .Cells(iCntRows, 28) = Left(.Cells(iCntRows, 8), 10) liefert das Datum zurück, allerdings nicht so, dass ich damit als Datum weiterarbeiten können. Excel denkt, es sei ein textformatiertes Feld.
Wie kann ich daraus ein...
19.10.2011 08:51:55
Thread-ID: 1234448
4 Beiträge
Datum aus Wochentag und KW berechnen
Dietmar

Guten Abend zusammen,
ich tüftele an einer Formel, die mir das Datum der aktuellen Kalenderwoche berechnen soll, wenn der Wochentag in einer Zahlenkette angegeben ist; komme aber nicht drauf.
Also gegeben ist:
A1 = 0223414 (Zahlenkette; relevant ist die zweite Ziffer von rechts, hie...
02.10.2012 21:40:36
Thread-ID: 1280305
8 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
6
3
4
2
7
5
5
3
7
12
4
2
2
2
12
7
12
9
7
3
7
4
2
47