ich möchte bestimmte Bereiche aus einem Spielplan/Tabelle in ein Tabellenblatt kopieren.
Dabei sollen jedoch nur die Werte und Formate übernommen werden.
In einigen Zellen sind Formeln, die nach dem Kopieren nicht mehr funktionieren.
Kopiert wird der aktuelle Spieltag (Abfrage per Checkbox), die Tabelle und der folgende Spieltag.
Wie kann ich mein Scipt ändern, damit nur noch die Werte und Formate kopiert werden?
Sub Drucken()
Dim Spieltag As Integer
Worksheets("Druck").Activate
Range("A1:AW442").Select
Selection.EntireRow.Delete
DialogSheets("Spieltageingabe").Show
Spieltag = DialogSheets("Spieltageingabe").EditBoxes(1).Text
Worksheets("Spielplan").Activate
Range("$A$" + Format((Spieltag - 1) * (TeamAnzahl() / 2 + 3) + 1) + ":$J$" + Format(((Spieltag _
_
- 1) * (TeamAnzahl() / 2 + 3) + 1) + (TeamAnzahl() / 2 + 2))).Copy
Worksheets("Druck").Paste Destination:=Worksheets("Druck").Range("A3")
Worksheets("Tabelle").Activate
Range("A1:$N$" + Format(3 + TeamAnzahl())).Copy
Worksheets("Druck").Paste Destination:=Worksheets("Druck").Range("$A$" + Format(6 + TeamAnzahl( _
_
) / 2))
If DialogSheets("Spieltageingabe").CheckBoxes(1).Value = 1 Then
Worksheets("Spielplan").Activate
Range("$A$" + Format(Spieltag * (TeamAnzahl() / 2 + 3) + 1) + ":$J$" + Format((Spieltag * ( _
TeamAnzahl() / 2 + 3) + 1) + (TeamAnzahl() / 2 + 2))).Copy
Worksheets("Druck").Paste Destination:=Worksheets("Druck").Range("$A$" + Format(3 + _
TeamAnzahl() / 2 + 3 + TeamAnzahl() + 4))
End If
Worksheets("Druck").Activate
Range("A3:$N$" + Format(TeamAnzahl() / 2 + 8 + TeamAnzahl() + TeamAnzahl / 2 + 3)).Select
Selection.Columns.AutoFit
Selection.Interior.ColorIndex = xlNone
Range("A1").Select
Cells(1, 1).Value = Worksheets("Teams").Cells(1, 5).Value
Worksheets("Druck").Activate
End Sub
Vielen Dank
Jürgen