Thema Datum  Von Nutzer Rating
Antwort
15.09.2011 23:43:38 Willi
NotSolved
Blau Textbox automatisch fuellen
16.09.2011 09:41:36 saibot
NotSolved

Ansicht des Beitrags:
Von:
saibot
Datum:
16.09.2011 09:41:36
Views:
843
Rating: Antwort:
  Ja
Thema:
Textbox automatisch fuellen

Guten Morgen,

habe es nicht getestet, kannst ja eine Rückmeldung geben ob es funktioniert hat

Gruß saibot

 

Private Sub TextBox1_Change()

Dim wks1 As Range
'Range in der gesucht werden soll
Set wks1 = Workbooks("Mappe1").Worksheets("Tabelle1").Range("A1:Z1000")

If TextBox1.Value <> "" Then
    Set Suchtext = wks1.Find(TextBox1.Value, LookAt:=xlWhole, LookIn:=xlValues, SearchOrder:=xlByColumns)
    Row = Suchtext.Row
    Column = Suchtext.Column
   
    TextBox2.Value = Cells(Row, Column + 1)
    TextBox3.Value = Cells(Row, Column + 2)
    TextBox4.Value = Cells(Row, Column + 3)
End If

End Sub


 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.09.2011 23:43:38 Willi
NotSolved
Blau Textbox automatisch fuellen
16.09.2011 09:41:36 saibot
NotSolved