Thema Datum  Von Nutzer Rating
Antwort
14.08.2017 13:37:42 guter_alter
NotSolved
14.08.2017 21:50:38 Crazy Tom
NotSolved
16.08.2017 08:56:46 Gast34875
NotSolved
16.08.2017 08:57:11 Gast87363
NotSolved
Rot Suchfunktion VBA (Wildcards)
 16.08.2017 11:24:12 Crazy Tom
NotSolved
16.08.2017 13:48:50 guter Alter
NotSolved
16.08.2017 14:38:39 Crazy Tom
NotSolved
16.08.2017 14:54:59 Gast18061
NotSolved
16.08.2017 14:56:44 Crazy Tom
NotSolved
16.08.2017 15:17:40 Gast5061
NotSolved
16.08.2017 15:35:36 Crazy Tom
NotSolved
21.08.2017 12:44:23 Guter Alter
NotSolved
21.08.2017 17:43:24 Crazy Tom
NotSolved
22.08.2017 08:30:15 guter Alter
NotSolved

Ansicht des Beitrags:
Von:
Crazy Tom		 Datum:
16.08.2017 11:24:12		 Views:
870		 Rating:
     
Antwort:
  Ja
Thema:
Suchfunktion VBA (Wildcards)

Hallo

 

die Spaltenanzahl der Listbox in den Eigenschaften einstellen

ggf. noch die Spaltenbreiten anpassen

Private Sub CommandButton1_Click()
    Dim strSuche As String
    Dim strFirst As String
    Dim c As Range
    Dim lngAnz As Long
    strSuche = TextBox1.Text
    If strSuche <> "" Then
        Set c = Columns(1).Find(strSuche, LookIn:=xlValues, lookat:=xlPart)
        If Not c Is Nothing Then
            strFirst = c.Address
            Do
                ListBox1.AddItem c.Value
                lngAnz = ListBox1.ListCount
                ListBox1.List(lngAnz - 1, 1) = Cells(c.Row, 5).Value
                Set c = Columns(1).FindNext(c)
            Loop While Not c Is Nothing And c.Address <> strFirst
        End If
    End If
End Sub

 

MfG Tom

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
14.08.2017 13:37:42 guter_alter
NotSolved
14.08.2017 21:50:38 Crazy Tom
NotSolved
16.08.2017 08:56:46 Gast34875
NotSolved
16.08.2017 08:57:11 Gast87363
NotSolved
Rot Suchfunktion VBA (Wildcards)
 16.08.2017 11:24:12 Crazy Tom
NotSolved
16.08.2017 13:48:50 guter Alter
NotSolved
16.08.2017 14:38:39 Crazy Tom
NotSolved
16.08.2017 14:54:59 Gast18061
NotSolved
16.08.2017 14:56:44 Crazy Tom
NotSolved
16.08.2017 15:17:40 Gast5061
NotSolved
16.08.2017 15:35:36 Crazy Tom
NotSolved
21.08.2017 12:44:23 Guter Alter
NotSolved
21.08.2017 17:43:24 Crazy Tom
NotSolved
22.08.2017 08:30:15 guter Alter
NotSolved