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