VBA Makros

[snb]

VBA für Smarties:

Code:

Sub Schaltflaeche_Klicken()
  With ActiveSheet.Buttons(Application.Caller).TopLeftCell
    If (.Column - 2) Mod 3 = 0 Then .Offset(, 1).Resize(, 2) = Array(Abs(.Offset(, 1) = 0), Format(.Offset(, 1) = 0, "yes/No"))
  End With
End Sub

[HKindler]

@snb: Da könnte man aber noch zwei Zeichen sparen...

[snb]

@HKind

Da hast du völlig recht; ebenmehr als 2

Code:

Sub Schaltflaeche_Klicken()
  With Shapes(Application.Caller).TopLeftCell.Offset(, 1)
    If .Column Mod 3 = 0 Then .Resize(, 2) = Array(1 - .Value, Format(1 - .Value, "yes/No"))
  End With
End Sub