Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
752to756
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
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen mit Linien durchstreichen

Zellen mit Linien durchstreichen
07.04.2006 11:22:22
Gerhard
Hallo,
wie kann ich in einem Formular Bereiche via Makro über mehrere Zellen rot durchstreichen?
Beispiel: Der Bereich von Zelle E10 (unten links) bis Zelle I7 (oben rechts)
soll schräg mit einer roten Linie durchgestrichen werden!
Sowie von B20 bis D16!
Desweiteren sollen nur diese durchgestrichenen Felder ebenfalls via Makro wieder entfernt werden können.
Vielen Dank für Eure Hilfe

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen mit Linien durchstreichen
07.04.2006 11:47:14
UweD
Hallo
so?

Sub diagonal_on()
With Union(ActiveSheet.Range("E10:I7"), ActiveSheet.Range("B20:D16")).Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 3
End With
End Sub


Sub diagonal_off()
Union(ActiveSheet.Range("E10:I7"), ActiveSheet.Range("B20:D16")).Borders(xlDiagonalUp).LineStyle = xlNone
End Sub

Gruß UweD
(Rückmeldung wäre schön)
AW: Zellen mit Linien durchstreichen
07.04.2006 11:57:53
Gerhard
Hallo Uwe,
ich möchte nur 1 diagonale Linie zum Durchstreichen verwenden!
Also beginnend unten links in Zelle E10 bis zum Ende oben rechts in Zelle I7 usw.
Gruß
Gerhard
Anzeige
AW: Zellen mit Linien durchstreichen
07.04.2006 13:07:48
u_
Hallo,

Sub Linien_rein()
Dim shp As Shape, x1, y1, x2, y2
x1 = Range("E10").Left
y1 = Range("E10").Top + Range("E10").Height
x2 = Range("I7").Left + Range("I7").Width
y2 = Range("I7").Top
Set shp = ActiveSheet.Shapes.AddLine(x1, y1, x2, y2)
With shp
.Line.ForeColor.SchemeColor = 10
.Line.Visible = msoTrue
.Name = "Lin_1"
End With
x1 = Range("B20").Left
y1 = Range("B20").Top + Range("B20").Height
x2 = Range("D16").Left + Range("D16").Width
y2 = Range("D16").Top
Set shp = ActiveSheet.Shapes.AddLine(x1, y1, x2, y2)
With shp
.Line.ForeColor.SchemeColor = 10
.Line.Visible = msoTrue
.Name = "Lin_2"
End With
End Sub


Sub Linien_Raus()
ActiveSheet.Shapes("Lin_1").Delete
ActiveSheet.Shapes("Lin_2").Delete
End Sub

Gruß
Geist ist geil!
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige