Ich brauche wieder einmal fachliche Hilfe von Profis.
In einer Userform ComboBox2 will ich auswählen von welchem TB Werte in Combobox1 werte eingelesen werden und in den weiteren TextBoxen geschrieben werden. TB enthalten Preislisten verschiedener Hersteller die alle gleich aufebaut sind. Mit meinen leienhaften Code komme ich leider nicht ans Ziel. Wer kann helfen?
Private Sub ComboBox1_Change()
Dim intRow As Integer
intRow = ComboBox1.ListIndex + 2
With Sheets("Preise")
Controls("TextBox1").Text = .Cells(intRow, 1) & .Cells(intRow, 2)
Controls("TextBox2").Text = .Cells(intRow, 3)
Controls("TextBox3").Text = .Cells(intRow, 7)
TextBox3.Value = Format(TextBox3.Value, "#,##0.00 ")
Controls("TextBox4").Text = .Cells(intRow, 5)
End With
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub Userform_Initialize()
'ComboBox2.AddItem "Preise"
'ComboBox2.AddItem "Schlüter"
If ComboBox2.Text = "Preise" Then
With Worksheets("Preise")
ComboBox1.List = .Range(.Cells(2, 2), .Cells(.UsedRange.Rows.Count, 2)).Value
End With
Else: With Worksheets("Schlüter")
ComboBox1.List = .Range(.Cells(2, 2), .Cells(.UsedRange.Rows.Count, 2)).Value
End With
End If
End Sub
Vielen Dank im voraus Jens