title image


Smiley Re: Kein Wert in der TextBox
Hallo Frank!





Danke für Deine Rückmeldung.



so funktioniert es jetzt bei mir:





Private Sub cboNamen3_Change()

On Error Resume Next





Dim r%

Dim Suche As Range

Dim wks As Worksheet

Set wks = ThisWorkbook.Sheets("Tabelle1")

'Call Sortieren_CboN3

cboNamen3.Text = cboNamen3.Column(0) & " " & cboNamen3.Column(1)

Set Suche = wks.Range("G:H").Find(cboNamen3.Value, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)

If (Not Suche Is Nothing) Then ' <-- hier der Test

r = Suche.Row

TextBox1.Text = Cells(r, 7)

TextBox2.Text = Cells(r, 3)

End If

End Sub







Josef

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: