Herbers Excel-Forum - das Archiv

Alle Formate auf neues Tabellenblatt übertragen



Excel-Version: 97 / 2000
nach unten

Betrifft: Alle Formate auf neues Tabellenblatt übertragen
von: Christian


Geschrieben am: 29.04.2002 - 11:41:12

Wie kann ich alle Formate eines Tabellenblattes in ein neues Workbook übernehmen. (Auch verbundene Zellen)? Zur Zeit werden die Werte aus einer "Formular-Datei" in eine Musterarbeitsmappe übernommen. Ändert man nun ein Format in der Formulardatei, wird diese Änderung natürlich nicht in der Musterarbeitsmappe übernommen. Kann ich mit Hilfe eines Befehles nicht nur die values, sondern auch die Formate übernehmen?

Workbooks.Open strExportfile, Password:="sokrates"
With Sheets("Report" & strSysString)
.Unprotect Password:="sokrates"
.Range("A:P").Value = Workbooks("Report.xls").Sheets("Report" & strSysString).Range("B:Q").Value
'wie übernehme ich hier die Formate aus der Orginal-Arbeitsmappe?
.Cells(1, 1).Activate
End With

Vielen Dank
Christian

nach oben   nach unten

Re: Alle Formate auf neues Tabellenblatt übertragen
von: Mike
Geschrieben am: 29.04.2002 - 14:04:53

Zeichne einfach ein Makro auf, und geh auf "Bearbeiten/Inhalte Einfügen" - dann hast du den Befehl.

 nach oben

Excel-Beispiele zum Thema "Alle Formate auf neues Tabellenblatt übertragen"
Eingabeerleichterung bei Zeitformaten Werte nur mit Zahlenformaten übertragen
Werte aus UserForm-TextBox in bestimmten Formate übertragen Datenmaske mit landesspzifischen oder US-Formaten aufrufen
Tabelle gem. hinterlegten Zahlenformaten formatieren Alle Formate jenseits der letzten benutzten Zelle löschen
Bei UserForm-TextBox-Eingaben Formate erzwingen Auslesen der aktuell in der Zwischenablage vorhandenen Formate
Formate und Zellinhalte ausblenden Benennen von Tabellenblättern mit Monatsnamen