Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige