Mit dem Folgenden Code übertrage ich aus einer ListBox Werte in eine Tabelle. In der Spalte 3 - 5 der ListBox stehen Zahlen.
Private Sub CommandButton_Druck_Click()
With Me.ListBox1
Sheets("Test").Cells(5, 1).Resize(.ListCount, .ColumnCount) = .List
End With
Unload Me
End Sub
Wie muß der Code umgeschrieben werden, damit ich in den Spalten 3 - 5 der Tabelle die Werte als Zahl weiter verarbeiten kann. Hier stehen nämlich die Werte als Text und nicht als Zahl.
Danke für Eure Hilfe!
Gruß Mike