Microsoft Excel

Herbers Excel/VBA-Archiv

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

Zeit Ablauf Fenster öffnen | Herbers Excel-Forum


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"