Office: MsgBox wenn in Zeitintervall kein "x"

Helfe beim Thema MsgBox wenn in Zeitintervall kein "x" in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, bei einer Herausforderung komme ich einfach nicht weiter und brauche Hilfe! Ich möchte, das eine MsgBox erscheint, wenn im aktuellen... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von jexelo, 5. November 2020.

  1. MsgBox wenn in Zeitintervall kein "x"


    Hallo zusammen,

    bei einer Herausforderung komme ich einfach nicht weiter und brauche Hilfe!

    Ich möchte, das eine MsgBox erscheint, wenn im aktuellen Zeitintervall (ein Zeitintervall wäre 30 Min - 07:00 - 07:30 usw.) in der nebenstehenden Zelle kein "x" eingetragen ist.
    Dabei beginnt in meinem Fall das erste Intervall in A5 (07:00) dann A6 (07:30), A7 (08:00 und das fortlaufend bis A36 (22:30).
    In der rechts fortlaufenden Reihe soll in den Spalten B, C & D nach einen "x" gesucht werden und sollte kein "x" hinterlegt sein, die MsgBox erscheinen.

    Beispiele:

    Es ist jetzt 07:23h.
    In A5 mit dem Intervall 07:00h sind in Reihe B5,C5 & D5 ein "x", also sollte keine MsgBox erscheinen

    Es ist jetzt 07:32h.
    In A6 mit dem Intervall 07:30h sind in Reihe B6,C6 & D6 kein Eintrag und somit auch kein "x", es soll eine MsgBox erscheinen

    Es ist jetzt 08:12h.
    In A7 mit dem Intervall 08:00h ist in Reihe B7 ein "x", in Zeile C7 & D7 in kein Eintrag, es soll eine MsgBox erscheinen

    usw.

    Weiteres Kriterium, wird im einem Intervall kein "x" gefunden, soll nur 1x die MsgBox erscheinen und nicht nach Bestätigung im Loop immer wieder erscheinen, bis wieder ein Intervall mit einen "x" durchlaufen ist.

    07:00 x x x
    07:30
    08:00 x

    Ich hoffe es ist verständlich, was ich möchte.

    Danke jetzt bereits für Eure Bemühungen.

    :)
     
  2. Hallo,
    Das kann ich für mich nicht bestätigen.

    Weil
    Wenn ich Deine Definition richtig verstanden habe, trifft hier das Intervall 7:30 bis 8:00 zu.
    Dann kann man doch erst um 8.00 sicher feststellen, ob für diesen Zeitraum keine Eingabe erfolgte.
     
    aloys78, 7. November 2020
    #2
  3. Hallo,
    In meinem Beispiel sollte zwischen 07:00 und 07:30 Uhrzeit keine MsgBox erscheinen, da ein "x" in Reihe B5,C5 & D5 hinterlegt ist.

    Im Intervall 07:30 - 08:00 Uhrzeit ist in keiner Reihe (B6,C6 & D6) ein "x", also sollte um 07:31h IST Uhrzeit eine MsgBox erscheinen.

    Dabei wäre wichtig, das die MsgBox nur einmal erscheint und nicht mit jeder Bestätigung immer wieder bis das nächste Intervall und Uhrzeit mit einem "x" in den dazugehörigen Spalten.
     
  4. MsgBox wenn in Zeitintervall kein "x"

    Hallo,

    wie heisst es in Deinem 1. Beitrag so schön?
    Dazu habe ich mit einer Bemerkung geantwortet, auf die Du bisher nicht eingegangen bist.

    Wenn Du Hilfe erwartest, dann solltest Du vielleicht mal das "Betriebsgeheimnis" lüften und erläutern:
    - wann erfolgen für ein Zeitintervall durch wen die Eintragungen?
    - was soll der Auslöser für die Überprüfung sein?
     
    aloys78, 7. November 2020
    #4
  5. Zum besseren Verständnis habe ich eine Excel mit einem Beispiel beigefügt.
    Der Kommentar in (B5) gibt dazu weiteren Aufschluss was ich möchte.
     
  6. Hallo,
    Die trägt wirklich zum besseren Verständnis bei.

    Wenn je Zeitraum bei Bedarf nur einmal die Msgbox erscheinen soll, dann könnte man zur Prüfung immer die erste Minute eines Zeitraumes nutzen, zB
    16:01 und 16:31. Entspricht das Deiner Vorstellung?
     
    aloys78, 8. November 2020
    #6
  7. Hallo Aloys,

    ja das wäre genau das, was ich mir vorstelle. Ich finde da aber gar keinen Ansatz wie ich da vorgehen soll. Dafür sind meine VBA Kenntnisse einfach nicht ausreichend

    LG Steven
     
  8. MsgBox wenn in Zeitintervall kein "x"

    Moin
    Aloys hatte schon mal angefragt:
    Hier mal als Makro. Das Makro kann zu jeder Zeit gestartet werden.
    Code:
    gruss hary
     
  9. Hallo Hary,

    der Auslöser soll sein, ist es z.B. 15:01 und im den Spalten B,C und D zu desem Intervall ist kein "x", soll die MsgBox erscheinen. Ist aber ein "x" vorhanden keine MsgBox. Ein Intervall geht immer 30 Min und die Kontrolle soll immer 1 Min nach Anbruch des Intervalls einmalig ausgelöst werden.

    Also Auslöser soll die Uhrzeit sein immer um 1 Min nach Intervallanfang.

    Das Sheet in der das alles erfolgt heißt "Abrechnung"
     
  10. Hallo Steven,

    anbei mal einen Lösungsvorschlag.
    Bei der Besonderheit Deiner Anwendung ist das Testen ziemlich aufwendig, deswegen kann ich für die Fehlerfreiheit nicht garantieren.

    Statt einer MsgBox könnte mann ggf einen Sound abspielen.
     
  11. Hallo Aloys,

    erstmal möchte ich mich ganz herzlich für Deine Mühen bedanken. Ich weiß das wirklich sehr zu schätzen.

    Leider erhalte ich immer einen Laufzeitfehler 1004.

    Was habe ich gemacht.

    Das habe ich unter "DieseArbeitsmappe" meiner originalen Excel gemacht

    Option Explicit

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    pswT = False
    pZeit = Now
    pIncr = 1
    On Error Resume Next
    TimeCounterStart
    End Sub

    Private Sub Workbook_Open()
    pswT = True
    pIncr = 30
    ' beim Open Startzeit festlegen
    If Hour(Now) < 7 Or Hour(Now) > 23 Then
    pZeit = TimeSerial(7, 1, 0)
    ElseIf Minute(Now) = (pIncr + 1) Then
    pRow = (Hour(pZeit) - 7) * 2 + 5 + 1 ' Zeilen# halbe Stunde
    Else
    pRow = (Hour(pZeit) - 7) * 2 + 5 ' Zeilen# volle Stunde
    End If
    With ThisWorkbook.Worksheets("ABRECHNUNG")
    If .Range("B" & pRow) = "" And .Range("C" & pRow) = "" And .Range("D" & pRow) = "" Then
    MsgBox "Keine Eintragung in Zeile " & pRow & " für Intervall " & " gefunden!", vbCritical
    End If
    End With

    If Minute(pZeit) < (pIncr + 1) Then
    pZeit = TimeSerial(Hour(Now), pIncr + 1, 0)
    Else
    pZeit = TimeSerial(Hour(Now) + 1, 1, 0)
    End If
    If Hour(pZeit) > 22 Then
    pswT = False
    End If
    TimeCounterStart
    End Sub
     
  12. Hallo Steven,
    Hast Du danach die Datei geschlossen und dann wieder geöffnet?

    Ansonsten einen Haltepunkt bei dieser Zeile setzen und prüfen, was in
    pZeit und pRow steht.
     
  13. MsgBox wenn in Zeitintervall kein "x"

    Hallo Aloys,

    ich muss immer die Intervalle abwarten und die letzten beiden haben hintereinander funktioniert.

    Ich halte Dich auf dem Laufenden. Du bist für mich ein Genie.

    Ich bin Dir so dankbar *Smilie
     
  14. Hallo Aloys,

    das Einzige was nicht geht

    MsgBox "Keine Eintragung in Zeile " & pRow & " für Intervall " & Format(.Cells(pRow, 1), "hh:mm") & " gefunden!", vbCritical

    "Sie" die Excel stört sich an dem "FORMAT" aber das ist nicht schlimm. Ich habe die zusätzliche Info um welches Intervall es sich handelt entfernt und es geht.

    MsgBox "Keine Eintragung" , vbCritical

    Nochmals ganz lieben Dank für Deine Mühen *Smilie
     
  15. Hallo Steven,

    vielen Dank für Deine Rückmeldung.
    Es freut mich, dass ich Dir bei diesem etwas kniffligem Problem helfen konnte.

    Den von Dir genannten Fehler mit der Format-Anweisungen kann ich nicht nachvollziehen; bei meiner Excel-Version läuft das problemlos. Aber Du kommst ja auch mit der verkürzten Meldung zurecht!

    Eine Bitte noch: schließe das Thema als erledigt ab.
     
Thema:

MsgBox wenn in Zeitintervall kein "x"

Die Seite wird geladen...
  1. MsgBox wenn in Zeitintervall kein "x" - Similar Threads - MsgBox Zeitintervall

  2. Userform mit MsGBox schließen

    in Microsoft Excel Hilfe
    Userform mit MsGBox schließen: Hallo zusammen, wie kann ich die UserForm1 schließen lassen, wenn ich bei der MsGBox mit okay bestätige? Bei meinem Code klappt es nicht. Private Sub CommandButton1_Click() Dim varFrage As...
  3. MsgBox nach bestimmter Zeit automatisch schließen

    in Microsoft Excel Hilfe
    MsgBox nach bestimmter Zeit automatisch schließen: Hallo ihr Lieben, der Titel des Beitrags lässt vielleicht vermuten, dass ich das allwissende Google noch nicht damit gefüttert hätte - habe ich aber. Und die Ergebnisse waren ernüchternd: Code:...
  4. Geburtstage der nächsten 7 Tage aus mitarbeiterliste per MsgBox anzeigen

    in Microsoft Excel Hilfe
    Geburtstage der nächsten 7 Tage aus mitarbeiterliste per MsgBox anzeigen: Guten tag, ich bin ein Anfänger mit VBA Programierung. Zu meinem Problem, ich habe eine Personalliste in Excel, welche dem Nutzer beim Start die Geburtstage der nächsten 7 Tage anzeigt. Das...
  5. MsgBox bei fehlenden Wert im Adressfeld

    in Microsoft Access Hilfe
    MsgBox bei fehlenden Wert im Adressfeld: Hallo zusammen, ich stehe ein wenig auf dem Schlauch. Ich habe folgende Adressfelder. Straße Hausnummer PLZ Ort Leider schaffen es zurzeit viele Nutzer die PLZ oder die Hausnummer nicht...
  6. MsgBox

    in Microsoft Access Hilfe
    MsgBox: Hallo, wollte fragen wie man eine MsgBox, wenn man auf den Button drückt, erst nach 5 Sekunden erscheint. Im Internet hab ich zwar Sleep oder Application.wait gefunden, aber irgendwie bekomm ich...
  7. MsgBox-Funktion

    in Microsoft Access Tutorials
    MsgBox-Funktion: MsgBox-Funktion Access für Microsoft 365 Access 2019 Access 2016 Access 2013 Access 2010 Access 2007 Mehr... Weniger...
  8. CommandButton für MsgBox, zukünftig nicht mehr einblenden

    in Microsoft Excel Hilfe
    CommandButton für MsgBox, zukünftig nicht mehr einblenden: Hallo, nun brauch ich mal wieder Hilfe von Euch. Ich erkläre kurz was ich mir vorstelle, denn ich bin noch nicht so gut in Umgang mit VBA. In meiner Datei öffnen sich beim Start automatisch...