Office: Textbox mit Spalte Vergleichen + zusätzliche Zusammenhänge

lukas.... · 15. September 2014

Hallo zusammen,

ich probiere mich gerade an einer Auftragszeiterfassungsliste..

Folgendes Problem bekomme ich seit 2 Tagen nicht gelöst :/

Tabelle 1 besitzt 2 Buttons

1. Auftrag beginnen
2. Auftrag beenden

Nachdem ein Mitarbeiter einen Auftrag begonnen hat, gibt es in Tabelle 2 einen Tabelle mit Mitarbeiternummer, Auftragsnummer, Tätigkeit, Auftragsbeginn.

Ich habe nun unter dem Auftragsbeginn ein freies Feld welches für die Abstempelzeit gedacht ist. (dahinter wird dann die Differenz von Abstempel- und Anstempelzeit berechnet)

Nun tritt das Problem auf.

Wenn ich den Auftrag beenden möchte, soll VBA mir die Spalte A nach der Mitarbeiternummer den er gerade in der TextBox eingegeben hat durchsuchen. Zusätzlich soll in Spalte überprüft werden ob der Auftrag von dem Mitarbeiter auf "angestempelt" steht (spalte G). - Nach dem abstempeln soll dieses abgestempelt gelöscht werden.
- dieses angestempelt dient dazu, dass beim Durchsuchen den noch nicht abgestempelten Auftrag des Mitarbeiters gefunden werden kann.

Nun, da er die richtige Spalte gefunden hat, soll unterhalb der gefundenen Spalte die Abstempelzeit in Reihe F eintragen.

Ich weiss, beim ersten mal lesen klingt das n bisschen verwirrend aber ich hoffe ihr versteht mein Problem und könnt mir irgendwie weiterhelfen *Smilie *Smilie

:)

Beverly · 17. September 2014

Hi,

um die Verwirrung zu entwirren wäre es sicher hilfreich, wenn du eine Beispielmappe (mit anonymisierten Daten) hochladen könntest.

lukas.... · 17. September 2014

Hier mal die Datei.

Beverly · 17. September 2014

Und wo kommt die Uhrzeit für das "Abgestempelt" her - also wie soll sie eingetragen werden und wer soll sie eintragen?

lukas.... · 17. September 2014

Mitarbeiter 10 hat Auftrag XYZ angestempelt am 17.09.2014 um 14:00 Uhr

wenn er dann fertig mit dem Auftrag ist, soll dieser auf "Auftrag beenden" klicken. Dann trägt es die Abstempelzeit unter die Anstempelzeit des Mitarbeiters.. Wie hier im Beispiel Mitarbeiter 10

Beverly · 17. September 2014

Also ich würde nicht mehrere UserForms für ein und dieselbe Aufgabe verwenden. Auftragsbeginn kann man in einem gemeinsamem UserForm erledigen und Auftragsende ebenfalls in einem (anderen) gemeinsamen.
In der angehängten Mappe sind dazu die betreffenden Steuerelemente zuerst ausgeblendet und werden nach Bestätigung der ersten Abfrage eingeblendet.

lukas.... · 17. September 2014

Yes.. so sieht das ja schon sehr gut aus.
Ich wäre glaub nie auf den Code gekommen.. Vielen Dank

Ich hab jetzt nachträglich noch die Abfragereihenfolge von Mitarbeiter und Auftrag geändert. Wäre es denn möglich, in der Listbox die ich eingefügt habe die angestempelten Aufträge des Mitarbeiters anzuzeigen?

Dann wäre das Programm nämlich perfekt.

Im voraus schon mal vielen Dank!!*Smilie

Beverly · 17. September 2014

So müsste der Code für den CommandButton aussehen:

Code:

Private Sub OK_Click()
Dim rngZelle As Range
Dim strStart As String
If TextBox1 = "" Then
MsgBox "Bitte Mitarbeiternummer angeben"
Else
Label2.Visible = True
TextBox2.Visible = True
CommandButton1.Visible = True
ListBox1.Visible = True
With Worksheets("Stundenkalkulation")
' suche in Spalte A nach Mitarbeiter
Set rngZelle = .Columns(1).Find(TextBox1, lookat:=xlWhole)
' Mitarbeiter gefunden
If Not rngZelle Is Nothing Then
' gefundene Adresse auf Variable schreiben
strStart = rngZelle.Address
' Schleife ausführen
Do
' wenn Zelle 6 Spalten rechts von gefundener Zelle (G) = "Abgestemeplt" dann 1 Spalte rechts (B) in ListBox aufnehmen
If .Range(rngZelle.Address).Offset(0, 6) = "Angestempelt" Then ListBox1.AddItem .Range(rngZelle.Address).Offset(0, 1)
' nächsten Treffer suchen
Set rngZelle = .Columns(1).FindNext(rngZelle)
' so lange wiederholen wie weitere Treffer gefunden und dessen Zelladresse nicht die Startadersse ist
Loop While Not rngZelle Is Nothing And rngZelle.Address strStart
End If
' Variable leeren
Set rngZelle = Nothing
End With
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe im neuen Codeteil ein paar Kommentare eingefügt, dann ist sicher besser zu verstehen was vor sich geht.

lukas.... · 17. September 2014

Hallo Beverly,

Code funktioniert super. Vielen Dank!!!

Ich hab das ganze noch n bisschen erweitert und mir die bereits angestempelten Aufträge beim abstempeln anzeigen lassen.

