Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1580to1584
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
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

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

345 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige