Formatierung von Excel Arbeitsblättern

Hopek0815 · 17.02.2003

Folgendes Problem:

Ich habe in den Spalten A Bis L mit Überschriften versehen.
Fette Schrift, Schrift um 90 Grad gedreht

Z.b. Kunde,Stückzahl, Artikel usw.
Dies ist im ersten Register.(Auftragsbestand)
Die anderen Register sind die Monate. Januar 2003, Februar 2003....

Wie bekomme ich die Überschriften auf die Monate übertragen.
Wenn mein Auftragsbestand 2 oder mehrere Blätter hat, sollte auf jedem Blatt die Überschriften zu sehen sein.

Das Register(Auftragsbestand) wird 2 mal die Woche auf dem aktuellen Stand gebracht und ausgedruckt.

Hab das ganze WE damit verbracht und bin zu keinem richtigen Ergebnis gekommen. Alles wieder verworfen.

Der ExcelLooser

PS: Ist Excel XP Version
Hab ich glatt vergessen zu erwähnen...

Matjes · 17.02.2003

Hi Hopek0815,

wenn ich das richtig verstanden habe, sollen die Überschriften des Blattes Auftragsbestand in allen anderen Blättern eingefügt werden, wenn nicht schon vorhanden.

Der Makro sollte das erfüllen.

Code:

Option Explicit

Sub UeberschriftAuftragsbestandInAlleBlätterUebertragen()

Dim n As Integer
  'für alle Tabellenblätter
  For n = 1 To Worksheets.Count
    'nicht das Hauptblatt ?
    If Worksheets(n).Name &lt;> Auftragsbestand Then
      'bereits Überschrift vorhanden ?
      If Worksheets(Auftragsbestand).Cells(1, 1).Value &lt;> _
                        Worksheets(n).Cells(1, 1).Value Then
        'Überschriftenzeile des Hauptblattes kopieren
        Worksheets(Auftragsbestand).Select
        Worksheets(Auftragsbestand).Rows(1).Select: Selection.Copy
        'Überschriftenzeile in Blatt als 1.Zeile einfügen
        Worksheets(n).Select
        Worksheets(n).Rows(1).Select: Selection.Insert Shift:=xlDown
      End If
    End If
  Next n
  
  Worksheets(Auftragsbestand).Select
End Sub

Gruß Matjes

Hopek0815 · 19.02.2003

Da Matjes mir prima geholfen hat, kann das Thema geschlossen werden.

Formatierung von Excel Arbeitsblättern

Hopek0815

Matjes

Hopek0815

Formatierung von Excel Arbeitsblättern

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums