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