Userform automatisch füllen bei Eingabe

Hallo liebe Profis und alle, die es so wie ich erst werden wollen.
Ich habe da ein kleines Anliegen bezüglich einer Userform. Ist es möglich, dass man z.B. Textboxen bei der Eingabe automatisch aus einer Vorlage befüllen kann? Konkret stelle ich mir das so vor, dass es eine Namensliste gibt, in der verschiedene Daten stehen, sagen wir mal Nachname, Vorname, Name (bestehend aus Nachname , Vorname), Geburtstag, Straße, PLZ und Wohnort.
- Nun soll in der Userform als erstes der Nachname eingetragen werden und bei der Eingabe soll gleich mit der Namensliste verglichen und vorgeschlagen werden.
- Wenn der Nachname bereits vorhanden ist, soll im Feld Vorname gleich der Vorname stehen
- Im dritten Feld soll beides (Nachname , Vorname) zusammen geführt werden, um damit alle folgenden Felder zu befüllen, falls die Daten bereits vorhanden sind
- Sind keine Daten in der Liste vorhanden, muss alles manuell eingetragen werden.
Kann man das über eine Userform verwirklichen oder ist zu hoch gegriffen? Muss ich das bei UserForm_Initialize abfragen?
Das es in einer Tabelle an sich funktioniert weiß ich, dafür gibt es viele schöne Funktionen wie z.B. AGGREGAT, INDEX & VERGLEICH etc.
Vielen Dank vorab schon einmal für Eure Mithilfe.
Gruß Klaus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo zusammen,
also ich war die Tage schon fleißig und habe einiges selber hinbekommen. Die meisten Sorgen macht mir der Bereich bei der ComboBox2.
Ich habe 2 Tabellenblätter (Personal & Data), wobei für die User das Blatt Data ausgeblendet ist. Dort wird in der Spalte(11) "K" aus dem Vornamen (Spalte D) und dem Nachnamen (Spalte C) durch =C2 & " , " & D2 der Suchparameter berechnet. Dieser wird bei der Eingabe in der Userform ja auch durch TextBox3.Value = ComboBox1.Value & " , " & ComboBox2 ermittelt (zumindest wird er richtig angezeigt bei der Eingabe) und soll miteinander verglichen werden. Leider klappt die Überprüfung nicht und bei jeder Eingabe kommt die MsgBox mit der Meldung, dass der Mitarbeiter neu ist.
Was übersehe ich bzw. was muss ich ändern, damit die Überprüfung funktioniert und was muss ich schreiben, damit nach der Suche in "Data" auch vom Beginn der Zeile aus angefangen wird mit den Ausgaben?


Private Sub Button_Fertig_Click()
Unload Personal
End Sub


Private Sub ComboBox1_Enter()
ComboBox1.BackColor = vbYellow
End Sub


Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.BackColor = vbWhite
End Sub


Private Sub ComboBox2_Enter()
ComboBox2.BackColor = vbYellow
End Sub


Private Sub ComboBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox2.BackColor = vbWhite
Dim rngZelle As Range
'Hier soll jetzt eigentlich in dem Tabellenblatt "Data" nach bereits vorhandenen Einträgen gesucht werden
'Diese stehen in Spalte "K" also eigentlich in .Columns(11) und diese Spalte ist aufgebaut wie die TextBox3
'Nun wird mir aber jedes mal gesagt, dass die eingegebenen Daten neu sind, auch wenn sie in der Liste stehen
'Zusätzlich habe ich die dumpfe Ahnung, dass durch rngZelle.Offset(0, 2) die Zellen nach dem gefundenen Eintrag genommen werden
'und nicht ab dem Beginn der gefundenen Zeile
With Sheets("Data")
Set rngZelle = .Columns(11).Find(TextBox3, lookat:=xlWhole)
If Not rngZelle Is Nothing Then
TextBox4 = rngZelle.Offset(0, 2) 'Personalnummer
TextBox5 = rngZelle.Offset(0, 6) 'Kostenstelle
TextBox6 = rngZelle.Offset(0, 7) 'Kostenstellen Name
TextBox7 = rngZelle.Offset(0, 8) 'Zuständig
Else
MsgBox "Der/die Mitarbeiter/in ist neu"
End If
End With
Set rngZelle = Nothing
End Sub


Private Sub ComboBox3_Enter()
ComboBox3.BackColor = vbYellow
End Sub


Private Sub ComboBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox3.BackColor = vbWhite
End Sub


Private Sub ComboBox4_Enter()
ComboBox4.BackColor = vbYellow
End Sub


Private Sub ComboBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox4.BackColor = vbWhite
End Sub


Private Sub ComboBox1_Change() 'Nachname
TextBox3.Value = ComboBox1.Value & " , " & ComboBox2
End Sub


Private Sub ComboBox2_Change() 'Vorname
TextBox3.Value = ComboBox1.Value & " , " & ComboBox2
End Sub


Private Sub Button_Take_Click()
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1
ActiveSheet.Cells(last, 4).Value = Personal.ComboBox2.Value
ActiveSheet.Cells(last, 5).Value = Personal.ComboBox1.Value
ActiveSheet.Cells(last, 10).Value = Personal.ComboBox3.Value
ActiveSheet.Cells(last, 13).Value = Personal.ComboBox4.Value
'Unload Personal
End Sub


Private Sub UserForm_Initialize()
Personal.Height = 400
Personal.Width = 320
Personal.ComboBox1.RowSource = "Data!C:C" 'Nachname
Personal.ComboBox2.RowSource = "Data!D:D" 'Vorname
Personal.ComboBox3.RowSource = "Tabelle1!C2:C3" 'Personalklasse
Personal.ComboBox4.RowSource = "Tabelle1!B:B" 'Funktion
End Sub

Private Sub ComboBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) ComboBox2.BackColor = vbWhite Dim rngZelle As Range With Sheets("Data") Set rngZelle = .Columns(11).Find(What:=TextBox3.Value, LookIn:=xlValues, lookat:=xlWhole) If Not rngZelle Is Nothing Then TextBox4.Value = rngZelle.Offset(, -9).Value TextBox5.Value = rngZelle.Offset(, -5).Value TextBox6.Value = rngZelle.Offset(, -4).Value TextBox7.Value = rngZelle.Offset(, -3).Value ComboBox4.Value = rngZelle.Offset(, -2).Value Else MsgBox "Der/die Mitarbeiter/in ist neu" End If End With Set rngZelle = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Userform automatisch füllen bei Eingabe

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform automatisch füllen bei Eingabe

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread