37Dateneingabe Der Inhalt der Eingabefelder wird in das Arbeitsblatt übertragen Excel VBA

https://www.youtube.com/watch?v=YsvDJ_X6LBs&list=PLcwMjDfa1J19R3z86lC8WSHTcpInLPT6Z
''''''26'26'26'26'26'26'26'26
Dim ††† As Long
If ComboBox1.Value = "" Then
††† = AAAA.Cells(Rows.Count, 1).End(xlUp).Row + 1
AAAA.Cells(†††, 1).Value = ††† - 1
Else:
††† = ComboBox1.ListIndex + 2
End If
AAAA.Cells(†††, 2).Value = TextBox1.Value
If TextBox2.Value = "" Then
AAAA.Cells(†††, 3).Value = TextBox2.Value
Else:
AAAA.Cells(†††, 3).Value = CDbl(TextBox2.Value)
AAAA.Cells(†††, 3).NumberFormat = "0.00"
End If
If TextBox3.Value = "" Then
AAAA.Cells(†††, 4).Value = TextBox3.Value
Else:
AAAA.Cells(†††, 4).Value = CDate(TextBox3.Value)
AAAA.Cells(†††, 4).NumberFormat = "dd.mm.yyyy"
End If
If ComboBox2.Value = "" Then
AAAA.Cells(†††, 5).Value = ComboBox2.Value
Else:
AAAA.Cells(†††, 5).Value = CDate(ComboBox2.Value)
AAAA.Cells(†††, 5).NumberFormat = "hh:mm:ss"
End If
With AAAA
ComboBox1.RowSource = .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1)).Address(External:=True)
End With
ComboBox1.Value = ††† - 1
''''''26'26'26'26'26'26'26'26
Dateneingabe. Der Inhalt der Eingabefelder wird in das Arbeitsblatt übertragen. Excel VBA.

Doppelklicken Sie im VBA-Editor mit der linken Maustaste auf CommandButton1.

Geben Sie den Code aus der Videobeschreibung in die Prozedur „Click“ ein.

Öffnen Sie das Arbeitsblatt und anschließend das Formular. Die Inhalte der Eingabefelder wurden in das Arbeitsblatt übertragen.

Видео 37Dateneingabe Der Inhalt der Eingabefelder wird in das Arbeitsblatt übertragen Excel VBA канала excelgeist