Thema Datum  Von Nutzer Rating
Antwort
04.01.2017 15:44:50 Nicole
NotSolved
04.01.2017 16:51:20 Onur
***
NotSolved
04.01.2017 17:50:41 Gast11488
NotSolved
04.01.2017 18:10:41 Onur
NotSolved
04.01.2017 20:42:39 Gast84471
NotSolved
05.01.2017 19:40:06 Nadine
NotSolved
05.01.2017 22:02:57 Onur
*****
Solved
09.01.2017 21:43:07 Nicole
NotSolved
09.01.2017 22:25:36 Onur
NotSolved
Blau Ausgabe in userForm
04.01.2017 17:17:47 Onur
NotSolved
11.01.2017 07:39:02 Gentlemen
NotSolved

Ansicht des Beitrags:
Von:
Onur		 Datum:
04.01.2017 17:17:47		 Views:
642		 Rating:
     
Antwort:
  Ja
Thema:
Ausgabe in userForm

Das gleiche mit Listbox für mehrere Suchergebnisse:

 

Private Sub TextBox1_Change()
    Dim a As String
    a = UserForm1.TextBox1.Text: 'Hier wird der Wert aus Spalte D angezeigt
    UserForm1.ListBox1.Clear
    With Tabelle1.Range("a1:a500")
        Set c = .Find(a$, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                Z = c.Row
                ListBox1.AddItem Tabelle1.Cells(Z, 4)
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With
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
04.01.2017 15:44:50 Nicole
NotSolved
04.01.2017 16:51:20 Onur
***
NotSolved
04.01.2017 17:50:41 Gast11488
NotSolved
04.01.2017 18:10:41 Onur
NotSolved
04.01.2017 20:42:39 Gast84471
NotSolved
05.01.2017 19:40:06 Nadine
NotSolved
05.01.2017 22:02:57 Onur
*****
Solved
09.01.2017 21:43:07 Nicole
NotSolved
09.01.2017 22:25:36 Onur
NotSolved
Blau Ausgabe in userForm
04.01.2017 17:17:47 Onur
NotSolved
11.01.2017 07:39:02 Gentlemen
NotSolved