Wert aus UserForm in Zelle schreiben

Hallo zusammen,
in der unten verlinkten Datei werden nacheinander drei voneinander abhängige Abfragen per UserForm gemacht (Name, Region, Postleitzahl). Je nach Auswahl der ersten beiden Userforms befüllen sich die relevanten PLZ im dritten Userform.
Diese PLZ soll in das richtige Tabellenblatt geschrieben werden, also wenn Name: Müller, Region: Mitte, PLZ: 50100, dann soll im Tabellenblatt "Müller" in H4 die 50100 geschrieben werden. Die PLZ gibt es aber auch bei den anderen Namen, also müssen alle getroffenen Auswahlkombinationen für den Eintrag in das richtige Tabellenblatt H4 berücksichtigt werden.
Es gibt ein ausgeblendetes Tabellenblatt "Dropdown_UserForm", wo alle möglichen Kombinationen drin stehen.
Ich habe gelesen, dass man Werte mit z.B. Müller.Range ("H4") = Me.ListBox1.Value übernommen werden, aber wie berücksichtigt man die Abhängigkeiten der drei UserForms?
Vielen Dank schon mal für die Unterstützung.
https://www.herber.de/bbs/user/119999.xlsm
Gruß
Axel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Im letzten UserForm (3) steht folgender Code:

Private Sub CommandButton1_Click()
intPLZ = Me.ComboBox1.Value 'Die Auswahl der PLZ wird in die Public Variable gespeichert
'Alle gewählten Angaben werden ausgegeben:
MsgBox "Es wurde folgende Auswahl getroffen:" & vbCr & _
"Name: " & strName & vbCr & _
"Region: " & strRegion & vbCr & _
"PLZ: " & intPLZ
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim intLastRow, i As Long
intLastRow = Tabelle21.Cells(Rows.Count, 1).End(xlUp).Row 'ermittelt die letzte Zeile in  _
der Tabelle Dropdown_UserForm
For i = 2 To intLastRow 'Geht jede Zeile der Tabelle "Dropdown_UserForm" durch und prüft...
If Tabelle21.Cells(i, "A") = strName And Tabelle21.Cells(i, "B") = strRegion Then '... _
ob der ausgewählte Name und die Region übereinstimmen
Me.ComboBox1.AddItem (Tabelle21.Cells(i, "C").Value) 'Wenn beide Angaben ü _
bereinstimmen, dann wird die entsprechende PLZ in die ComboBox geschrieben
End If
Next
End Sub

Kann folgendes nicht mit dem CommandButton verknüpft werden?:
Der Übertrag der Information aus UserForm3 muss in Abhängigkeit der Kombination aus UserForm1 und UserForm3 erfolgen. Es müsste so lauten (Klartext):
Wenn UserForm1 Name = Müller und UserForm3 PLZ_50100, dann schreib die 50100 in Tabellenblatt "Müller" in Zelle H6 rein
Wenn UserForm1 = Meier und UserForm3 = 50100, dann schreib die 50100 ins Tabellenblatt "Meier" in Zelle H6 rein.
Ich denke, ich werde UserForm2 dann gar nicht mehr benötigen...
Danke nochmals für Unterstützung vorab.
Gruß
Axel

Private Sub CommandButton1_Click() intPLZ = Me.ComboBox1.Value 'Die Auswahl der PLZ wird in die Public Variable gespeichert 'Alle gewählten Angaben werden ausgegeben: If MsgBox("Es wurde folgende Auswahl getroffen:" & vbCr & _ "Name: " & strName & vbCr & _ "Region: " & strRegion & vbCr & _ "PLZ: " & intPLZ & vbLf & vbLf _ & "Sollen die Daten übertragen werden?", vbYesNo, "Information") = vbYes Then Worksheets(strName).Range("H4") = intPLZ Unload Me Else Worksheets(strName).Visible = False Unload Me UserForm1.Show End If End Sub

Private Sub CommandButton1_Click() intNL = Me.ComboBox1.Value 'Die Auswahl der NL wird in die Public Variable gespeichert If vbYes (heißt: wenn der OK-Button geklickt wird) Then Tabelle1.Range("H6") = intNL (wenn Müller) Tabelle2.Range("H6")= intNL (wenn Meier) usw. Else (also wenn der OK-Button nicht geklickt wird) ...mach gar nichts, denn die Anwender werden OK klicken End If End Sub

Private Sub CommandButton1_Click() intPLZ = Me.ComboBox1.Value 'Die Auswahl der PLZ wird in die Public Variable gespeichert Select Case strName Case "Müller" Tabelle1.Range("H4") = intPLZ Case "Meier" Tabelle2.Range("H4") = intPLZ Case "Schulze" Tabelle13.Range("H4") = intPLZ Case "Schmidt" Tabelle4.Range("H4") = intPLZ Case Else End Select Unload Me End Sub

Beliebteste Forumthreads (12 Monate)

Wert aus UserForm in Zelle schreiben

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wert aus UserForm in Zelle schreiben

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread