Durch klicken ein x setzen

Forumthread: Durch klicken ein x setzen
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Durch klicken ein x setzen

14.06.2006 16:25:24

Alex

Hallo zusammen,
wie kann ich durch einen Doppleklick ein x in eine Zelle schreiben?
Vorher hat mir Bertram gezeigt wie ich durch klicken die Zelle grün machen kann.
Was muss ich in folgendem Code ändern um die Zelle nicht mehr grün zu machen sondern ein x zu setzen?


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D2:AS149")) Is Nothing Then
Select Case Target.Interior.ColorIndex
Case Is = xlNone
Target.Interior.ColorIndex = 4
Case Is = 4
Target.Interior.ColorIndex = xlNone
End Select
Cancel = True
End If
End Sub

Gruß und Dank
Alex

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Durch klicken ein x setzen

14.06.2006 16:27:55

Dr.

AW: Durch klicken ein x setzen

14.06.2006 16:27:55

Dr.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D2:AS149")) Is Nothing Then
Select Case Target.Value
Case Is = ""
Target.Value = "x"
Case Is = "x"
Target.Value = ""
End Select
Cancel = True
End If
End Sub