Private Sub Worksheet_Change(ByVal target As Range
17.04.2018 13:18:59
Gergö
habe schon einmal tolle Hilfestellung von euch bekommen,
bin wieder zu einem Punkt gekommen wo ich nicht weiterkomme.
Ich habe hier diesen Text aus einem anderem Forum gefunden für meine Zwecke
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Erstellt in Bereich E27 bei Klick ein leeres Kästchen oder ein angehaktes Kä stchen
If Not Intersect(Target(1, 1), [E27]) Is Nothing Then
With Target(1, 1)
.Font.Name = "Wingdings" 'Zelle in Schriftart "Wingdings" formatieren
.Font.Size = 40 'Hier die Grösse anpassen !
.Value = IIf(.Value = Chr(168), Chr(254), Chr(168)) 'Wechselt zwischen leerem und _
angehaktem Kästchen
End With
End If
End Sub
Mein Ziel ist es diese Anwendung nicht nur auf die Zelle E27 zu begrenzen,
ich würde diese auch in den Zellen E32, E37, E42, E47, E52 brauchen.
Wie erstelle ich eine Case hierzu damit es führ mehrere Zellen zutrefen kann?
Bitte euch um eine möglichst detailierte Beschreibung da ich in sachen VBA wenig verstehe