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

Diagonale in Zelle

Diagonale in Zelle
16.12.2002 10:58:50
Hajo_zi
Hallo Helfer

ich will mit Doppelklick zwei Diagonale in eine Zelle machen. Mein Problem

Sind in der Zelle noch keine Diagonalen sollen sie eingezeichnet werden, sind welche vorhanden sollen Sie gelöscht werden.

Gruß Hajo

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

Betreff
Datum
Anwender
Anzeige
Re: Diagonale in Zelle
16.12.2002 11:08:57
Steffen D
Hi,

so oder?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' erstellt von Hajo Ziplies 14.12.02
Dim RaBereich As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("A:E")
' ActiveSheet.Unprotect
' überprüfen ob Zelle im vorgegebenen Bereich
If Not Intersect(Target, RaBereich) Is Nothing Then
' Diagonal
If Target.Borders(xlDiagonalDown).LineStyle = 1 Then
With Target.Borders(xlDiagonalDown)
.LineStyle = xlNone
End With
With Target.Borders(xlDiagonalUp)
.LineStyle = xlNone
End With
Else
With Target.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThick
End With
With Target.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
End If
End If
Cancel = True
' ActiveSheet.Protect
End Sub


Gruß
Steffen D

Anzeige
Re: Diagonale in Zelle
16.12.2002 11:31:35
Hajo_zi
Hallo Steffen

herzlichen Dank, das geht ja wie ich es mir vorgestellt habe.

Noch einen schönen Tag.

Gruß Hajo

Re: Diagonale in Zelle(Lösung)
16.12.2002 12:19:09
Herbert
Es kommt schon vor, dass der Schlaumeier Hajo nicht alles weiss.
Er kann nur (Schaue doch mal FAQ)

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige