Nur die Werte kopieren per Makro

Hallo liebe Excel Gemeinde,

ich arbeite mit einem Kollegen schon seid geraumer Zeit an einer Personaleinsatzplanung die auch soweit wunderbar funktioniert. Nun ist leider mein Kollege nicht mehr greifbar der alle Makros erstellt hat.

Ich habe folgenden kleinen Ausschnitt aus dem Makro:
Worksheets("3. Halbjahr").Activate
Range("E3:GD1000").Copy Destination:=Worksheets("1. Halbjahr").Range("E3")
Worksheets("4. Halbjahr").Activate
Range("E3:GF1000").Copy Destination:=Worksheets("2. Halbjahr").Range("E3")

Das Kopieren funktioniert wunderbar, doch ich möchte, das Excel NUR! der Inhalt kopiert und nicht die Formatierungen etc.

Ich weiss dass das geht doch geklappt hat bis jetzt nichts.

Bitte helft mir, ich verzweifle langsam...

Schönen Gruß

Oliver

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Oliver

in VBA kann zu 99% auf Select, Activate usw. verzichtet werden.

VBA ist ja gut darum diesenm Ansatz


Sub Werte_Format()
'   Formeln ersetzen durch Werte mit Formate
Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address).Copy
With Workbooks("Datei2.xls").Worksheets("Tabelle1").Range("A1")
.PasteSpecial Paste:=xlValues           ' Werte
.PasteSpecial Paste:=xlFormats      ' Formate
End With
Application.CutCopyMode = False
End Sub

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.

http://home.media-n.de/ziplies/

Sub Werte_Format() ' Formeln ersetzen durch Werte mit Formate Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address).Copy With Worksheets("Tabelle2").Range("A1") .PasteSpecial Paste:=xlValues ' Werte .PasteSpecial Paste:=xlFormats ' Formate End With Application.CutCopyMode = False End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

185 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nur die Werte kopieren per Makro

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

185 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread