Umschaltbox
23.08.2007 13:43:21
Sven
Also ich muss sagen, das Forum hier ist spitzenklasse!!! Und vorallem ihr.... die mir immer schnell helfen!!
Aber nun zu meiner Frage.
Ich habe ein Userform mit zwei ToggleButtons oder auch Umschaltboxen genannt.
Vorab die eine heisst "Auftrag starten" die ander "Auftrag beenden"
Nun will dass wenn der Benutzer Auftrag starten auswählt, die aktuelle Uhrzeit (Wenn Daten übernommen werden) in die letzte Freie Zeile der Spalte D setzt.
Bei Auftrag beenden soll die Zeile mit dem der Auftrag gestarten wurde gesucht und die Endzeit (dann wieder aktuelle Uhrzeit) in die Spalte E geschrieben werden.
Jens hat mir hiermit schon sehr viel weiter geholfen:
Private Sub ToggleButton1_Click()
Dim IntD As Integer, intE As Integer
intE = Worksheets("Tabelle1").Range("E65536").End(xlUp).Row + 1
IntD = Worksheets("Tabelle1").Range("D65536").End(xlUp).Row + 1
If ToggleButton1 = False Then
ToggleButton1.Caption = "Auftrag starten"
Worksheets("Tabelle1").Cells(intE, 5) = Time
End If
If ToggleButton1 = True Then
ToggleButton1.Caption = "Auftrag beenden"
Worksheets("Tabelle1").Cells(IntD, 4) = Time
End If
End Sub
es funktioniert fast perfekt.
Es arbeiten aber leider mehr Leute daran. Also wird wahrscheinlich ein anderer Auftrag auch gestartet.
Kann man dann irgendwie wenn eine Person seine Personalnummer eingibt und dessen Auftrag noch nicht beendet wurde, automatisch den Button auf "Auftrag beenden" machen und dass wenn er diesen anklickt, dann auch die Beendungszeit in die Zeile schreiben, in der sein Auftrag steht?
Wisst ihr was ich meine?
Wäre es ausserdem Möglich, dass die Uhrzeit in der obengenannten Formel erst eingetragen wird, wenn ich den CommandButton drücke (Erst dann soll er schauen ob Umschaltbox aktiviert oder nicht)
Vielen dank.