Userform Code

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 8
nach unten

Betrifft: Userform Code
von: Jens
Geschrieben am: 10.05.2002 - 16:38:41

Hallo Excelgemeinde

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

nach oben   nach unten

Re: Userform Code
von: Hans W. Herber
Geschrieben am: 10.05.2002 - 16:57:46

Hallo Jens,

nimm die beiden ersten auskommentierten Zeilen wieder rein. Dem Change-Ereignis der ComboBox2 weist Du dann zu:
ComboBox1.List = Worksheets(ComboBox2.Value).Range(.Cells(2, 2), .Cells(.UsedRange.Rows.Count, 2)).Value


hans

nach oben   nach unten

Re: Userform Code
von: Jens
Geschrieben am: 10.05.2002 - 17:52:57

ich habe den geänderte Code so eingefügt abre ich erhalte dei Fehlermeldung "Fehler beim kompilieren unzulässiger oder unzureichender Verweis". Was muß da noch geändert werden?

nach oben   nach unten

Re: Userform Code
von: Hans W. Herber
Geschrieben am: 10.05.2002 - 18:45:57

Hallo Jens,

ja, Du hast recht, war nicht getestet, die Referenzierung stimmt nicht. Wie folgt:

hans

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Userform Code"