Re: zelle im Tabellenblatt überCombobox löschen
                                            
                    
                                                    28.05.2002 14:49:08
                                            
                                
                                            Kay.O
                                    
             
         
        
                            
Hi,klar ;)
also , ich gehe mal davon aus das du deine USERForm fertig hast.
dann bindest du das folgende in den code deiner form ein , wobei du die namen der textbox etc. anpassen mußt !!!
sub datenauslesen()
dim i as integer, suchtext as variant, lastZe as integer
dim checker as integer
lastZe = ActiveSheet.UsedRange.Rows.Count
i = 1
checker = 0
for i = 1 To lastZe
 suchtext = cells(i,1)
  if checker > 1 Then
   MsgBox "wert ist in Spallte A mehr als einmal vertreten!" & _
   chr(13) & "die schleife wird hier abgebrochen!"
   Exit For
  Else
   If textbox1.text = suchtext Then
     textbox2.txt = cells(i,2)
     checker = checker + 1
   End If
  End If
Next
End Sub
versuchs mal damit , habs nur kurz zusammen geschrieben und nicht getestet , zur not melde dich über mail !
du mußt auch noch ein button generieren der bei klick diese prozedur aufruft oder versuchs mit unter textbox1_change unter zu bringen , sollte auch gehen.
gruß
Kay