VBA Formatierung übernehmen

Bild

Betrifft: VBA Formatierung übernehmen
von: Dietz
Geschrieben am: 14.09.2015 16:23:51

Hallo zusammen,
ich versuche mittels:
ZielSheet.Rows(zInsert).EntireRow.Insert
eine neue Zeile einzufügen aber ich bekomme es nicht hin die richtige Formatierung mitzunehmen.
sowohl:
Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
als auch
Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
bringen nicht den erhofften Erfolg.
Was mache ich falsch?
Gruß
Dietz

Bild

Betrifft: AW: VBA Formatierung übernehmen
von: Dietz
Geschrieben am: 14.09.2015 16:26:11
Mit:


ZielSheet.Rows(zInsert).EntireRow.Insert
                  With Range(Cells(zInsert, 1), Cells(zInsert, 12))
                    With .Borders(xlEdgeLeft)
                    .LineStyle = xlContinuous
                    .Color = -15393739
                    .TintAndShade = 0
                    .Weight = xlThick
                   End With
                 With .Borders(xlEdgeTop)
                    .LineStyle = xlContinuous
                    .Color = -15393739
                    .TintAndShade = 0
                    .Weight = xlHairline
                 End With
                 With .Borders(xlEdgeBottom)
                    .LineStyle = xlContinuous
                    .Color = -15393739
                    .TintAndShade = 0
                    .Weight = xlHairline
                 End With
                 With .Borders(xlEdgeRight)
                   .LineStyle = xlContinuous
                   .Color = -15393739
                   .TintAndShade = 0
                   .Weight = xlThick
                 End With
                 With .Borders(xlInsideVertical)
                   .LineStyle = xlContinuous
                   .Color = -15393739
                   .TintAndShade = 0
                   .Weight = xlHairline
                 End With
                 With .Borders(xlInsideHorizontal).LineStyle = xlNone
                 End With
                 End With
erfolgt aber auch keine Formatierung der Zellen :(
Gruß nochmal
Dietz

Bild

Betrifft: AW: VBA Formatierung übernehmen
von: Rudi Maintaire
Geschrieben am: 14.09.2015 16:54:35
Hallo,
dann kopiere die Formate doch.

With ZielSheet.Rows(zInsert)
.Insert
.Offset(1).Copy
.Cells(1).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End With

Gruß
Rudi

 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA Formatierung übernehmen"