title image


Smiley Und ich eine Lösung :-)
Hallo Thomas,das kann man so abstellen:Private Sub UserForm_Activate()   For x = 3 To 100      ComboBox1.AddItem Range("A" & x)   Next xEnd SubPrivate Sub ComboBox1_Change()   i = ComboBox1.ListIndex + 3   If i > 2 Then      TextBox1.Text = Range("B" & i)      TextBox2.Text = Range("C" & i)      TextBox3.Text = Range("D" & i)      TextBox4.Text = Range("E" & i)      TextBox5.Text = Range("F" & i)      TextBox6.Text = Range("G" & i)   Else      TextBox1.Text = ""      TextBox2.Text = ""      TextBox3.Text = ""      TextBox4.Text = ""      TextBox5.Text = ""      TextBox6.Text = ""   End IfEnd SubWas Du natürlich auch machen könntest:Setze die Eigenschaft Style der ComboBoxauf 2-fmStyleDropDownList.Somit hat man erst gar nicht mehr die Möglichkeit,einen Wert einzugeben, der nicht existiert !

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: