Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Kopieren und einfugen

Kopieren und einfugen
26.09.2017 11:09:10
Tom
Hallo
Ich möchte einen Bereich kopieren und die Inhalte, Farbe und Bezüge etc. auch.
Im dem Bereich, sind Bedingte Formatierungen, Bezüge usw. all das möchte ich auf ein anderes Tabellenblatt kopieren.
Leider ohne Erfolg.
Habs mit diesem probiert:
Range("E7:AI35").Select
Selection.Copy
Sheets("Monatsansicht").Select
Range("C7").Select
ActiveSheet.Paste
Range("AJ1").Select
Sheets("Jahresplan").Select
Range("A41").Select
Wo liegt mein Fehler bzw. was muss ich ergänzen?
Hänge die Datei mal mit an
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopiere die gesamte Tabelle ...
26.09.2017 15:31:01
JoWE
...und lösche alles was Du in der neuen Tabelle nicht brauchst.
Hallo Tom,
so würde ich es probieren. Hab's aber nicht getestet.
Gruß
Jochen
AW: Kopieren und einfugen
26.09.2017 15:42:42
Michael
Hallo!
Mit sauberer Referenzierung:
Sub Januar_kopieren_einfuegen()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsQ As Worksheet: Set WsQ = Wb.Worksheets("Jahresplan")
Dim WsZ As Worksheet: Set WsZ = Wb.Worksheets("Monatsansicht")
Application.ScreenUpdating = False
WsZ.Range("C1:AZ431").Clear
WsQ.Range("E7:AI35").Copy
WsZ.Range("C7").PasteSpecial xlPasteAll
WsQ.Range("AL7:BN35").Copy
WsZ.Range("C43").PasteSpecial xlPasteAll
WsQ.Select
Set Wb = Nothing: Set WsQ = Nothing: Set WsZ = Nothing
End Sub
LG
Michael
Anzeige
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige