Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
308to312
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
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellenbereich per VBA formatieren????

Zellenbereich per VBA formatieren????
17.09.2003 11:35:13
Selma
Hi Leute,

wie kann ich per Makro ab Zelle A18 bis letzte Zeile (die ein Inhalt erhält) mit dünnen Rahmen versehen.

Bsp.:

wenn letzte Inhalt in Zeile 2000 ist, dann Bereich A18:V2000 mit dünnen (haarline) Rahmen versehen.

Vielen Dank im Voraus....

Gruß
Selma

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

Betreff
Datum
Anwender
Anzeige
AW: Zellenbereich per VBA formatieren????
17.09.2003 12:00:50
EL
Hallo Selma!
So geht

Sub test()
' test Makro
' Makro am 17.09.2003 von EL NABRISS DI aufgezeichnet
Range(("A1:A") & Cells(Rows.Count, 1).End(xlUp).Rows.Row).Select
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End Sub

Gruß
EL
Anzeige
AW: Zellenbereich per VBA formatieren????
17.09.2003 12:20:26
Selma
Danke EL....

es hat mir sehr geholfen...

Gruß
Selma

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige