Kopieren wenn
26.04.2021 21:30:10
Alexander
habe folgenden Code
Sub Spieltag1_berechnen()
Sheets("Spielplan").Select
Range("F3:AW11").Calculate
Range("F3:G11").Select
Selection.Copy
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("D11").Select
Range("H3:I11").Calculate
Range("BN3:BX20").Calculate
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
End Sub