Скачать или смотреть Eingetragenen Daten werden in Textfeldern und im Kombinationsfeld angezeigt Excel VBA

   • 1Befehlszeichen für „Entwurfsmodus“ in die...  







''''''19'19'19'19'19'19'19'19
On Error Resume Next
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
ComboBox2.Value = ""
Dim ††† As Integer
††† = ComboBox1.ListIndex + 2
TextBox1.Value = AAAA.Cells(†††, 2).Value
TextBox2.Value = CDbl(AAAA.Cells(†††, 3).Value)
TextBox3.Value = Format(CDate(AAAA.Cells(†††, 4).Value), "dd.mm.yyyy")
ComboBox2.Value = Format(CDate(AAAA.Cells(†††, 5).Value), "hh:mm:ss")
If AAAA.Cells(†††, 3).Value = "" Then
TextBox2.Value = ""
End If
If AAAA.Cells(†††, 4).Value = "" Then
TextBox3.Value = ""
End If
If AAAA.Cells(†††, 5).Value = "" Then
ComboBox2.Value = ""
End If
ListBox1.ListIndex = ListBox1.ListCount - 1
If ComboBox1.ListIndex = -1 Then
ListBox1.ListIndex = ListBox1.ListCount - 1
Else:
ListBox1.ListIndex = ComboBox1.ListIndex
End If
Exit Sub
''''''19'19'19'19'19'19'19'19




Eingetragenen Daten werden in Textfeldern und im Kombinationsfeld angezeigt. Excel VBA.

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

Wählen Sie in der oberen rechten Ecke die Prozedur „Change“ aus.

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

Öffnen Sie das Arbeitsblatt und anschließend das Formular. Die eingetragenen Daten stehen in Textfeldern und im Kombinationsfeld.