Zellenwert durch Userform immer mit 1 addieren
30.09.2015 16:09:11
Manuel
Ich habe eine Userform erstellt, die genauso funktioniert wie ich es gerne hätte - bis auf eine Kleinigkeit.
Ich möchte gerne immer in die jeweilige Zelle in Spalte 7 +1 addieren im Vergleich zur vorherigen Reihe.
Bisher sieht mein Code so aus um mit dem Command Button alles zu übertragen.
Private Sub CommandButton2_Click()
Dim xZeile As Long
If ComboBox3.Value = "Choose Company..." Or TextBox12.Value = "" Then
MsgBox ("You must choose a Company!")
Exit Sub
Else
Sheets("Test").Activate
ActiveSheet.Unprotect
If ComboBox2.ListIndex = 0 Then
xZeile = Sheets("Test").[B65536].End(xlUp).Row + 1
Else
xZeile = ComboBox2.ListIndex + 1
End If
Sheets("Test").Cells(xZeile, 1) = TextBox12 'Company
Sheets("Test").Cells(xZeile, 3) = TextBox4 'Datum
Sheets("Test").Cells(xZeile, 2) = TextBox2 'Product Group e.g. Sprue Pliers
Sheets("Test").Cells(xZeile, 5) = TextBox5 'Problem...
Sheets("Test").Cells(xZeile, 4) = TextBox6 'Bearbeiter
'Range("G7").Select
'Selection.Copy
'Sheets("Test").Cells(xZeile, 7) = ActiveSheet.Paste
'Application.CutCopyMode = False
TextBox1 = ""
TextBox2 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox12 = ""
UserForm_Initialize
Sheets("Parts").Activate
Sheets("Test").Activate
Me.Hide
End If
End Sub
Wäre super wenn jemand einen Rat hat.