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
|