Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1276to1280
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Werte und Formate kopieren
Jürgen
Hallo Leute,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Werte und Formate kopieren
09.09.2012 21:41:16
hary
Hallo Juergen
Das geht mit Pastespecial. Muss jeweils in eine eigene Codezeile.

Range("$A$" + Format((Spieltag - 1) * (TeamAnzahl() / 2 + 3) + 1) + ":$J$" + Format(((Spieltag - _
1) * (TeamAnzahl() / 2 + 3) + 1) + (TeamAnzahl() / 2 + 2))).Copy
Worksheets("Druck").Range("A3").PasteSpecial Paste:=xlValues 'Werte einfuegen
Worksheets("Druck").Range("A3").PasteSpecial Paste:=xlPasteFormats 'Formate einfuegen
Application.CutCopyMode = False
End Sub

gruss hary
Anzeige

80 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige