Hallo Excel Community,
ich habe vor kurzem eine Frage zum kopieren gestellt. In der Zwischenzeit habe ich weitere Varianten gefunden, welche für mich alle das Gleiche machen sollen! Allerdings muss auch in allen ein Fehler sein, denn keine funktioniert wie gewünscht.
Es werden die Daten aus der aktuellen Arbeitsmappe der letzten Spalte aus Tabellenblatt 39 in die bereits geöffnete andere Arbeitsmappe in Tabellenblatt 39 B10:B46 übertragen.
Dim LetzteSpalteKK As Integer
Dim KKData As Range
Dim objWb As Workbook
LetzteSpalteKK = ThisWorkbook.Worksheets(39).Cells(9, Columns.Count).End(xlToLeft).Column
Set KKData = ThisWorkbook.Worksheets(39).Range(Cells(10, LetzteSpalteKK), Cells(46, LetzteSpalteKK))
With KKData
KKData.Copy Destination:=objWb.Worksheets(39).Range("B10:B46")
End With
LetzteSpalteKK = ThisWorkbook.Worksheets(39).Cells(9, Columns.Count).End(xlToLeft).Column
KKData = ThisWorkbook.Worksheets(39).Range(Cells(10, LetzteSpalteKK), Cells(46, LetzteSpalteKK))
objWb.Worksheets(39).Range("B10:B46") = KKData
LetzteSpalteKK = ThisWorkbook.Worksheets(39).Cells(9, Columns.Count).End(xlToLeft).Column
Set KKData = ThisWorkbook.Worksheets(39).Range(Cells(10, LetzteSpalteKK), Cells(46, LetzteSpalteKK))
KKData.Select
Selection.AutoFill Destination:=objWb.Worksheets(39).Range("B10:B46"), Type:=xlFillDefault
Wo ist der Unterschied und wo liegen die Fehler?
Danke!