Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1868to1872
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1868to1872
1868to1872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform Suchmaske + Bearbeiten

Userform Suchmaske + Bearbeiten
08.02.2022 11:42:58
M.Bub
Hallo liebe Community,
Ich habe ein folgendes Problem:
In meiner Userform ist eine Suchmaske Integriert, wo man nach dem Namen, Vornamen etc. suchen kann. Die Suchergebnisse erscheinen in einer ListBox.
Jetzt kommt mein Problem.
Aus der ListBox sollen die TextBoxen mit dem jeweiligen Label wie Name, Vorname etc. durch einen Doppelklick ausgefüllt werden zu der entsprechenden gesuchten Person.
Die ganzen Informationen kommen aus einem vorhandenen Tabellenblatt (Tabelle2).
https://www.herber.de/bbs/user/150986.xlsm
Für eure Mithilfe wäre ich euch sehr dankbar.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform Suchmaske + Bearbeiten
08.02.2022 12:44:41
JoWE
Hallo,
versuchs mal so:

Option Explicit
Private Sub ListBox1_Click()
Dim ze As Long
Dim x As Long
For x = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(x) = True Then
ze = Sheets("Tabelle2").Range("A:A").Find(Me.ListBox1.List(x)).Row
'da die Personalnummer eindeutig ist wird nur danach gesucht
'und die gefu8ndene Zeilennummer in die VAriable ze übergeben
With Me
.TextBox3 = Sheets("Tabelle2").Range("A" & ze)
.TextBox11 = Sheets("Tabelle2").Range("D" & ze)
.TextBox10 = Sheets("Tabelle2").Range("C" & ze)
.TextBox9 = Sheets("Tabelle2").Range("E" & ze)
.TextBox8 = Sheets("Tabelle2").Range("F" & ze)
.TextBox7 = Sheets("Tabelle2").Range("G" & ze)
.TextBox6 = Sheets("Tabelle2").Range("H" & ze)
.TextBox5 = Sheets("Tabelle2").Range("B" & ze)
.TextBox4 = Sheets("Tabelle2").Range("I" & ze)
End With
End If
Next x
End Sub
Gruß
Jochen
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige