Die Werte aus den beiden Zellen ( N4 und O4 ) stehen auf dem Tabellenreiter StücklisteZeichnen.
Jetzt sollen die beiden Zellen auf die nächste Seite Tabellenreiter (TabelleZeichen).
Das ganze soll fortlaufend geschrieben werden.
Bis zu dem fett markierten Bereich klappt alles, danach läuft nix mehr
HILFE ;)
Private Sub CommandButton1_Click()
Dim Z As String
Dim Koordinate As String
If CheckBox1 Then
Z = "1"
ElseIf CheckBox2 Then
Z = "2"
ElseIf CheckBox3 Then
Z = "3"
ElseIf CheckBox4 Then
Z = "4"
ElseIf CheckBox5 Then
Z = "5"
ElseIf CheckBox6 Then
Z = "6"
ElseIf CheckBox7 Then
Z = "7"
ElseIf CheckBox8 Then
Z = "8"
Else
Z = ""
End If
Sheets("StücklisteZeichnen").Range("M4").Value = Z
'Koordinate = Range("N4:O4").Value
With Sheets("StücklisteZeichnen")
.Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0).Resize(1, 1).Value = Sheets("TabelleZeichnen") _
.Range("A2:A3").Value
End With
Me.Hide
End Sub