Liebe/-r Experte/-in,
ich möchgte eine Checkliste in Excel erstellen.
Idealerweise sollte durch ein einfaches anklicken eine bestimmte Zelle grün werden und am besten auch durch ein Pfeilsymbol als abgehakt markiert erscheinen.
Hab ihr eine Idee für eine Formel ober einen Befehl?
Vielen Dank für Eure Hilfe!
Viele Grüße
Thomas
Hallo,
Du musst checkboxen zb B1 - B3 einsetzen
(ActivXSteuerelement)
In A1 - A3 Text
In Feld C1 - C3 wird ein Pfeil dargestellt, dieses entspricht den Buchstaben Arial „F“ und unter Wingdings 3 einen Pfeil habe die Stärke auf 18 gesetzt. Kann ja geändert werden.
Habe aber die Farbe „Rot“ gewählt.
Den nachfolgenden Code unter Entwicklertools in Tabelle1 einfügen. Es läuft.
Hoffe ich konnte helfen
Private Sub CheckBox1_Click()
'Beispiel für Zelle A1
If CheckBox1.Value = True Then
Range(„a1“).Interior.ColorIndex = 3
Range(„C1“).Select
ActiveCell.FormulaR1C1 = „f“
With Selection.Font
.Name = „Wingdings 3“
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range(„a1“).Select
Else
Range(„a1“).Interior.ColorIndex = 0
Range(„C1“).Select
ActiveCell.FormulaR1C1 = „“
With Selection.Font
.Name = „Arial“
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range(„a1“).Select
End If
End Sub
Private Sub CheckBox2_Click()
'Beispiel für Zelle A2
If CheckBox2.Value = True Then
Range(„a2“).Interior.ColorIndex = 3
Range(„C2“).Select
ActiveCell.FormulaR1C1 = „f“
With Selection.Font
.Name = „Wingdings 3“
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range(„a2“).Select
Else
Range(„a2“).Interior.ColorIndex = 0
Range(„C2“).Select
ActiveCell.FormulaR1C1 = „“
With Selection.Font
.Name = „Arial“
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range(„a2“).Select
End If
End Sub
Private Sub CheckBox3_Click()
'Beispiel für Zelle A3
If CheckBox3.Value = True Then
Range(„a3“).Interior.ColorIndex = 3
Range(„C3“).Select
ActiveCell.FormulaR1C1 = „f“
With Selection.Font
.Name = „Wingdings 3“
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range(„a3“).Select
Else
Range(„a3“).Interior.ColorIndex = 0
Range(„C3“).Select
ActiveCell.FormulaR1C1 = „“
With Selection.Font
.Name = „Arial“
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range(„a3“).Select
End If
End Sub
Hallo Thomas,
leider kann ich Dir bei dieser Anfrage auch nicht helfen. Ich denke, das würde über die Bedingte Formatierung gehen, aber ich weiß nicht, wie das auf Klicken gehen soll. Oder vielleicht mit einem Makro.
LG Martina