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

Rahmen setzen

Forumthread: Rahmen setzen

Rahmen setzen
24.09.2004 08:32:07
Erich
Hallo,
ich suche ein Makro für eine Open end Tabelle (A4:B?), in der die einzelnen Zeilen gepunktet umrahmt werden sollen.
Desweiteren ein Makro, das die Linien wieder entfernt.
Wer hilft mir ?
Gruß Erich Müller
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Rahmen setzen
24.09.2004 10:02:47
Marc 

Sub PunktRahmenSetzen()
Range("A4").CurrentRegion.Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlDot
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlDot
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlDot
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlDot
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlDot
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlDot
.Weight = xlThin
End With
End Sub



Sub AllRahmenEntfernen()
Range("A4").CurrentRegion.Select
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

Gruß Marc
Anzeige
Danke Marc
24.09.2004 10:19:16
Erich
.
;

Beliebteste Forumthreads (12 Monate)

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