Formatierung kopieren

[mexico67]

Hallo Leute,
ich möchte von einem Tabellenblatt die gesamte Formatierung ( z.B.Spaltenbreite und Zeilenhöhe ) auf ein anderes Tabellen blatt kopieren.
Was muß ich da als VBA-Code eingeben ?
Ich bitte um Eure Hilfe
Viele Grüße
Mexico67

[Officer]

Hallo mexico67,

das kannst Du ganz einfach mit dem folgenden VBA-Code realsieren. Damit wird nur das Format 1:1 auf das Zielblatt übertragen.

Code: Visual Basic

1. Sub kopierenFormate()
2.  
3. '** Ausgagangstabelle
4. Cells.Select
5. Selection.Copy
6.  
7. '** Zieltabelle
8. Sheets("Tabelle2").Select
9. Cells.Select
10. Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
11.     SkipBlanks:=False, Transpose:=False
12.    
13. End Sub
14.  

Gruß

Officer

[mexico67]

hallo Officer,

Vielen Dank für die Info, und wie füge ich den Code in einen anderen Code ein ?



Viele Grüße
Mexico67

[Officer]

Hallo,

wie meinst Du das?

Du kopierst die Code-Zeilen und fügst Ihn an geeigneter Stelle wieder ein.

Gruß

Officer

[mexico67]

Hallo Officer,

Code: [Auswählen]

Du kopierst die Code-Zeilen und fügst Ihn an geeigneter Stelle wieder ein.

Ja genau, ich hatte die "geeignete Stelle" gemeint.
ich habe ja den Code von "Beverly" , (ein VBA-Code, der ein neues Tabellenblatt anlegt wenn das Systemdatum erreicht wird), aber leider wird in diesem Code das Format nicht mit kopiert. Dashalb habe ich die Frage separat gestellt, weiß aber nicht, wo ich " Deinen Code " einfügen muß.Am Anfang oder irgendwo in der Mitte oder am Ende !!
Viele Grüße
Mexico67

[Question]

Hallo mexico,

poste doch noch mal den Code, wie du ihn gerade verwendest.
Gruß

Officer

[mexico67]

Hallo Officer,
hier der Code:
Private Sub Workbook_Open()
   Dim wksTab As Worksheet
   Dim blnVorhanden As Boolean
   Dim lngZeile As Long
   Dim lngErste As Long
   lngZeile = 2
   ' prüfen ob Tabellenblatt aktuelles Datum schon vorhanden
   For Each wksTab In Worksheets
      If wksTab.Name = Date Then
         blnVorhanden = True
         Exit For
      End If
   Next wksTab
   ' Tabellenblatt aktuelles Datum noch nicht vorhanden
   If blnVorhanden = False Then
      ' neues Tabellenblatt erstellen
      With Worksheets.Add
         ' Name aktuelles Datum
         .Name = Date
         ' ans Ende stellen
         .Move after:=Worksheets(Worksheets.Count)
         ' Überschrift der Spalten A:D kopieren
         Worksheets("Tabelle1").Range("A1:D1").Copy .Range("A1")
         ' Schleife über alle Zeilen des Ausgangstabellenblattes
         Do
            ' in Spalte C steht das aktuelle Datum
            If Worksheets("Tabelle1").Cells(lngZeile, 3) = Date Then
               ' erste freie Zeile im Tabellenblatt des aktuellen Datums ermitteln
               lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
               ' Bereich A:D der laufenden Zeile ins Tabellenblatt aktuelles Datum kopieren
               Worksheets("Tabelle1").Range("A" & lngZeile & "" & lngZeile).Copy .Cells(lngErste, 1)
            End If
            lngZeile = lngZeile + 1
         Loop While Worksheets("Tabelle1").Cells(lngZeile, 1) <> ""
      End With
   End If
End Sub

VG
Mexico67

[Officer]

Hallo,
Füge den Code am ende vor END SUB ein.

Gruß  Officer

[mexico67]

Hallo Officer,
vielen Dank, werde es versuchen
VG
Mexico67