Kopfzeilen programmierung
04.07.2005 12:32:52
girly
ich habe Exceltabellen diese tabellen habe ich per buttom in eine andere (per VBA erstellte) arbeitsmappe gespeichert. jetzt muss ich per VBA eine Kopfzeile erstellen. In diese Kopfzeile muss eigentlich diese werte stehen:
Worksheets.Add
Worksheets(1).Name = "Termin_Blatt"
Worksheets(1).PageSetup.Orientation = xlLandscape
Worksheets(1).Select
Worksheets("Termin_Blatt").Range("A1") = "Termin überschritten"
Worksheets("Termin_Blatt").Range("A1").Interior.Color = RGB(255, 0, 0)
Worksheets("Termin_Blatt").Range("A2") = "Termin i.O."
Worksheets("Termin_Blatt").Range("A2").Interior.Color = RGB(0, 255, 0)
Worksheets("Termin_Blatt").Range("A5") = "FMEA Zeile"
Worksheets("Termin_Blatt").Range("A5").Interior.Color = RGB(171, 169, 169)
Worksheets("Termin_Blatt").Range("B5") = " Funktion [Ursache]"
Worksheets("Termin_Blatt").Range("B5").Interior.Color = RGB(171, 169, 169)
Worksheets("Termin_Blatt").Range("C2") = "Termine_"
Worksheets("Termin_Blatt").Range("C2").Font.Size = 14
Worksheets("Termin_Blatt").Range("C2").Font.Bold = True
Worksheets("Termin_Blatt").Range("C5") = "empfohlene Massnahme"
Worksheets("Termin_Blatt").Range("C5").Interior.Color = RGB(171, 169, 169)
Worksheets("Termin_Blatt").Range("D5") = "Termin"
Worksheets("Termin_Blatt").Range("D5").Interior.Color = RGB(171, 169, 169)
Worksheets("Termin_Blatt").Range("E5") = "Erfüllung in %"
Worksheets("Termin_Blatt").Range("E5").Interior.Color = RGB(171, 169, 169)
Worksheets("Termin_Blatt").Range("F5") = "RPZ 1"
Worksheets("Termin_Blatt").Range("F5").Interior.Color = RGB(171, 169, 169)
Worksheets("Termin_Blatt").Range("G5") = "RPZ 2"
Worksheets("Termin_Blatt").Range("G5").Interior.Color = RGB(171, 169, 169)
Worksheets("Termin_Blatt").Range("H5").Interior.Color = RGB(171, 169, 169)
Range("A6").Activate
With Range("A5", ["H5"])
With .Font
.Color = 1
.Bold = True
.Size = 10
End With
End With
Columns("A:I").AutoFit
bis dahin habe ich so erstellt aber wenn ich drucken will diese überschriften stehen nur in der erste seite. Ich möchte die überschriften an jeder seite haben. Hat jemand eine Idee wie das geht?
Danke all
Girly