Listbox Userform

Guten Morgen,
ich hätte mal eine Grundsätzliche Frage. :-)
Ich habe in einer UserForm eine Listbox in der einmal die Fertigungsaufträge des aktuellen Arbeitstages landen sollen.
Wie stelle ich das am besten an, dass der Benutzer der UserForm die Möglichkeit hat einen Status hinter diesen Auftrag setzen zu können. (Start,Fertig,Störung)
Ob das mit Kontrollkästchen oder Pulldown erfolgt ist mir egal.
Dieser Status sollte dann in der Tabelle in der ich die Aufträge für die Listbox ziehe zu erkennen sein. (am besten mit Zeitstempel).
Wer kann mir sagen wie ich das am besten realisieren kann?
Oder hat evtl. Jemand eine kleines Beispiel, welches die Verküpfung von Listbox zu einer Eingabe erkennbar ist...
Liebe Grüsse
Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Listbox Userform

30.08.2017 12:08:40

JoWE

AW: Listbox Userform

30.08.2017 12:36:54

stef26

Nachfrage

30.08.2017 13:58:41

stef26

AW: Nachfrage

30.08.2017 14:06:03

JoWE

AW: Hilfe ich raffs nicht

30.08.2017 21:17:12

stef26

AW: Hilfe ich raffs nicht

30.08.2017 21:40:48

Mullit

Hallo Stefan,
ich kenne weder Deine Arbeitsmappe, Userform oder Listbox.
Weil Du die hier keine Musterdatei hochgeladen hast.
Aber ich kann mir folgende Vorgehensweise vorstellen:
In die UF setzt Du für "Start", "Fertig" und "Störung" entsprechend Checkbox1, Checkbox2 und Checkbox3.
Zur Schaltfläche "Abbrechen", die bei mir CommandButton1 hieße, kommt noch eine Schaltfläche "Übernehmen" als CommandButton2 dazu.
Dazu der Code für den CommandButton2:

Private Sub UserForm_Initialize()
'Wenn die Auftragsnummern in diesem Bereich stehen
ListBox1.RowSource = "'Tabelle2'!A2:A50"
End Sub
Private Sub CommandButton2_Click()
Dim ze As Long
ze = Application.Match(ListBox1.List(ListBox1.ListIndex), _
Sheets("Tabelle2").Range("A1:A50"), 0) 'siehe Listbox1.source
If CheckBox1.Value = True Then Sheets("Tabelle2").Cells(ze, 2) = Now
If CheckBox2.Value = True Then Sheets("Tabelle2").Cells(ze, 3) = Now
If CheckBox3.Value = True Then Sheets("Tabelle2").Cells(ze, 4) = Now
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub

Es sollten noch Fehlerroutinen eingebaut werden.
Noch geht z.B. gleichzeitiges Ankreuzen von "Fertig" und "Störung"?
Gruß
Jochen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listbox Userform

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread