Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
652to656
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige