Ich möchte gerne die Eingaben die ich in eine UserForm gemacht habe auf 2 Tabellenblätter eintragen lassen. Die beiden Blätter sind identisch. Wies für eins geht und danach fürs andere hab ich hingekriegt. Nur wird der Code dann ellenlang. Kann dies auch abgekürzt werden. Hier mal ein Teil des Codes:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set Frm = UserForm1
Sheets("SU").Activate
Rows("5:5").Select
Selection.Insert Shift:=xlDown
Range("A5").Select
With Frm
ActiveCell.Value = .TextBox7.Value
ActiveCell.Offset(0, 1).Value = .TextBox8.Value
ActiveCell.Offset(0, 2).Value = .ComboBox1.Value
ActiveCell.Offset(0, 3).Value = .TextBox9.Value
ActiveCell.Offset(0, 4).Value = .TextBox10.Value
ActiveCell.Offset(0, 5).Value = .TextBox11.Value
ActiveCell.Offset(0, 6).Value = .TextBox12.Value
If UserForm1.CheckBox5.Value = True Then
ActiveCell.Offset(0, 7).Value = "1"
End If
und so weiter bis end with dann für das neue Blatt nochmals dasselbe.
Weiss nicht genau ob ich zwei Sheets aufs mal aktivieren kann. Zum Beispiel mit einem and Befehl oder so.
Besten Dank für euere Hilfe
Gruss Roger