Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1080to1084
1080to1084
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eingabe bei Application.Wait Now

Forumthread: Eingabe bei Application.Wait Now

Eingabe bei Application.Wait Now
18.06.2009 21:20:07
gisela

Hallo,
ich soll einen Testbogen erstellen, in dem die Nutzer in einem bestimmten Zeitraum Optionsfelder anklicken sollen. Nach einer bestimmten Zeit soll die Tabelle automatisch geschlossen werden. Während "Application.Wait Now" läuft ist aber keine Eingabe in den Optionsfeldern möglich.
Kann mir da jemand bitte weiterhelfen.

Sub StartSeite10()
Application.Wait Now + TimeValue("00:01:00")
Sheets("seite10").Visible = False
Sheets("seite11").Select
Range("A2").Select
End Sub


Vielen Dank und liebe Grüße
Gisela

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingabe bei Application.Wait Now
18.06.2009 21:22:51
Hajo_Zi
hallo Gisela,
benutze onTime

AW: Eingabe bei Application.Wait Now
18.06.2009 21:26:58
Josef
Hallo Gisela,
das geht zB. so. (achte darauf, welcher Code wohin gehört!)
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  StopTimer
End Sub

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public RunWhen As Double
Public Const cRunIntervalSeconds = 10 ' Intervall in Sekunden - Anpassen
Public Const cRunWhat = "CloseWB"

Sub StartTimer()
  RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
  Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
    schedule:=True
End Sub

Sub CloseWB()
  
  MsgBox "Das war's!" 'hier statt der MsgBox
  'ThisWorkbook.Close True
  
End Sub

Sub StopTimer()
  On Error Resume Next
  Application.OnTime earliesttime:=RunWhen, _
    procedure:=cRunWhat, schedule:=False
End Sub

Gruß Sepp

Anzeige
AW: Herzlichen Dank,funktioniert, o.T.
18.06.2009 21:54:39
gisela
o.T
;

Forumthreads zu verwandten Themen

Eingabe formatiert zurückgeben (Komma und Punkt)
Lemmi

Hallo zusammen,
ich möchte Euch eine wahrscheinlich einfache Frage stellen, die ich mir gerade mal nicht beantworten kann!
Wie stelle ich sicher das auch wenn ein Punkt als Trennzeichen eingegeben worden ist, am Ende immer ein Komma in der Zelle steht?
Eingabe 10,0........Ausgabe...
07.08.2008 21:35:00
Thread-ID: 1000105
5 Beiträge
Anzeige
Dateneingabe per Userform
Charlie33

Hallo zusammen.
Habe eine Exceltabelle mit 7 Spalten (Name, Vorname, Geburtsdatum, etc.).
Des weiteren befinden sich hier 4 Buttons (Neueingabe, Suchen, Ändern, Löschen).
Die Neueingabe, die Änderung und das Löschen sollen mittels Userform erfolgen.
Eine Userform und die Buttons...
11.08.2008 15:15:46
Thread-ID: 1000884
4 Beiträge
Formatierung mit Makro läuft nur bei Eingabe
Ulrich

Hallo zusammen,
ich möchte Zellen einfärben, wenn in einer anderen Zelle der Wert "1" steht, und bei "0" wieder weiß - deswegen mit unten stehendem Makro im Tabellenblatt.
Das Problem ist, dass die Werte (0 und 1) per Formel erzeugt werden, und das Makro nur funktioniert, wenn ich tatsä...
14.08.2008 11:34:00
Thread-ID: 1001783
8 Beiträge
Anzeige
VBA zur Dateneingabe über mehrere Blätter
Eddie

Hallo @ all,
ich suche ein kleines Makro, womit man in allen Tabellenblättern, außer ein Paar vorher defnierten einen bestimmten Wert in eine bestimmt Zelle reinkopiert...
Vielleicht geht sowas mit Comboboxen ? .. aber auch ein Makro, wo man die TB die nicht dafür verwendet werden solle...
18.08.2008 14:44:00
Thread-ID: 1002607
3 Beiträge
Anzeige
Zellen/Eingabe während Berechnung sperren
Koeffi

