Hilfe zu bestehendem Code Combobox
04.04.2016 12:20:43
Peter
benötige eure Hilfe zu bereits gefertigtem Code durch Nepumuk:
Dim avntValues As Variant
Dim ialngIndex As Long
With Tabelle1
avntValues = .Range(.Cells(2, 1), .Cells( _
.Cells(.Rows.Count, 1).End(xlUp).Row, 2)).Value2
End With
With ComboBox3
For ialngIndex = 1 To UBound(avntValues)
If avntValues(ialngIndex, 1) "" Then
Call .AddItem(Format(avntValues(ialngIndex, 1), "#0.00"))
.List(.ListCount - 1, 1) = Format(avntValues(ialngIndex, 2), "0")
End If
Next
End With
Mit o.a. Code wird die ComboBox3 eingelesen.
Mit Code
Private Sub ComboBox3_Change()
'überträgt Wert von Combobox in Textbox9. Wird für Prüfung ob Wert vorhanden benötigt " _
Eintrag_Briefmarkenwert_prüfen"
TextBox9.Value = ComboBox3.Value
'TextBox9.Value = ComboBox3.List(ListIndex, 0)
'TextBox11.Value = ComboBox3.List(ListIndex, 1)
Eintrag_Briefmarkenwert_prüfen
Eintrag_Briefmarkenwert_prüfen_vorhandener
End Sub
Jetzt will ich aber beide Spalten in TextBox9 und TextBox11 einlesen.
Dies habe ich mit den auskommentierten beiden Zeilen versucht. Ohne Erfolg.
Bitte helft mir bei der Lösung. Besten Dank.
Gruss Peter