Hallo,
ich möchte gerne Werte aus einer Tabelle in eine andere Tabelle in die nächste freie Zeile per cmd Button schreiben. In der Spalte A soll eine fortlaufende Nummer generiert werden. Bekomme immer einen Laufzeitfehler 13.
Wäre nett wenn mir jemand den Fehler erklären kann.
Füge mal den Code an:
Private Sub CommandButton1_Click()
' **********Übertrag von sperr1 zu Liste************
Dim wksOrig As Worksheet
Dim wksStore As Worksheet
Dim lngLastRow As Long
Set wksOrig2 = Worksheets("Sperr1")
Set wksStore = Worksheets("Liste")
With wksStore
wksStore.Range("A2") = 0
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Select
ActiveCell.Offset(1, 0) = ActiveCell + 1
.Cells(lngLastRow, 3) = wksOrig.Range("A5")
.Cells(lngLastRow, 4) = wksOrig.Range("E24")
.Cells(lngLastRow, 5) = wksOrig.Range("F2")
.Cells(lngLastRow, 6) = wksOrig.Range("H2")
.Cells(lngLastRow, 7) = wksOrig.Range("C4")
.Cells(lngLastRow, 8) = wksOrig.Range("H4")
.Cells(lngLastRow, 9) = wksOrig.Range("D2")
.Cells(lngLastRow, 10) = wksOrig.Range("C15")
.Cells(lngLastRow, 11) = wksOrig.Range("D15")
.Cells(lngLastRow, 12) = wksOrig.Range("C16")
.Cells(lngLastRow, 13) = wksOrig.Range("D16")
.Cells(lngLastRow, 14) = wksOrig.Range("C17")
.Cells(lngLastRow, 15) = wksOrig.Range("E13")
.Cells(lngLastRow, 16) = wksOrig.Range("H13")
.Cells(lngLastRow, 17) = wksOrig.Range("C9")
.Cells(lngLastRow, 18) = wksOrig.Range("D9")
.Cells(lngLastRow, 19) = wksOrig.Range("E9")
.Cells(lngLastRow, 20) = wksOrig.Range("F9")
.Cells(lngLastRow, 21) = wksOrig.Range("G9")
.Cells(lngLastRow, 22) = wksOrig.Range("H9")
.Cells(lngLastRow, 23) = wksOrig.Range("C12")
.Cells(lngLastRow, 24) = wksOrig.Range("D12")
.Cells(lngLastRow, 25) = wksOrig.Range("E12")
.Cells(lngLastRow, 26) = wksOrig.Range("F12")
.Cells(lngLastRow, 27) = wksOrig.Range("G12")
.Cells(lngLastRow, 28) = wksOrig.Range("H12")
.Cells(lngLastRow, 29) = wksOrig.Range("F6") 'Schichtführer/Mitarbeiter
.Cells(lngLastRow, 30) = wksOrig.Range("D6")
End With