kann keinen Wert zu/von einer anderen Zelle senden

Question

Ich dachte an mich selbst, dass ich anständig Erfahrung in der Erstellung eines VBA-Code habe, aber diese vermeintlich einfache Aufgabe ist verheerend schwer ... oder? Ich versuche, mehrere Dokumente mit unterschiedlichen Namen zu erstellen, und in jeder Zelle gibt es nur zwei Zellen. Problem ist, dass ich die Wertänderung nicht einmal überwinden kann.

Ich weiß, es gibt verschiedene Möglichkeiten, dies zu erreichen, und ich habe sie irgendwie richtig bekommen, was ich brauchte. Mein Problem ist - ich habe absolut keine Ahnung, warum der Code unten nicht funktioniert. Der Fehler, den ich bekommen ist „Laufzeit error'1004' : Anwendung definiert oder-Objekt definiert Fehler“ und highlited ist die erste Zeile in for-Schleife

"Sheets("List1").Range("C2") = Sheets("výroba").Range(Cells(row, 1)).Value 

Kann jemand sagen, was ist das Problem?

Code:

Sub pal() 

Dim rows_total As Integer 
Dim row As Integer 



rows_total = Application.CountA(Worksheets("výroba").Range("A:A")) 


For row = 1 To rows_total 

Sheets("List1").Range("C2") = Sheets("výroba").Range(Cells(row, 1)).Value 

Sheets("List1").Range("E2") = Sheets("výroba").Range(Cells(row, 2)).Value 

ThisWorkbook.SaveAs Filename:="C:\Users\Public\Documents\Úkoláky pokov\výroba\" & Worksheets("výroba").Range(Cells(row, 2)).Value & ".xlsx" 

Next row 


End Sub 

Answer 1

Warum Sie Sheets("výroba").Range(Cells(row, 1)).Value verwendet haben?

Verwenden Sie einfach Sheets("výroba").Cells(row, 1).Value statt