Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formatierung übernehmen?

Forumthread: Formatierung übernehmen?

Formatierung übernehmen?
15.08.2005 00:05:13
Selma
Hallo Leute,
ich hätte gern dies:

Range("A29:H" & Cells(Rows.Count, 1).End(xlUp).Row).Select
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
so formatiert wie meine Zeile 28
Wie mache das ?
Danke im Voraus...
Liebe Grüße
SELMA
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formatierung übernehmen?
15.08.2005 00:10:46
Reinhard
Hi Selma,
Range("A29:H" & Cells(Rows.Count, 1).End(xlUp).Row).Borders(xlDiagonalUp).LineStyle =
Range("A28").Borders(xlDiagonalUp).LineStyle
Gruß
Reinhard
AW: Formatierung übernehmen?
15.08.2005 01:29:49
Selma
Hallo Reinhard,
das hat nicht weiter geholfen, da meine Zeile 28 so formatiert ist:


Sub Zeile28()
Range("A28:B28").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
Range("D28:G28").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
Range("A28:H28").Select
With Selection.Borders
.LineStyle = xlNone
End With
With Selection.Borders
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End Sub

Ich suche nach eine Lösung über VBA diesen Bereich:
Range("A29:H" & Cells(Rows.Count, 1).End(xlUp).Row).Select
wie Zeile 28 zu formatieren.
Gruß
SELMA
Anzeige
AW: Formatierung übernehmen?
15.08.2005 02:01:39
Reinhard
Hi Selma,

Sub Zeile28()
With Range("A28:B28", "D28:G28", "A29:H" & Cells(Rows.Count, 1).End(xlUp).Row)
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
With Range("A28:H28").Borders
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End Sub

Gruß
Reinhard
Anzeige
AW: Formatierung übernehmen?
15.08.2005 02:10:46
Selma
Hi Reinhard,
bei mir bleibt der Code hier hängen:
Sub Zeile28()
With Range
Gruß
SELMA
AW: Formatierung übernehmen?
15.08.2005 02:25:14
Selma
Mit...

Ich suche nach eine Lösung über VBA diesen Bereich:
Range("A29:H" & Cells(Rows.Count, 1).End(xlUp).Row).Select
wie Zeile 28 zu formatieren.
meinte ich jede Zeile einzel (nicht gesamtes Bereich) wie bereits formatierte Zeile 28 zu formatieren
Gruß
SELMA
Anzeige
AW: Formatierung übernehmen?
15.08.2005 13:37:57
Reinhard
Hi Selma,
wie wärs mit: 

Option Explicit
Sub Zeile28()
Dim zelle As Range
With Application.Union(Range("A28:B28"), Range("D28:G28"))
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
With Range("A28:H28").Borders
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
For Each zelle In Range("A29:H" & Cells(Rows.Count, 1).End(xlUp).Row)
zelle.HorizontalAlignment = xlGeneral
zelle.VerticalAlignment = xlBottom
zelle.WrapText = False
zelle.Orientation = 0
zelle.AddIndent = False
zelle.ShrinkToFit = False
zelle.MergeCells = True
With zelle.Borders
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
Next zelle
End Sub

Gruß
Reinhard
Anzeige
AW: Formatierung übernehmen?
15.08.2005 16:33:07
Reinhard
Hi Selma,
Option Explicit
Sub Zeile28()
With Range("D28:G28")
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
With Range("A28:B28")
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
With Range("A28:H28").Borders
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
Range("D28:G28").Copy
Range("D29:G" & Cells(Rows.Count, 1).End(xlUp).Row).PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("C28").Copy
Range("c29:C" & Cells(Rows.Count, 1).End(xlUp).Row).PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub


Gruß
Reinhard
Anzeige
AW: Formatierung übernehmen?
15.08.2005 17:15:00
Selma

Nettes Bildchen, merci o.w.T.
15.08.2005 20:46:59
Reinhard
Gruß
Reinhard
AW: Formatierung übernehmen?
15.08.2005 00:12:28
Reinhard
Hi Selma,
oder gehe auf a28, Strg+C, markiere A29:Hx, Berabeiten--InhalteEinfügen--Formate
Gruß
Reinhard
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige