Formelproblem VBA
10.10.2016 22:26:14
Kurt
kann mir Jemand bei den unten aufgeführten Sachverhalt helfen, warum nur die Null und die ungerade Zahl(en) in Tabelle2 kopiert wird(werden), nicht aber die gerade Zahl(en) bzw. Zahlen. Ich habe es bis zur 40 getestet, immer das gleiche Problem.
Vielen Dank
Kurt
Option Explicit
Private Sub Zahl0_Click()
Sheets("Code").Range("A" & Rows.Count).End(xlUp).Offset(1) = 0
Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
Set WkSh_Q = ThisWorkbook.Worksheets("Code")
Set WkSh_Z = ThisWorkbook.Worksheets("Tabelle2")
WkSh_Q.Range("C3:BK3").Copy
WkSh_Z.Range("A" & WkSh_Z.Cells(WkSh_Z.Rows.Count, 3).End(xlUp).Row + 1).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Private Sub Zahl1_Click()
Sheets("Code").Range("A" & Rows.Count).End(xlUp).Offset(1) = 1
Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
Set WkSh_Q = ThisWorkbook.Worksheets("Code")
Set WkSh_Z = ThisWorkbook.Worksheets("Tabelle2")
WkSh_Q.Range("C4:BK4").Copy
WkSh_Z.Range("A" & WkSh_Z.Cells(WkSh_Z.Rows.Count, 3).End(xlUp).Row + 1).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Private Sub Zahl2_Click()Sheets("Code").Range("A" & Rows.Count).End(xlUp).Offset(1) = 2
Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
Set WkSh_Q = ThisWorkbook.Worksheets("Code")
Set WkSh_Z = ThisWorkbook.Worksheets("Tabelle2")
WkSh_Q.Range("C5:BK5").Copy
WkSh_Z.Range("A" & WkSh_Z.Cells(WkSh_Z.Rows.Count, 3).End(xlUp).Row + 1).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub