Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1444to1448
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Formatierung übernehmen

VBA Formatierung übernehmen
14.09.2015 16:23:51
Dietz
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Formatierung übernehmen
14.09.2015 16:26:11
Dietz
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

Anzeige
AW: VBA Formatierung übernehmen
14.09.2015 16:54:35
Rudi
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige