Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Zeit Ablauf Fenster öffnen | Herbers Excel-Forum

• Zeit Ablauf Fenster öffnen von Kramer vom 27.01.2010 13:07:33
• AW: Zeit Ablauf Fenster öffnen - von Rudi Maintaire am 27.01.2010 13:45:31
  • AW: Zeit Ablauf Fenster öffnen - von Kramer am 27.01.2010 18:12:22

Betrifft: Zeit Ablauf Fenster öffnen von: Kramer
Geschrieben am: 27.01.2010 13:07:33

Hallo zusammen,
habe ein für mich nicht zu bewältigendes Problem.
Ich würde gerne bei einer Uhrzeit eingabe nach 30 min ein Fenster mit abfragen öffnen.
ein Bekannter hat mir schon so was in die Richtung gebaut, leider funktioniert das nur wenn ich den Befehl Makro Ausführen betätige.

Das steht unter Modul 1

Function info()
  erinnerung.Show
End Function

Sub UhrzeitTesten()
  Dim meldezeit As Date, jetzt As Date
  
  If Range("b9").Value = "" Then Exit Sub
  
  On Error Resume Next
  meldezeit = Range("b9").Value
  If Err.Number <> 0 Then
    On Error GoTo 0
    MsgBox "Zelle b9 enthält keine korrekte Zeitangabe."
    Exit Sub
  End If
  On Error GoTo 0
  
  jetzt = Format(Now(), "hh:mm")
  If jetzt >= meldezeit Then
    MsgBox "Meldezeit in der Vergangenheit"
    Exit Sub
  End If
  
  Application.OnTime meldezeit, "info"
End Sub

Wenn jemand die Datei haben will gerne.

Jetzt schon vielen Dank.

Gruß Sven

Betrifft: AW: Zeit Ablauf Fenster öffnen von: Rudi Maintaire
Geschrieben am: 27.01.2010 13:45:31

Hallo,
im Code der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$9" Then
    If IsNumeric(Target) And InStr(Target.Text, ":") > 0 Then
      Application.OnTime Target, "UFZeigen", , True
    End If
  End If
End Sub

In ein Modul:

Sub UFZeigen()
  AppActivate Application.Caption
  UserForm1.Show
End Sub

Gruß
Rudi

Betrifft: AW: Zeit Ablauf Fenster öffnen von: Kramer
Geschrieben am: 27.01.2010 18:12:22

Hallo Rudi,

vielen Dank für die schnelle Antwort.
Leider Funktioniert das nicht.
In Tabelle 1 habe ich den Text mit Private Sub, in Modul 1 den text mit Ufzeigen.
sollte doch richtig sein, oder?

Gruß Sven

Beiträge aus den Excel-Beispielen zum Thema "Zeit Ablauf Fenster öffnen"