VBA Formular Einträge in zweite Tabelle übertragen
26.11.2018 15:00:25
Fischermanns
folgende Schwierigkeit besteht:
Ich habe in Excel ein VBA Formular. Diese trägt Daten in die erste Tabelle ein.
Aufgrund von Kriterien sollen die Daten aus der ersten Tabelle über eine Schaltfläche in eine zweite Tabelle eingetragen werden. Dazu soll immer geschaut werden, wo eine freie Zelle dazu möglich ist. Von Tabelle 1 nach Tabelle 2 geht. Von Tabelle 2 aber wieder zurück nach Tabelle 1 geht es nicht.
Hier mal mein Code von Tabelle 1 nach Tabelle 2:
Private Sub CommandButton4_Click()
Worksheets("Tabelle2").Rows("3:3").Insert Shift:=xlDown
Range("A2,B2,C2,D2,E2,F2,G2,H2,I2,J2,K2,L2,M2,N2,O2,P2").Copy Worksheets("Tabelle2").Range("A3") _
If ComboBox1.ListIndex > 0 Then
Rows(ComboBox1.ListIndex + 1).Delete
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
CheckBox1 = ""
CheckBox2 = ""
CheckBox3 = ""
CheckBox4 = ""
CheckBox5 = ""
CheckBox6 = ""
CheckBox7 = ""
TextBox7 = ""
UserForm_Initialize
End If
End Sub
Private Sub CommandButton5_Click()
Worksheets("Tabelle1").Rows("3:3").Insert Shift:=xlDown
Range("A2,B2,C2,D2,E2,F2,G2,H2,I2,J2,K2,L2,M2,N2,O2,P2").Copy Worksheets("Tabelle1").Range("A3") _
End Sub
Was machen ich falsch?
Danke und