'Übergabe der Inhalte in das Tabellenblatt Gruppe 1
und das Tabellenblatt hat:
einen Namen z.B. Tabelle1 / Gruppe woswasi
sprich die Zellen in den Tabellen mit ihren natürlichen Namen und nicht mit irgendwelchen Codenamen an
Private Sub b_Gruppe1_Click()
Dim lngLast As Long, lngNext As Long
On Error Resume Next
lngLast = Sheets("Gruppe 1").Cells.Find("*", [A1], -4123, 2, 1, 2, False).Row
On Error GoTo 0
lngNext = lngLast + 1
'Übergabe der Inhalte in das Tabellenblatt Gruppe 1
Sheets("Gruppe 1").Cells(lngNext, 1) = tb_datum.Value
Sheets("Gruppe 1").Cells(lngNext, 2) = tb_blau.Text
Sheets("Gruppe 1").Cells(lngNext, 3) = tb_gelb.Text
Sheets("Gruppe 1").Cells(lngNext, 4) = tb_rot.Text
Sheets("Gruppe 1").Cells(lngNext, 5) = tb_grün.Text
'Eingabeformular schliessen
Unload frm_Eingabe
End Sub
|