Hallo,
bitte um Hilfe - stehe mal wieder am Schlauch. Ich möchte mit dem untenstehenden Code das Ergebnis in einer Listbox anzeigen. Die Zellen die hier ausgelesenen werden sind allerdings in dieser Form: #.###,## formatiert. Die Anzeige in der Listbox ist allerdings immer ohne Punkt und Nachkommastelle. Ich denke ich muß der Zeile 'ListBox2.AddItem lstrInhalt noch das Format hinzufügen, weiß aber leider nicht wie !!
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Dim liZeile As Integer, liSpalte As Integer, lstrInhalt As String
Workbooks("Datenbank.xls").Worksheets("Tabelle2").Activate
With ActiveSheet
For liZeile = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
If .Range("B" & liZeile).Value = TextBox2.Text Then
For liSpalte = 3 To 3
lstrInhalt = lstrInhalt & .Cells(liZeile, liSpalte).Value & " "
Next
ListBox2.AddItem lstrInhalt
lstrInhalt = ""
End If
Next
End With
Bitte, Bitte helft mir
Gruß Patrick