Zellenwert durch Userform immer mit 1 addieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Zellenwert durch Userform immer mit 1 addieren
von: Manuel
Geschrieben am: 30.09.2015 16:09:11

Und ein hoffentlich letztes mal :)
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.

Bild

Betrifft: AW: Zellenwert durch Userform immer mit 1 addieren
von: ChrisL
Geschrieben am: 30.09.2015 16:13:32
Hi Manuel
Falls ich richtig verstehe:
Sheets("Test").Cells(xZeile, 7) = Sheets("Test").Cells(xZeile - 1, 7) + 1
cu
Chris

Bild

Betrifft: AW: Zellenwert durch Userform immer mit 1 addieren
von: Manuel
Geschrieben am: 30.09.2015 20:59:20
Hey Chris!
Klappt super, hab vielen Dank für deine Arbeit!!
Grüße,
Manuel

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellenwert durch Userform immer mit 1 addieren"