ich habe ein Riesenproblem - und ich versteh's eigentlich nicht. Habe gestern eine Userform zur Zeiterfassung programmiert und möchte das die dort eingegebene Daten immer in die erste frei Zeile übernommen werden. Also habe ich folgende Codes geschrieben:
- für die 1. freie Zeile (in ein Modul):
Function lngletztezeile() As Long
Dim i As Integer, lngmin As Long, lngmax As Long
For i = 1 To 256
lngmin = Cells(65536, i).End(xlUp).Row
If lngmax lngmax = lngmin
End If
Next i
lngletztezeile = lngmax
End Function
und einen Button zur Übernahme der Daten:
Private Sub Datenübernehmen_Click_Click()
Cells(lngletztezeile + 1, 1) = cbo_Datum
Cells(lngletztezeile, 3) = cbo_Tätigkeit
Cells(lngletztezeile, 5) = txt_DetailTätigkeit
Cells(lngletztezeile, 7) = txt_Zeitaufwand
Cells(lngletztezeile, 9) = cbo_Spesen
Cells(lngletztezeile, 11) = txt_Kommentar
Cells(lngletztezeile, 13) = txt_KosteninCHF
Cells(lngletztezeile, 15) = txt_GefahreneKM
Cells(lngletztezeile, 17) = cbo_Unternehmen
End Sub
Laut meiner Literatur auch alles i.O. vor allem ging's gestern abend noch...jetzt hab ich wieder dran rumgebastelt, weil ich noch weitere Funktionen brauche und plötzlich übernimmt Exel mir nur noch das Datum? Hat irgendjemand von euch eine Idee? Ich seh das Problem nicht....
Gruss, christian