Combobox abfrage

Hallo Excelgemeinde,
ich benötige dringend eure Hilfe.
Ich habe eine Tabellenblatt mit den Namen der Mitarbeiter, ein weiteres in denen die Daten (Protokoll) abgelegt werden.
Nun ist es so, das ein Mittarbeiter mehrere Arbeiten an einem Tag ausführt, auch kann es passieren das die reguläre Arbeitszeit, die als Schichtzeit fest vorgegeben ist, sich ändert, Anfang und Ende.
Um zu vermeiden das der Mitarbeiter seine aktuelle Arbeitszeiten bei jeder Arbeit neu eintragen muss, möchte ich in der Combobox Mitarbeiter abfragen, ob der Mitarbeiter bereits einen Eintrag an diesem Tag gemacht hat. Wenn ja sollen die Daten aus dem letzten Eintrag aus dem Tabellenblatt Daten in die Userform übernommen werden. Falls kein Eintrag besteht sollen die festgeschriebenen Daten aus dem Parameter Tabellenblatt genommen werden.
Kann man solch eine Abfragen mit einer Combobox realisieren?
So wie ich euch kenne habt ihr dafür eine Lösung :-)
https://www.herber.de/bbs/user/144281.xlsm
Danke Thino

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Combobox abfrage

26.02.2021 21:02:27

ralf_b

AW: Combobox abfrage

28.02.2021 15:32:26

Thino03

AW: Combobox abfrage

28.02.2021 23:06:53

ralf_b

AW: Combobox abfrage

01.03.2021 07:56:03

Thino03

AW: Combobox abfrage

01.03.2021 09:16:17

ralf_b

AW: Combobox abfrage

01.03.2021 17:28:38

Thino03

AW: Combobox abfrage

01.03.2021 19:46:45

Thino03

AW: Combobox abfrage

02.03.2021 09:00:11

ralf_b

AW: Combobox abfrage

02.03.2021 20:37:44

Thino03

Hallo Ralf_b
Ich glaube meine Freude vorhin war etwas zu früh, bin jetzt gerade am testen und komme nicht weiter.
Vielleicht kannst du mir ja noch mal auf die Sprünge helfen.
Wenn ich einen Mitarbeiter auswähle der auch schon einen Eintrag gemacht hat, schreibt er in die Combobox4 nichts, und in die Textbox10 schreibt er Beginn und in die Textbox15 schreibt er Ende.
Egal was ich auswähle.
Wie bekomme ich die Daten angezeigt?

Private Sub ComboBox5_Change()
Dim rngSuchen As Range
Dim firstaddress As String
Dim blngefunden As Integer
ComboBox5.BackColor = &HFF00&
If ComboBox5  "" And TextBox6 > "" Then
With Sheets("Daten").UsedRange
Set rngSuchen = .Find(what:=ComboBox5, Lookat:=xlWhole, LookIn:=xlValues)  ' _
Mitarbeiter
If Not rngSuchen Is Nothing Then
firstaddress = rngSuchen.Address
Do
If CStr(.Cells(rngSuchen.Row, "C").Value) = TextBox6.Text Then       'Datum
blngefunden = True
Exit Do
End If
Set rngSuchen = .FindNext(rngSuchen)
Loop While rngSuchen.Address  firstaddress
End If
End With
End If
If blngefunden Then
With Sheets("Daten")
' rngSuchen.Row ist die zeile
ComboBox4 = .Cells(rngSuchen.Row, 13)      'Schicht
Textbox10 = .Cells(rngSuchen.Row, 6)       'Anfangszeit
TextBox15 = .Cells(rngSuchen.Row, 18)      'Enzeit
End With
End If
End Sub

Private Sub ComboBox4_Change() 'schicht If ComboBox4 = Worksheets("daten").Cells(2, 13) And ComboBox5 = Worksheets("daten").Cells(2, _ 2) Then ' TextBox10.Text = Worksheets("daten").Cells(2, 6) TextBox15.Text = Worksheets("daten").Cells(2, 18) TextBox15 = Format(TextBox15, "hh:mm") Else TextBox10.Text = Worksheets("parameter").Cells(ComboBox4.ListIndex + 2, 16) TextBox15.Text = Worksheets("parameter").Cells(ComboBox4.ListIndex + 2, 17) TextBox15 = Format(TextBox15, "hh:mm") ComboBox4.BackColor = &HFF00& End If End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Combobox abfrage

9 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)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread