Hallo Profis,
ich hab vom Forum diesen Code:
Private Sub CommandButton2_Click()
Dim xZeile As Long
'If ComboBox1 = "" Then Exit Sub
xZeile = [A65536].End(xlUp).Row + 1
Cells(xZeile, 1) = ComboBox1
Cells(xZeile, 2) = ComboBox2
Cells(xZeile, 3) = ComboBox3
cells(xZeile, 4) = ComboBox4
damit fülle ich zeilenweise eine Tabelle Hilfe von Comboboxen
Es werden alle Werte als Text ausgegeben - ich möchte aber einige Als Zahl.
Was müsste ich wo ändern od was einfügen ?
Grss Ludicla