Daten aus UserForm in Tabelle übertragen
27.11.2007 11:58:38
Thomas
ich verwende Excel Version 2003.
ich stehe mal wieder vor einem kleinen Problem. Ich habe eine UserForm gezeichnet, welche mit ComboBox-Feldern von ComboBox1 bis ComboBox5 bestückt ist. Nach diesen ComboBoxen 1-5 enthält meine UserForm noch 3 TextBoxen 1-3, welche von den Anwendern nach Klick auf ComboBox5 angewählt werden, um dort Texteinträge vorzunehmen.Die Anwender klicken auf die jeweilige ComboBox von 1 - 5, wählen einen Eintrag aus und gelangen nach ComboBox 5, wie gesagt, zu TextBox1, dann zu 2 und schließlich zu 3.
Jetzt zu meinem Problem: Die ausgewählten Einträge aus ComboBox1 - 5 schreibe ich mit diesem Listing
Private Sub CommandButton1_Click()
Set Frm = UserForm1
Sheets("Tabelle1").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
With Frm
ActiveCell.Value = .ComboBox1.Value
ActiveCell.Offset(0, 1).Value = ComboBox2.Value
ActiveCell.Offset(0, 2).Value = ComboBox3.Value
ActiveCell.Offset(0, 3).Value = ComboBox4.Value
ActiveCell.Offset(0, 4).Value = ComboBox5.Value
End With
End Sub
in die Tabelle. Wie aber bekomme ich die Texteinträge von TextBox1 bis TextBox3 in die Tabelle? Wenn ich versuche, die entsprechend abgeänderten Befehle in das o. g. Listing einzufügen, stimmt gar Nix mehr.
Kann mir da Jemand helfen?
Vielen Dank. Thomas
Bitte Antworten an samoht44@web.de
Vielen Dank.
Mit den freundlichsten Grüßen
Thomas W. Donner
Es ist noch kein Meister vom Himmel gefallen