Alle Formate auf neues Tabellenblatt übertragen
29.04.2002 11:41:12
Christian
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
Anzeige