ComboBox Auswahl füllt TextBox

Liebe Gemeinde,
ich mal wieder mit einem neuen Problem, bei dem ich trotz Suche nicht weiterkomme.
Hier meine Arbeitsmappe: https://www.herber.de/bbs/user/97013.xlsm
Mittels klick auf einen Button wird ein Formular geöffnet, welches zwei ComboBoxen und jeweils 2 TextBoxen enthält.
Die linke ComboBox im Formular soll mir alle Daten (date) aus Tabelle "BlitzanfragenWeb" und auch die jeweils zugehörigen Namen der Einrichtung (ag_einr_name) in einer Zeile und mittels Komma getrennt, anzeigen. Mittels Klick auf die entsprechende Zeile in der ComboBox sollen dann die jeweiligen Zeilenwerte in die TextBoxen übertragen werden.
Das funktioniert bislang gar nicht - warum auch immer.
Die rechte ComboBox soll mir alle Nachnamen, Vornamen aus der Tabelle "Freiberufler" listen. Mittels klick auf die entsprechende Zeile in der ComboBox sollen dann die jeweiligen Zeilenwerte in die Textboxen übertragen werden. Bislang listet die ComboBox mir den Vornamen und Nachnamen. Darüber bin auch sehr froh.
Allerdings benötige ich dringend Hilfe, beim Füllen der TextBoxen. Hier komme ich nicht weiter.
Mein bisheriges Formular enthält Codeschnipsel verschiedener Posts. Leider fehlt mir das notwendige Grundverständnis um alles zum Laufen zu bringen.
Wer hilft mir bitte weiter? Ich freue mich auf eure Antworten.
Gruß
Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andreas,
es gibt jetzt verschiedene Wege, um die Zeile zu bestimmen, die zum in den Comboboxen gehörigen Eintrag zu ermitteln. Da du in den Comboboxen alle Datenzeilen aus den Tabellenblättern in der Originalreihenfolge als Auswahl hast, kann man die Zeile ermitteln, indme man zum Listindex der Combobox einne konstanten wert addiert.
Gruß
Franz
Der Code zur Schaltfläche muss dann etwa wie folgt aussehen. Dabei spielt es ggf. eine Rolle, ob du im Blatt "Auftrag" auch mit einer Tabelle arbeitest.

Private Sub CommandButton8_Click()
Application.ScreenUpdating = False
Dim myRowBAW As Long ' Zeile in BlitzanfragenWeb
Dim myRowFB As Long ' Zeile in Freiberufler
Dim myLastRow2 As Long ' für die letzte Zeile in Auftrag
With Me.ComboBoxBl1
If .ListIndex  -1 Then
myRowBAW = .ListIndex + 2
Else
MsgBox "Bitte erst eine Webblitzanfrage auswählen!", , "Prüfung Datenauswahl"
End If
End With
With Me.ComboBoxFB1
If .ListIndex  -1 Then
myRowFB = .ListIndex + 2
Else
MsgBox "Bitte erst Freiberufler auswählen!", , "Prüfung Datenauswahl"
End If
End With
'Einfügezeile bestimmen - Deckt auch den Fall ab, das ein Tabellen-Objekt angelegt ist
With Sheets("Auftrag")
myLastRow2 = .Cells(.Rows.Count, 1).End(xlUp).Row ' sucht die letzte gefüllte Zelle in  _
Spalte A
If myLastRow2

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ComboBox Auswahl füllt TextBox

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread