Userform TextBox füllen aus Tabelle und in Tabelle

Guten Tag, Kai,
willkommen beim Microsoft Community Forum.
Diese Frage übersteigt den Rahmen der Answers Support Community. Der beste Ort, um Hilfe zu Userform von VBA zu erhalten, ist Microsoft Learn, wo fortgeschrittene Benutzer wie Sie unterstützt werden. (Dieses Forum ist auf Englisch und Sie brauchen Ihre Fragen auf Englisch zu stellen.)
Ich werde Ihnen nicht helfen können, aber ich lasse die Frage offen, falls einer unserer tollen Freiwilligen eine Idee für Sie hat.
Vielen Dank für Ihr Verständnis und Ihre wertvolle Zeit.
Ich wünsche Ihnen einen schönen Tag und bleiben Sie gesund!
Mit freundlichen Grüßen
Olivia | Microsoft Community Support Spezialist

Hallo Kai,
schau mal in diese Datei, zuerst in die einfache Userform.
https://www.dropbox.com/s/x0o1wazwtfo4fcm/Simple_Userform.xlsm?dl=1
Andreas.

Hallo,



wozu brauchst du das? Wenn es rein um die Anzeige geht, kannst du doch mit der eingebauten Maske arbeiten. Dort Kriterien wählen und in Feld1 den gewünschten Wert schreiben und alles Weitere geht dann von allein.

Sonst ein anderer Ansatz, der für dich vielleicht verständlicher ist (Musst du noch weiter ausfüllen):



Private Sub CommandButton1_Click()

Dim lngSuch

Dim i As Integer

Dim LRow As Long

Dim rngC As Range

LRow = Cells(Rows.Count, 1).End(xlUp).Row

lngSuch = Me.TextBox2.Value

Set rngC = Range("A1:A" & LRow).Find(lngSuch, _

Range("A" & LRow), xlValues)

With UserForm1

If Not rngC Is Nothing Then

.TextBox1 = Cells(rngC.Row, 1)

.TextBox3 = Cells(rngC.Row, 2)

.TextBox4 = Cells(rngC.Row, 3)

.TextBox5 = Cells(rngC.Row, 4)

'......

Else

MsgBox "Wert wurde nicht gefunden"

End If

End With

End Sub



Mit freundlichen Grüßen

Claus

ich weiss, es muss frustrierend sein, einem laien wie mich zu versuchen das programmieren beizubringen.

Quark, dafür sind Foren doch da. ;-)

Ich hab mich auch lange mit sowas in der Art was Claus vorschlägt rumgequält (sorry Claus), und dann ist irgendwann der Groschen gefallen. Ist ganz easy:

Mach eine neue Datei und führ das Makro einmal aus:

Sub Init()

Range("A1:C1") = Array("Nr", "Vorname", "Nachname")

Range("A2:C2") = Array(1, "Andreas", "Killer")

Range("A3:C3") = Array(2, "Bugs", "Bunny")

Range("A4:C4") = Array(3, "Mickey", "Mouse")

Range("A2").Select

End Sub

Dann machst Du eine Userform, erstellst auf der 3 Labels und 3 Textboxen und kopierst den ganzen Code unter meinem Namen da rein und drückst F5 um die Form auszuführen.

Und nun änder mal die Daten in den Textboxen und kuck dabei in die Tabelle.

Das ist der ganze simple Anfang der Excel Datenmaske, wenn Du in der Excel Tabelle bist, dann drück mal Alt-N und dann M.

Andreas.

Option Explicit

Dim ThisRow As Range

Sub LadeDaten()

Dim C As MSForms.Control

Application.EnableEvents = False

For Each C In Me.Controls

If C.Tag <> "" Then

C.Value = Range(C.Tag & ThisRow.Row)

End If

Next

Application.EnableEvents = True

End Sub

Sub SpeicherDaten()

Dim C As MSForms.Control

If Not Application.EnableEvents Then Exit Sub

For Each C In Me.Controls

If C.Tag <> "" Then

If C.Value <> Range(C.Tag & ThisRow.Row) Then

Range(C.Tag & ThisRow.Row) = C.Value

End If

End If

Next

End Sub

Private Sub TextBox1_Change()

SpeicherDaten

End Sub

Private Sub TextBox2_Change()

SpeicherDaten

End Sub

Private Sub TextBox3_Change()

SpeicherDaten

End Sub

Private Sub UserForm_Initialize()

Label1.Caption = Range("A1")

Label2.Caption = Range("B1")

Label3.Caption = Range("C1")



TextBox1.Tag = "A"

TextBox2.Tag = "B"

TextBox3.Tag = "C"



Set ThisRow = ActiveCell

LadeDaten

End Sub

hallo andreas,



liest sich ganz toll. bekomme ich aber irgendwie nicht hin.

in textbox2 steht die variable. auf grund dieser soll die zeile ermittelt werden, deren daten in die anderen textboxen eingetragen werden sollen. daten stehen in tabelle2.

was gehört denn nun in den TAG welcher textbox?



ich weiss, es muss frustrierend sein, einem laien wie mich zu versuchen das programmieren beizubringen.

vielleicht hast du ja irgendwo eine kleine beispieldatei wo ich mir einiges abgucken kann.



danke.