Kopie Datenübergabe
04.11.2005 11:50:27
Gerhard
Kopiere mit folgenden Code Daten aus einer Liste und setze sie in ein neues Tabellenblatt.
Dim intMarkiereAuswahl As Integer
intMarkiereAuswahl = Range("K65536").End(xlUp).Offset(0, 0).Row
Range("B1:L" & intMarkiereAuswahl).SpecialCells(xlCellTypeVisible).Copy
'Umstieg auf GeliefertK..... Neues Tabellenblatt erzeugen
Windows(strAktiveDatei).Activate
Sheets("Tabelle1").Activate
ActiveSheet.Name = ("Lieferschein")
Sheets("Tabelle2").Activate
ActiveSheet.Name = ("Datenbegleitschein")
'Einfügen der Selektion
Selection.PasteSpecial xlPasteValues
Selection.PasteSpecial xlFormats
Application.CutCopyMode = False
Was muss ich machen damit ich auch Spaltenbreite, Zellenhöhe, Kopf u. Fusszeile, Seiteeinrichtung u. Druckoptionen von der Ursprungsliste mit übernehmen kann?
Bitte um Hilfe
Danke im Voraus
Gerhard