Schrift bei Klick in Zelle ändern

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' show / hide optional services If Not Intersect(Target, Range("D15")) Is Nothing Then If Worksheets(1).Range("E15") = "Hide" Then Worksheets(1).Range("E15") = "Show" Worksheets(1).Rows("16:20").Hidden = False Else Worksheets(1).Range("E15") = "Hide" Worksheets(1).Rows("16:20").Hidden = True End If End If If Not Intersect(Target, Range("D16:D20")) Is Nothing Then If Worksheets(1).Range("E16") = "Hide" Then Worksheets(1).Range("E16") = "Show" Worksheets(1).Range("D16").Font.Strikethrough = False Else Worksheets(1).Range("E16") = "Hide" Worksheets(1).Range("D16").Font.Strikethrough = True End If End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = 1 Then If Len(Target) Then If Not Intersect(Range("D10:D100"), Target) Is Nothing Then With Target.Font .Strikethrough = Not .Strikethrough .Color = -.Strikethrough * 255 End With End If End If End If End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = 1 Then If Len(Target) Then If Not Intersect(Range("D10:D100"), Target) Is Nothing Then Target.Font.Strikethrough = Not Target.Font.Strikethrough Target.Font.Color = -Target.Font.Strikethrough * 255 End If End If End If End Sub

Hallo Tim,
falls mehr als eine Zelle gewählt.

Option Explicit                                     ' Variablendefinition erforderlich
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'* H. Ziplies                                  *
'* 19.10.15                                    *
'* erstellt von HajoZiplies@web.de             *
'* http://Hajo-Excel.de/
Dim RaBereich As Range                          ' Variable für Bereich
Dim RaZelle As Range                            ' Variable für Zelle
Set RaBereich = Range("C8:D15,L22:M39, O21:O26")       ' Bereich der Wirksamkeit
' noch mehr Bereiche
'Set RaBereich = Union(Range("C11:AG11 , C13:AG13, C15:AG15 , C17:AG17"), _
'    Range("C35:AE35, C37:AE37, C43:AG43, C45:AG45 , C47:AG47 , C49:AG49"), _
'    Range("C67:AF67 , C69:AF69 , C75:AG75 , C77:AG77 , C79:AG79 , C81:AG81"), _
'    Range("C99:AF99 , C101:AF101, C107:AG107 , C109:AG109 , C111:AG111"), _
'    Range("C127:AG127 , C129:AG129 , C131:AG131 , C133:AG133 , C139:AF139"), _
'    Range("C155:AG155, C157:AG157 , C159:AG159 , C161:AG161 , C163:AG163"), _
'    Range("C179:AF179 , C181:AF181, C187:AG187 , C189:AG189 , C191:AG191"))
' ab Vesion XP braucht der Schutz nicht aufgehoben werden
' Formatierung bei Schutz kann über Dialog Schutz eingestellt werden
' Zelle die in dem Bereich liegen auf die Variable schreiben
' damit werden nur noch die Zellen bearbeitet die im vorgegeben Bereich liegen
' jede Zelladresse ist einzeln angegeben
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In RaBereich
With RaZelle.Font
If .Strikethrough = False Then
.Strikethrough = True
Else
.Strikethrough = False
End If
End With
Next RaZelle
'ActiveSheet.protect ("Passwort")
End If
Set RaBereich = Nothing                         ' Variable leeren
End Sub

Beliebteste Forumthreads (12 Monate)

Schrift bei Klick in Zelle ändern

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Schrift bei Klick in Zelle ändern

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread