Ich möchte aus einer UserForm die Eingaben aus den TextBoxen in eine Tabelle schreiben. Dabei muss direkt in das Arbeitsblatt gewechselt werden das in der ComboBox1 angegeben ist diesen Namen aber nicht mitnehmen sondern erst ab TextBox4 in die Active Zelle1 und so weiter reinschreiben. Vorgängig wird eine leere Zeile eingefügt. Hab es mit nachstehendem Code probiert. Nun bleibt er mir aber hängen und verweist auf "ActiveCell.Offset(0, 1).Value = .TextBox4.Value" mit dem Fehler Laufzeitfehler (429) Objekt erforderlich. Was ist an diesem Code Falsch? Hat jemand eine gute Idee?
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Worksheets(Me.ComboBox1.Text).Activate
Rows("5:5").Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(0, 1).Value = .TextBox4.Value
ActiveCell.Offset(0, 2).Value = .TextBox1.Value
ActiveCell.Offset(0, 3).Value = .TextBox3.Value
ActiveCell.Offset(0, 4).Value = .TextBox2.Value
End With
Application.Calculate
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Besten Dank
Gruss Roger