Werte aus Eigabemaske in Tabellen per Commandbuttn
Jeron
ich habe folgendes Problem:
Ich habe ein Userform erstellt, wie folgt aufgebaut:
Textbox1 : Hier gibt der User eine Zahl ein
ComboBox2: Hier wählt der User entweder die Zahl 1 oder 2
ComboBox1: Hier wählt der User aus dem Tabellenblatt "Couponbelegung2009" per Dropdown aus einer Liste aus Spalte A einen Namen
Über den Commandbutton1 "Daten Exportieren" sollen jetzt die die zwei Eingaben (Textbox1 +Combobox2) in das Tabellenblatt "Couponbelegung2009" exportiert werden.
Das Programm soll die Eingabe von ComboBox1 nehmen und prüfen in welcher Zeile der gleiche Name in Spalte A auf dem Tabllenblatt "Couponbelegung2009" steht dann sollen in diese Zeile die beiden anderen Werte(Textbox1+Combobox2) gespielt werden.
Der Wert von Textbox1 soll in die entsprechende Zeile von Spalte C (Tabellenblatt "Coupponbelegung 2009") gespielt werden
Der Wert von Combobox1 soll in die entsprechender Zeile von Spalte B (Tabellenblatt "Coupponbelegung 2009") gespielt werden
Ähnlich einem Sverweis der auch ein Suchkriterium hat und wenn er das Suchkriterium in einer Spalte
gefunden hat, aus den Spalten daneben Informationen zieht. Hier sollen aber die Informationen in Spalte B(Combobox2) und C(Textbox1) eingefügt werden.
Folgenden Programmcode habe ich für mein Userform:
Option Explicit
Private Sub ComboBox2_Change()
'hier soll der Wert in Spalte B im Tabellenblatt "Couponbelegung2009" exportiert werden und _
zwar
'genau in die Zeile, in der auch der der Eintrag von ComboBox1 mit dem Zellwert in Spalte A
'übereinstimmt
End Sub
Private Sub TextBox1_Change()
'hier soll der Wert in Spalte C im Tabellenblatt "Couponbelegung2009" exportiert werden und _
zwar
'genau in die Zeile, in der auch der der Eintrag von ComboBox1 mit dem Zellwert in Spalte A
'übereinstimmt
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Couponbelegung2009!A8:A49" & Worksheets("Couponbelegung2009").Cells(Rows. _
_
Count, 1).End(xlUp).Row
With ComboBox2
.AddItem "1"
.AddItem "2"
End With
End Sub
Private Sub ComboBox1_Change()
End Sub
Private Sub CommandButton1_Click()
'Über diesen Button sollen die Daten (von TextBox1 und Combox2)
'per Klick in das Tabellenblatt "Couponbelegung2009"
'exportiert werden
End Sub
Danke schon mal im vorraus, wenn sich das Problem jemand ansieht.
Viele Grüße
aus München
Jeron