Hallo
mein Name ist Markus und ich kenne mich nur ein bischen mit Excel und VBA aus.
Ich habe folgende Frage:
Hab hier ein Macro, daß sehr langsam läuft, habe versucht Printcommunications einzusetzen, aber das Macro läuft nicht. wer kann helfen??
Hier ist das Macro:
If ExcelDoc Then
With EA
.Workbooks.Add
.Windows(1).Caption = Datei_kurz
.Worksheets(1).Name = "pattern data"
.Worksheets(2).Name = "horizontal pattern"
.Worksheets(3).Name = "vertical pattern"
.Worksheets("horizontal pattern").Select
.ActiveSheet.PageSetup.PaperSize = xlPaperA4
.ActiveSheet.PageSetup.RightMargin = 0
.ActiveSheet.PageSetup.CenterFooter = Verzeichnis & vbCr & Datei_kurz
.ActiveSheet.PageSetup.LeftHeader = "Horizontal Radiation Pattern"
.ActiveSheet.PageSetup.RightHeader = DatumZeit
.ActiveSheet.PageSetup.LeftFooter = HauptMenue.Benutzer
.ActiveSheet.PageSetup.RightFooter = "Page &P of &N"
.ActiveSheet.PageSetup.LeftMargin = .CentimetersToPoints(2)
.ActiveSheet.PageSetup.RightMargin = .CentimetersToPoints(0)
.ActiveSheet.PageSetup.TopMargin = .CentimetersToPoints(2.5)
.ActiveSheet.PageSetup.BottomMargin = .CentimetersToPoints(2.5)
.ActiveSheet.PageSetup.HeaderMargin = .CentimetersToPoints(1.3)
.ActiveSheet.PageSetup.FooterMargin = .CentimetersToPoints(1.3)
.ActiveSheet.PageSetup.order = xlDownThenOver
.Columns.ColumnWidth = 10.71
.Rows.RowHeight = 12.75
.Worksheets("vertical pattern").Select
.ActiveSheet.PageSetup.PaperSize = xlPaperA4
.ActiveSheet.PageSetup.RightMargin = 0
.ActiveSheet.PageSetup.CenterFooter = Verzeichnis & vbCr & Datei_kurz
.ActiveSheet.PageSetup.LeftHeader = "Vertical Radiation Pattern"
.ActiveSheet.PageSetup.RightHeader = DatumZeit
.ActiveSheet.PageSetup.LeftFooter = HauptMenue.Benutzer
.ActiveSheet.PageSetup.RightFooter = "Page &P of &N"
.ActiveSheet.PageSetup.LeftMargin = .CentimetersToPoints(2)
.ActiveSheet.PageSetup.RightMargin = .CentimetersToPoints(0)
.ActiveSheet.PageSetup.TopMargin = .CentimetersToPoints(2.5)
.ActiveSheet.PageSetup.BottomMargin = .CentimetersToPoints(2.5)
.ActiveSheet.PageSetup.HeaderMargin = .CentimetersToPoints(1.3)
.ActiveSheet.PageSetup.FooterMargin = .CentimetersToPoints(1.3)
.ActiveSheet.PageSetup.order = xlDownThenOver
.Columns.ColumnWidth = 10.71
.Rows.RowHeight = 12.75
End With
End If