Hallo!
Ich habe folgendes Problem: Ich habe eine UserForm mit einer ListBox erstellt und möchte über diese nun Zahlen in ein bestimmtes Feld einfügen. Da funktioniert soweit auch, solange es sich bei den Zahl um ganze handelt.
Wenn ich nun eine Kommazahl auswähle wird diese als Text eingetragen und dementsprechend funktionieren alle folgenden Formeln nicht mehr.
Die Zellen, in aus denen ausgelesen wird und in die eingefügt wird, haben bereits eine Formatierung auf Benutzerdefiniert, was auch benötigt wird.
Kann mir jemand sagen, was ich falsch mache oder wo ich einen Einstellung vergessen hab?
Hier noch der Code meiner UserBox:
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton2_Click()
'Werte aus LB in aktive Tabelle einfügen
Dim Tabelle As Worksheet
With UserForm1
If .ListBox1.ListIndex > 0 Then
Set Tabelle = ActiveSheet
Tabelle.Range("AA13").Value = .ListBox1.Column(0, .ListBox1.ListIndex)
Else
MsgBox "Sie müssen einen Eintrag im Listenfeld auswählen!", vbInformation
End If
End With
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim intZ As Integer
Dim intLB As Integer
Set Tabelle = Worksheets("Kabel")
intLB = 0
With UserForm1
.ListBox1.ColumnCount = 2
.ListBox1.ColumnWidths = "300"
.ListBox1.BackColor = RGB(255, 255, 255)
.ListBox1.ForeColor = RGB(0, 0, 0)
.ListBox1.Font.Bold = True
.ListBox1.Font.Size = 10
For intZ = 12 To Tabelle.UsedRange.Rows.Count
.ListBox1.AddItem Tabelle.Cells(intZ, 4).Value
intLB = intLB + 1
Next intZ
End With
End Sub