|
Liebe Forumsmitglieder,
ich habe ein User-Form erstellt, in welchem ich gewisse Eingaben machen kann und welche anschließend mittels eines "Save"-Buttons in ein anderes Tabellenblatt "Januar" übertragn werden.
Anbei der Code des "Save"-Buttons:
Private Sub Button_Save_Click()
Dim last As Integer
last = Worksheets("Januar").Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets("Januar").Cells(last, 1).Value = meinFormular.Caption
Worksheets("Januar").Cells(last, 2).Value = meinFormular.Text_Jahr.Value
Worksheets("Januar").Cells(last, 3).Value = meinFormular.Text_Name.Value
Worksheets("Januar").Cells(last, 4).Value = meinFormular.MultiPage1.Page2.Caption
Worksheets("Januar").Cells(last, 5).Value = meinFormular.Box_Lehre.Value
Worksheets("Januar").Cells(last, 7).Value = meinFormular.Box_Lehre_Task.Value
Worksheets("Januar").Cells(last, 8).Value = meinFormular.Text_Stunden_Lehre.Value
Nun würde ich gerne beim Drücken des "Save"-Buttons zusätzlich in Spalte 9 eine Checkbox einfügen. (Hintergrund: das Tabellenblatt "Januar" soll gesperrt sein und Zeilen eben nur mit diesen Checkboxes gelöscht werden können).
Ich bin kompletter Anfänger mit VBA und suche derzeit Lösungen in diese Richtung:
Worksheets("Januar").Cells(last, 9).OLEObject = Add OLEObject
Könnt Ihr mir da bitte etwas weiterhelfen?
Vielen Dank.
LG Marco
|