Thema Datum  Von Nutzer Rating
Antwort
Rot Suchfeld in Userform
14.09.2015 15:55:15 Pascal
NotSolved

Ansicht des Beitrags:
Von:
Pascal
Datum:
14.09.2015 15:55:15
Views:
999
Rating: Antwort:
  Ja
Thema:
Suchfeld in Userform
Hallo zusammen, Ich habe eine Artikeldatenbank in Excel. Dort habe ich auf einem Tabellenblatt ein Suchfeld(B2), durch Eingabe öffnet sich eine Userform. durch Bestätigung in der Userform wird eine Artikelnummer in das Feld D4 eingetragen. Der Rest funktioniert dann über diverse Sverweise. Jetzt möchte ich aber alle meine Daten in einer neuen Userform darstellen. Dieser Code ist in der Ursprünglichen Form: Option Explicit Sub Start() Dim ArData, n& ArData = Find_Data(Range("B2").Value, 2) If IsArray(ArData) Then If UBound(ArData) > 1 Then UserForm1.ListBox1.List = Application.Transpose(ArData) UserForm1.Show Else Range("D4").Value = ArData(1, 1) End If Else Range("D4").Value = "" End If End Sub Function Find_Data(varValue, SuchSpalte&) Dim rng As Range, rngSuchB As Range, strErste$, ArErg(), nn&, n& With Tabelle5 Set rngSuchB = .Columns(SuchSpalte) Set rng = rngSuchB.Find(What:=varValue, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) If Not rng Is Nothing Then n = n + 1 ReDim Preserve ArErg(1 To 3, 1 To n) For nn = 1 To 3 ArErg(nn, n) = rng.EntireRow.Cells(1, nn) Next nn strErste = rng.Address Set rng = rngSuchB.FindNext(rng) Do While rng.Address <> strErste n = n + 1 ReDim Preserve ArErg(1 To 3, 1 To n) For nn = 1 To 3 ArErg(nn, n) = rng.EntireRow.Cells(1, nn) Next nn Set rng = rngSuchB.FindNext(rng) Loop Find_Data = ArErg End If End With End Function Wie muss ich das jetzt anpassen? Das Suchfeld soll jetzt TextBox1 in der neuen Userform sein und die Artikel Nummer soll in TextBox2 der Userform eingetragen werden. Ich hoffe hier kann mir jemand helfen. Beste Grüße Pascal

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
Rot Suchfeld in Userform
14.09.2015 15:55:15 Pascal
NotSolved