Zeiterfassung
27.03.2009 13:10:56
Markus
ich versuche gerade meine erste Anfänge in VBA zu vertiefen und stoße auf nachfolgende(s) Problem(e).
Beim versuch mir eine eigene Zeiterfassung zu erstellen (Muster File ist mit beigefügt), habe ich in meinem Formular "frmZeiterfassung" drei Textboxen ("txtDatum", "txtArbeitsbeginn", "txtArbeitsende"). Wenn ich diese drei Boxen entsprechend gefüllt habe klicke ich auf den Button cmdUebernehmen wo folgender Code hinterlegt ist:
https://www.herber.de/bbs/user/60746.xls
Dim txtDatum As Integer
Dim txtArbeitsbeginn As Integer
Dim txtArbeitsende As Integer
If Range("A65536").End(xlUp).Offset(1, 0).Row < 5 Then
Cells(5, 1) = Me.txtDatum
Me.txtDatum = ""
Else
Cells(Range("A65536").End(xlUp).Offset(1, 0).Row, 1) = Me.txtDatum
Me.txtDatum = ""
End If
If Range("B65536").End(xlUp).Offset(1, 0).Row < 5 Then
Cells(5, 1) = Me.txtArbeitsbeginn
Me.txtArbeitsbeginn = ""
Else
Cells(Range("B65536").End(xlUp).Offset(1, 0).Row, 2) = Me.txtArbeitsbeginn
Me.txtArbeitsbeginn = ""
End If
If Range("C65536").End(xlUp).Offset(1, 0).Row < 5 Then
Cells(5, 1) = Me.txtArbeitsende
Me.txtArbeitsende = ""
Else
Cells(Range("C65536").End(xlUp).Offset(1, 0).Row, 3) = Me.txtArbeitsende
Me.txtArbeitsende = ""
End If
Meine erste Frage hierzu ist, ob ich diese drei IF-Anweisungen auch in eine schreiben kann?
Zusätzlich führe ich einige zur Zeit manuelle Formelberechnung und Formatierunen im Excel-Sheet durch, vll. kann mir hier jemand noch einen Tipp geben, wie ich das auch optimieren kann.
Ich bin für jede Hilfe dankbar!!!!
Mfg,
Markus