Rechte Maustaste

Hallo Leute
ich möchte gerne die rechte Maustaste mit einem VBA Code gestalten das ich bestimmte Zellen wenn ich sie anklicke ein Kreutz gesetzt wird und wenn ich nochmals drauf klicke das Kreutz wieder entfernt wird. Ich habe das ganze mit dem MakroRecorder aufgezeichnet ich weis aber nicht weiter. Bitte um hilfe !!!
Gruß Heiko
Hier mein aufgezeichneter Code:


Sub KreutzSetzen()
' KreutzSetzen Makro
' Makro am 03.07.2008 von H aufgezeichnet
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
End Sub


Sub KreutzLöschen()
' KreutzLöschen Makro
' Makro am 03.07.2008 von H aufgezeichnet
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Rechte Maustaste

03.07.2008 21:53:02

Werner

AW: Rechte Maustaste

03.07.2008 22:01:04

Beverly

AW: Rechte Maustaste

04.07.2008 06:55:00

Heiko

AW: Rechte Maustaste

04.07.2008 08:38:00

Beverly

AW: Rechte Maustaste

04.07.2008 14:26:00

Heiko

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim raZelle As Range For Each raZelle In Selection.Cells With raZelle If .Borders(xlDiagonalUp).LineStyle = xlNone Then With .Borders(xlDiagonalDown) .LineStyle = xlContinuous .Weight = xlMedium End With With .Borders(xlDiagonalUp) .LineStyle = xlContinuous .Weight = xlMedium End With Else .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone End If End With Next raZelle End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim inControls As Integer Select Case Target.Address Case "$B$4", "$B$6", "$F$8" Cancel = True With Target If .Borders(xlDiagonalUp).LineStyle = xlNone Then With .Borders(xlDiagonalDown) .LineStyle = xlContinuous .Weight = xlMedium End With With .Borders(xlDiagonalUp) .LineStyle = xlContinuous .Weight = xlMedium End With Else .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone End If End With Case Else End Select End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread