PDA

Vollständige Version anzeigen : Inhalt kopieren und drucken


Gast
27.02.2004, 07:44
Hallo Miteinander,

ich habe folgendes Problem, ich habe eine Tabelle mit Werten, ab A10 - D20, diese Werte sollen in ein weiteres Datenblatt kopiert werden, wobei wirklich nur die Werte kopiert werden soll und keine Formate oder ähnliches.
Und ich würde gerne das erste Datenblatt mit den Ursprungsdaten ausgedruckt wird.

Vielen Dank für Eure Hilfe.

Gruss
Sascha

Hajo_Zi
27.02.2004, 07:56
Hallo Sascha


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

Der zweite Teil ist mir nich ganz klar nur den Bereich??
Benutze mal den Makrorecoder und zeichne den Code auf. Druckbereich festlegen und Drucken
<img src="http://home.media-n.de/ziplies/images/grusz.gif" align="middle" height="40" alt="Grußformel">
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
<span style=" font-weight:bold;">Das Forum lebt auch von den R&uuml;ckmeldungen.</span>
Betriebssystem XP Pro und Excel Version XP Pro
<a href="http://home.media-n.de/ziplies/" target="_blank">
<img border="0" src="http://home.media-n.de/ziplies/images/logo_hajo.gif" align="middle" height="40" alt="Homepage"></a>