Pop Up Fenster mit Dropdown Auswahlliste

Hallo Zusammen,
ich darf meinen ersten Beitrag verfassen, habe aber schon sehr viele wichtige Informationen und Hilfen aus diesem Forum verwenden können.
Ich habe eine Frage (ich hatte in der Vergangenheit bereits etwas dazu gefunden, aber ich denke, ich suche jetzt mit den falschen Worten).
Meine Excel Datei ist verbunden mit einem Sensor, der immer eine Zeile mit aktueller Uhrzeit schreibt, wenn ein Behälter auf dem Fliessband vorbeifährt.
Wenn die Maschine also steht, dann gibt es einen längeren Abstand zwischen den Zeiten, diese Zeit wird in einer weiteren Spalte dann berechnet.
Nun möchte ich, wenn Beispielsweise 10 Minuten dazwischen sind, dass sich ein Fenster öffnet und verlangt, einen Grund für die Störung einzugeben. Diese Gründe sollten aber nur mit einer Dropdownliste auswählbar sein. Später sollte es möglich sein nach diesen Gründen zu filtern. Der Grund sollte dann in die Spalte neben der ausgerechneten Zeit sein.
Beispiel:
Spalte D = 10 Minuten
Spalte E = Elektrik
Dann kann ich am nächsten Tag alle Störgründe und die Zeiten aus der Liste ziehen. Das wäre ideal.
Ich hoffe, es ist nicht zu kompliziert geschrieben :-)
Danke für eure Hilfe
Gruss
Michael

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub Worksheet_Calculate() Dim objCell As Range For Each objCell In Range(Cells(3, 16), Cells(Rows.Count, 16).End(xlUp)) If objCell.Value >= TimeSerial(0, 10, 0) Then If IsEmpty(objCell.Offset(0, 1).Value) Then With UserForm1 Set .Cell = objCell.Offset(0, 1) If Not .Visible Then Call .Show End With End If End If Next End Sub

Private Sub CommandButton2_Click() If ComboBox1.ListIndex > -1 Then Cell.Value = ComboBox1.Text Else Call MsgBox("Bitte erst eine Begründung eingeben.", vbExclamation, "Hinweis") End If Call Hide End Sub

Private Sub Worksheet_Calculate() Dim objCell As Range For Each objCell In Range(Cells(3, 16), Cells(Rows.Count, 16).End(xlUp)) If objCell.Value >= TimeSerial(0, 10, 0) Then If IsEmpty(objCell.Offset(0, 1).Value) Then With UserForm1 Set .Cell = objCell.Offset(0, 1) If Not .Visible Then Call .Show Exit For End With End If End If Next End Sub

Guten Morgen,
wenn der Sensor ein Signal gibt, dann schreibt er "1" in Spalte A.
Dann gibt es Stillstände, diese grösser X Zeit sind, dann kommt die Userform. Der Cursor wechselt dann in die Userform, darum schreibt der Sensor zuerst "1" in die Userform und beim nächsten auslösen des Sensors schreibt es nicht mehr, sondern es wird "übernehmen" gedrückt (quasi vom Sensor).
Der Cursor müsste also "stehenbleiben" und nicht in die Userform wechseln, oder beim öffnen der Userform sofort wieder zurück in Spalte A springen.
Es ist nicht ständig ein Mitarbeiter vor dem Bildschirm und kann den Stillstand sofort eintragen, darum kann es vorkommen, dass in der Zwischenzeit X Produkte den Sensor auslösen.
Ich habe dir einen Screen hochgeladen - Spalte A schreibt, aber dann öffnet die Userform, beim nächsten Hit des Sensors würde dann "übernehmen" gedrückt.
https://www.herber.de/bbs/user/155663.doc
Gruss
Michael

Beliebteste Forumthreads (12 Monate)

Pop Up Fenster mit Dropdown Auswahlliste

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Pop Up Fenster mit Dropdown Auswahlliste

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread