nachgefragt ....
20.10.2020 12:53:07
Fred
.. ich muss nochmals nachfragen
Worksheets("Auswertungen").Activate
With Worksheets("Auswertungen")
.Cells(10, .Columns.Count).End(xlToLeft).Offset(0, 1).Value = Sheets("Spiele").Range("Y1")
.Cells(11, .Columns.Count).End(xlToLeft).Offset(0, 1).Value = Sheets("Spiele").Range("Y2")
.Cells(12, .Columns.Count).End(xlToLeft).Offset(0, 1).Value = Sheets("Spiele").Range("Y3")
.Cells(13, .Columns.Count).End(xlToLeft).Offset(0, 1).Value = Sheets("Spiele").Range("Y4")
.Cells(14, .Columns.Count).End(xlToLeft).Offset(0, 1).Value = Sheets("Spiele").Range("Y5")
.Cells(15, .Columns.Count).End(xlToLeft).Offset(0, 1).Value = Sheets("Spiele").Range("Y6")
.Cells(16, .Columns.Count).End(xlToLeft).Offset(0, 1).Value = Sheets("Spiele").Range("Y7")
End With
Die Werte aus "Spiele" (Y1:Y7) kopiere ich entsprechend nach "Auswertungen".
Kann man den Code kürzen?
Gruss
Fred