Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Eleve vom 10.03.2022, 11:51 Options

Listboxeinträge aus Userform in Datenfeld in Modul übertragen

Hallo Leute,

hier mein Projekt.

Ich suche mit einem Userform Daten aus einer Tabelle.
Die Daten weden in dem Userform in einer Listbox mit 7 Spalten angezeigt.

Wie kann ich nun diese Daten aus der Listbox als neuen Datensatz für eine weitere Suche verwenden und das Ergebnis der Suche wieder in der gleichen Listbox ausgeben?
Hier mein "nichtfunktionsfähiger Codeschnipsel".


Private Sub CommandButton2_Click()
Dim sSuche As String
Dim i As Integer
ReDim fSuchInSuche(ListBox1.ListCount, 7)

'Suchstring definieren aus Textbox
sSuche = TextBox1.Value

'Array für Übergabe an Modul füllen
For i = 1 To ListBox1.ListCount
fSuchInSuche(i, 1) = ListBox1.List(i).Column(1).Value
fSuchInSuche(i, 2) = ListBox1.List(i).Column(2).Value
'... bis Spalte 7
Next i

'Suchcode aufrufen und Werte übergeben
Modul14.In_Ergebnissen_suchen ByVal sSuche, fSuchInSuche
End Sub

Vielen Dank schon mal für Eure Zeit.

Eleve

Antwort schreiben

Antwort 1 von coros vom 11.03.2022, 07:39 Options

Halle Eleve,

nachfolgend mal ein Beispielcode, der Dir die 7 Spalten der Auswahl aus der ListBox in eine Variable schreibt. AM Ende werden Dir die Werte der 7 Stellen in einer MessageBox angezeigt. Das mit der MessageBox benötigst Du nicht, da ich es nur für das Beispiel eingebaut habe.

Kopiere den Code in das VBA-Projekt der UserForm mit der ListBox und dem Command2-Button.
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Private Sub CommandButton2_Click() Dim varVariable(7) As Variant Dim intFüllen As Integer If ListBox1.ListIndex >= 0 Then For intFüllen = 0 To 6 varVariable(intFüllen) = ListBox1.List(ListBox1.ListIndex, intFüllen) Next End If MsgBox varVariable(0) _ & vbLf & varVariable(1) _ & vbLf & varVariable(2) _ & vbLf & varVariable(3) _ & vbLf & varVariable(4) _ & vbLf & varVariable(5) _ & vbLf & varVariable(6) End Sub
Den Code für die Suche musst Du ja schon haben, da Du ja geschrieben hast

Zitat:
Ich suche mit einem Userform Daten aus einer Tabelle.
Die Daten weden in dem Userform in einer Listbox mit 7 Spalten angezeigt.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 2 von Eleve vom 11.03.2022, 15:29 Options

Halo Oliver,

vielen Dank für die schnelle Antwort. Ich bin gar nicht auf die Idee gekommen die Suchabfrage direkt im Userform zu machen.
Deshalb hatte ich das Problem wie ich die Werte aus der Tabelle an ein Modul übergeben kann - mit call und byval geht das bei mehrdimensionalen Datenfelder wohl nich, oder?

Antwort 3 von coros vom 11.03.2022, 16:52 Options

Hallo Eleve,

ich verstehe Deine Frage aus AW2 leider nicht. Du musst wohl schon etwas deutlicher werde, wass genau Du meinst bzw. willst.

Ich meinte jedenfalls nicht, dass Du die Suchabfrage direkt in der UserForm machen sollst, sondern, dass Du ja bereits laut Deiner Frage eine Suchenfunktion hast, da Du, wie bereits erwähnt, geschrieben hast

Zitat:
Ich suche mit einem Userform Daten aus einer Tabelle.
Die Daten weden in dem Userform in einer Listbox mit 7 Spalten angezeigt.

Somit gehe ich davon aus, dass Du bereits eine Suchabfrage startetst. Diese kannst Du doch auch für das andere heranziehen.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 4 von fedjo vom 11.03.2022, 18:43 Options

Hallo Eleve,
hab dir mal eine Musterdatei zum Suchen in einer UserForm erstellt, vielleicht hilft dir das weiter.

Gruß
fedjo

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken