Hilfe für die ListBox
20.02.2006 16:28:24
Andreas
Ich habe ein Problem mit meinem Code.
Ich habe eine UserForm mit einer ListBox. In der ListBox stehen werte von Spalte
A - F. Die werte werden per doppelklick auf eine Tabelle übernommen.Bis dahin funktioniert alles einwandfrei. Nun weiß ich einfach nicht an welcher stelle ich das Format für die Währung einstellen soll. Die Währungsformate werden in den Spalten ab C10 und F10 in uro eingetragen mit max. zwei stellen nach dem Komma.
In der Hoffnung das mir jemand helfen kann stelle ich hier den gesamten Code ein.
Schon einmal vielen Dank im Voraus:
Private Sub ListBox1_Dblclick(ByVal Cancel As MSForms.ReturnBoolean)
Dim intEndUp As Long
Dim intR As Long
Dim intC As Long
Dim i As Integer
If Not MsgBox("Soll " & ListBox1.List(ListBox1.ListIndex) & " eingetragen werden?", vbQuestion + vbYesNoCancel, "Frage!") = vbYes Then Exit Sub
intEndUp = Sheets("Inventur").Range("A65536").End(xlUp).Row + 1
intR = ListBox1.ListIndex 'geklickte Zeile
intC = ListBox1.ColumnCount 'Anzahl Spalten
'Werte aus jeder Spalte der ListBox lesen und eintragen
For i = 1 To intC
Sheets("Inventur").Cells(intEndUp, i).Value = ListBox1.List(intR, i - 1)
Next i
MsgBox ListBox1.List(intR) & " wurde eingetragen!", vbInformation + vbOKOnly, "Erfolg!"
End Sub
Anzeige