Letzte Problemchen habe ich jetzt aber noch :/

1. Nachdem ich den Auftrag gebucht habe, soll es die ganzen TextBoxen und Listboxen leeren. Wenn ich nämlich erneut was buchen will, stehen noch die alten Zahlen und Auftragsnummern in den boxen. Dies sollte auch beim abstempeln passieren.

2. Beim Anstempeln soll der Mitarbeiter nicht den gleichen Auftrag erneut anstempeln können.

3. Ich wollte, dass die Userform nach der Bearbeitung geschlossen wird. Nun habe ich nach dem Code Userformxy.hide.. leider funktioniert das nicht so wie gewünscht. Die userform wird zwar geschlossen, jedoch funktioniert dann der Anzeigemodus von den bereits angestempelten Aufträge nicht mehr :/

Ich hoffe dies ist meine letzte Bitte.

So langsam hab ich nämlich ein schlechtes Gewissen.

Viele Grüße

Lukas

Beverly · 18. September 2014

Hi Lukas,

beim UserForm Schließen wird nicht der Name des UserForms benutzt sondern man spricht es mit Me an:

Code:

Me.Hide
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mid Hide schließt sich das UserForm, jedoch die Inhalte aller Steuerelemente bleibt erhalten. Sollen diese geleert werden, schließt man das UserForm mit

Code:

Unload Me
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zu Frage 2 und 3:

Code:

Private Sub CommandButton1_Click()
Dim lngErste As Long
Dim rngZelle As Range
Dim blnInArbeit As Boolean
If TextBox2 = "" Then
MsgBox "Bitte Auftragsnummer angeben"
Else
With Worksheets("Stundenkalkulation")
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
' Schleife über alle Zellen Spalte A ab Zeile 3
For Each rngZelle In .Range(.Cells(3, 1), .Cells(lngErste, 1))
' laufende Zelle = TextBox1 und Spalte B = Textbox2 (bedeutet: Auftrag für Mitarbeiter bereits vorhanden)
If .Range(rngZelle.Address) = TextBox1 And .Range(rngZelle.Address).Offset(0, 1) = TextBox2 Then
' Variable auf True setzen
blnInArbeit = True
End If
Next rngZelle
' wenn Variable True
If blnInArbeit Then
MsgBox "Auftrag begonnen"
' andernfalls
Else
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 2
.Cells(lngErste, 1) = TextBox1
.Cells(lngErste, 2) = TextBox2
.Cells(lngErste, 5) = Date
.Cells(lngErste, 6) = Time
.Cells(lngErste, 7) = "Angestempelt"
End If
End With
End If
' alle Steuerelemente leeren
Unload Me
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zu Frage 1: soll dann das UserForm geschlossen werden oder tatsächlich nur die Inhalte gelöscht, das UserForm aber geöffnet bleiben? Ist erseres der Fall, dann am Ende userForm eifnach mit Unload Me schließen, sonst den Code für den Commandbutton einfach erweitern:

Code:

Private Sub cmdBuchung_Click()
Dim rngZelle As Range
Dim strStart As String
Dim blnGebucht As Boolean
If TextBox2 = "" Then
MsgBox "Bitte Austragsnummer angeben"
Else
With Worksheets("Stundenkalkulation")
Set rngZelle = .Columns(1).Find(TextBox1, lookat:=xlWhole)
If Not rngZelle Is Nothing Then
strStart = rngZelle.Address
Do
If .Range(rngZelle.Address).Offset(0, 1) = TextBox2 Then
If .Range(rngZelle.Address).Offset(0, 6) = "Angestempelt" Then
.Range(rngZelle.Address).Offset(0, 6).ClearContents
.Range(rngZelle.Address).Offset(1, 6) = "Abgestempelt"
.Range(rngZelle.Address).Offset(1, 4) = Date
.Range(rngZelle.Address).Offset(1, 5) = Time
blnGebucht = True
Exit Do
End If
Else
Set rngZelle = .Columns(1).FindNext(rngZelle)
End If
Loop While Not rngZelle Is Nothing And rngZelle.Address strStart
If blnGebucht = False Then
MsgBox "Auftrag nicht gefunden"
Else
MsgBox "Buchung durchgeführt"
End If
Else
MsgBox "Mitarbeiternummer nicht gefunden"
End If
Set rngZelle = Nothing
' TextBoxen und ListBox leeren
TextBox1 = ""
textbox3 = ""
ListBox1.Clear
End With
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Textbox mit Spalte Vergleichen + zusätzliche Zusammenhänge

Textbox mit Spalte Vergleichen + zusätzliche Zusammenhänge

Textbox mit Spalte Vergleichen + zusätzliche Zusammenhänge

Textbox mit Spalte Vergleichen + zusätzliche Zusammenhänge

Textbox mit Spalte Vergleichen + zusätzliche Zusammenhänge

Textbox mit Spalte Vergleichen + zusätzliche Zusammenhänge - Similar Threads - Textbox Spalte Vergleichen

Textboxen

Wert aus Inputbox in Textbox übernehmen ohne Inhalt zu löschen

Text Box

VBA Kopieren von Zelleninhalte in Textbox

größter Wert aus Spalte in TextBox anzeigen lassen

Spalte addieren, Summe in Userform-TextBox ausgeben

Combobox Zwei Spalten in TextBoxen ausgeben