Folgendes Problem bei meinem Excel(https://www.herber.de/bbs/user/118838.xlsm):
Im 2. Register kann man per Klick auf "Zeiterfassung" die Zeit pro Tätigkeit buchen. Wenn durch das erledigen der ganze Auftrag abgeschlossen ist, kann man die Checkbox "Auftrag_Abschliessen" anwählen. Soweit funktioniert alles.
Mein Ziel ist es nun bei aktivierter CheckBox, dass er den Wert in der TextBox "Ende_Tätigkeit" im ersten Register "Projektüberwachung" beim entsprechenden Auftrag in der Spalte "Effektives Ende" einfügt. Mein Code dazu:
Dim Zelle3 As Range
Dim MyName3 As String
Dim iRow3 As Long
If Auftrag_Abgeschlossen Then
MyName3 = Zeiterfassung.Auftragsnummer.Text
iRow3 = Sheets("Projektüberwachung").Cells(Rows.Count, 1).End(xlUp).Row
If MyName3 = "" Then Exit Sub
For Each Zelle3 In Worksheets("Projektüberwachung").Range("A5:A" & iRow3)
If Zelle3.Text = MyName3 Then
Zelle3.Offset(0, 6) = CDate(Zeiterfassung.Ende_Tätigkeit.Text)
Exit Sub
End If
Next Zelle3
End If
Aber irgendwie scheint das so nicht zu funktionieren. Kann mir jemand weiterhelfen?
Danke & Gruss
Sandro