Hi,
ok verstanden, aber wie lege ich die zelle A31 als erste zu beschreibende fest... und das bei nochmaligem klicken auf den Button die Zeile darunter, mit den neuen Werten, beschrieben wird(4 mal klicken zb)? Oberhalb und unterhalb (hab paar Zeilen freigelassen) sind die Zellen befüllt.
LG Alex
Code:
Private Sub btn_hinzufügen1_Click()
Dim wks As Worksheet
Dim addnew As Range
Dim LetzteZeile As Integer
Set wks = Tabelle8
Dim n As Integer
LetzteZeile = wks.Cells(Rows.Count, 1).End(xlUp).Row
If LetzteZeile < 31 Then LetzteZeile = 30
Set addnew = wks.Cells(LetzteZeile + 1, 1)
addnew.Offset(0, 0).Value = Me.Controls("txt_datum").Text
addnew.Offset(0, 3).Value = Me.Controls("combo_mitarbeiter").Value
addnew.Offset(0, 6).Value = Me.Controls("txt_dauer").Text
End Sub
|