Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Ergebnisse in TextBox anzeigen





Frage

Hallo VBA Profis, habe ein Problem bei der Programmierung. Aus einer Tabelle lese ich mit einer ListBox Daten aus. Danach soll es nach dem anklicken in der ListBox das Ergebnis, was in einer anderen Spalte steht, in einer TexBox anzeigen. Beim ersten mal Anklicken funktioniert es. Danach kommt immer der Wert 0. Aber ich will, dass auch dann das richtige Ergebnis anzeigt. Ich habe das auch schon mit einer ComboBox programiert, da funktioniert es. Hier der Code: Private Sub ListBox1_Change() Dim s As String Dim erg As Currency erg = 0 Set frm = UserForm3 s = frm.ListBox1.Text Dim i As Integer Dim iMax As Integer With ListBox1 .TextColumn = 2 End With Application.ScreenUpdating = False iMax = ActiveSheet.UsedRange.Rows.Count For i = 5 To iMax If Worksheets("All Parts").Cells(i, 1) = s Then erg = erg + Worksheets("All Parts").Cells(i, 12) Else End If Next i frm.TextBox1.Text = Format(erg, "[$$-409]#,##0.00") & " $" Application.ScreenUpdating = True End Sub Ich hoffe es kann mir jemand helfen. Bin VBA Neuling. Vielen Dank Brunito

Antwort von