Hallo !
Ich weiß, es ist heiß, verdammt heiß, doch kann mir wer hier sagen, was ist wo einfügen muß um die selbe Kopie in des Tabellenblatt History ab C25 - D25 - E25 - F25 usw. zu kopieren ?
Hier der Code den ich ebenfalls von hier habe, nur, wie kann ich das in das Tabellenblatt Histroy kopieren und nicht in das gleiche Tabellenblatt ?
Danke
chris58

Sub Kopieren()
Range("F9:G14").Copy
With Cells(3, Columns.Count).End(xlToLeft)
.Offset(0, 1).PasteSpecial xlPasteValues
.Offset(-1, 1).Resize(1, 2).Value = Range("F7").Value
End With
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With


Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With


End Sub