CHeckBox und TExtBox in TextBox addieren und in Tabelle einfügen
26.01.2020 01:44:57
Lutz
Ich habe ein Formular gebastelt.
Soweit funktioniert fast alles.
Ich möchte jetzt aber das er die Werte die zweier CheckBoxen hinterlegt sind und eines _
Textfeldest in ein anderen Textfeld Addiert und beim Bestätigen den Wert der Addierten Summe in _
eine Tabelle überträgt.
Private Sub CommandButton1_Click()
Dim last As Integer
With Worksheets("Workpackage")
last = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row + 1
ActiveSheet.Cells(last, 2).Value = (UserForm1.ListBox2.Value)
If CheckBox1.Value = True Then Cells(last, 3).Value = "X"
If CheckBox1.Value = False Then Cells(last, 3).Value = "-"
'zuweisung Borosopie Berechtigt
If CheckBox2.Value = True Then Cells(last, 4).Value = "X"
If CheckBox2.Value = False Then Cells(last, 4).Value = "-"
ActiveSheet.Cells(last, 5).Value = (UserForm1.TextBox1.Value)
ActiveSheet.Cells(last, 6).Value = (UserForm1.TextBox2.Value)
If CheckBox2.Value = True Then TextBox2.Value = 1
If CheckBox1.Value = True And ListBox1.Value = (747400) Then TextBox2.Value = 4.5
If CheckBox1.Value = True And ListBox1.Value = (7478) Then TextBox2.Value = 4.5
If CheckBox1.Value = True And ListBox1.Value = (MD11) Then TextBox2.Value = 4.5
If CheckBox1.Value = True And ListBox1.Value = (757) Then TextBox2.Value = 3.5
If CheckBox1.Value = True And ListBox1.Value = (767) Then TextBox2.Value = 3.5
End With
Ist der Aktuelle Code.
Könnt Ihr mir da weiterhelfen?