Hallo liebe Leute,
ich habe folgendes Problem.
In meinen Sheet werden nach der Auswahl mit einer Combo-Box eine Reihe Berechnungen (SVERWEISE) ausgeführt. Leider werden diese Unterbrechungen unterbrochen, wenn man mit der Maus klickt, oder auf der Tastatur eine Eingabe macht.
Ich wü...
20.08.2008 18:37:26
Thread-ID: 1003277
4 Beiträge
Makro erst nach Eingabe weiterverarbeiten
Lars

Hallo,
ich habe in Tabellenblatt A eine CheckBox, bei der man aufgefordert werden soll, etwas in Tabelle B zu ergänzen. Nach der Eingabe soll man in Tabelle A fortfahren.
Leider erfolgt zwar der Sprung auf Blatt B, aber es geht unmittelbar zurück auf A. Wie kann ich diese Unterbrechung...
25.08.2008 17:14:27
Thread-ID: 1004514
3 Beiträge
Umwandlung text nach zahlen bei Formulareingabe
Dieter

Hallo miteinander,
ich habe ein Problem mit der umwandlung von Text nach Zahlen. In meinem Formular habe ich Textfelder definiert, in dem eigentlich nur Zahlen eingetragen werden. Nun sollen diesen Werte in einer Zelle abspeichern und weitere Berechnung durchführen, leider werden diese Zahl...
26.08.2008 19:48:34
Thread-ID: 1004910
4 Beiträge
Eingabemaske - Zellen sind "verstreut".
Martin

Hallo zusammen!
Habe eine Kalkulationsvorlage, bei der die Eingabefelder auf dem gesamten Blatt "verteilt" sind.
Ich möchte gerne die Eingabe benutzerfreundlicher machen und diese über ein Formular/Maske
eingeben lassen.
Über die Eingabemaske hab ich es schon versucht; Mehrfac...
28.08.2008 11:59:00
Thread-ID: 1005373
2 Beiträge
Eingabemaske programmieren? Gibts das schon?
TommiH

Hallöchen,
ich habe eine Frage und zwar möchte ich mir eine Eingabemaske programmieren, die folgenden Kriterien entspricht.
- Ca. 40 Eingabefelder auf dem Bildschirm
- Jedes ca. 10-12 Zeichen lang
- Eingabezeichen sollen Zahlen und Buchstaben sein (evtl. mit Kontrolle)
- Wen...
03.09.2008 15:45:12
Thread-ID: 1007131
6 Beiträge
Eingaben aus Tabellen mit Userform befüllen
Peter

Hallo wertes Forum
ich habe da mal wieder etwas und komme nicht so richtig weiter.
Ich habe eine Tabelle
In Spalten Namen und in Zeilen Datum
Nun möchte ich gern das ganze mit Userform befüllen
also eine combobox, die mir das Datum zurürck gibt und eine die Mir die Namen a...
06.09.2008 11:42:00
Thread-ID: 1007825
4 Beiträge
Eingabe in CboBox übergangen
Ernst

Hallo
Da wird in einer CboBox eine Eingabe gefordert und einige von den Usern übergehen diese Eingabe obwohl sie logisch und erforderlich ist.
Es geht um diese Code:
Sheets("DatStd").Activate
g = ActiveSheet.UsedRange.Rows.Count
With UserForm5.CboBoxStd
.RowSource...
08.09.2008 20:12:00
Thread-ID: 1008246
5 Beiträge
Werteingabe
Marcus

Hallo,
ich habe eine EXcellaufstellung über verschiedene Füllhöhen gemäß Anlage. Hier möchte ich jetzt bei meiner Auswertung in meinem Wertefenster eine Füllhöhe in cm eingeben, die Excelldatei soll mir dann automatisch das Ergebnis in l liefern. Ich möchte also nicht mehr nachschauen, wel...
09.09.2008 10:43:00
Thread-ID: 1008364
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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