VBA - Checkbox - Programmiercode

Computer: Software & Programmierung Office Software
1

Hallo Leute,

ich benötige Hilfe mit der VBA-Programmierung von Excel 2007.

Ich erkläre kurz, was mein Ziel ist:

Ich möchte eine Abrechnungstabelle erstellen. Zu vorderst steht ein Name und dahinter kann man eine CheckBox anklicken. Bei „True“ werden einige Zahlen (z.B. Kosten o.Ä.) in die, dem Namen entsprechende Zeile eingefügt. Das ist an sich überhaupt kein Problem.

Da die Liste 20 Personen umfassen wird und ähnliche Funktionen noch hinzukommen sollen, wird das ein riesiger Haufen Arbeit, wenn man den Code zu jeder Personenzeile einzeln hinzufügt. Selbst mit Copy&amp:stuck_out_tongue_winking_eye:aste bleibt immer noch die Arbeit die einzelnen CheckBox-Namen umzuändern und natürlich die entsprechenden Ausgabezellen zu verändern (die Zelle in der beispielsweise die Kostnen stehen).

Ich Suche nach einer Möglichkeit 20 CheckBox’en untereinander in 20 verschiedenen Zeilen anzuordnen, wobei jede CheckBox den Eintrag in ihre eigenen Zeile, jedoch in derselben Spalte macht - und das möglichst ohne viel Arbeit…

Für direkte Hilfe bin ich ebenso dankbar, wie für Lektüre, die mir weiterhilft.

Grüße
Magics

2

Ich Suche nach einer Möglichkeit 20 CheckBox’en untereinander
in 20 verschiedenen Zeilen anzuordnen, wobei jede CheckBox den
Eintrag in ihre eigenen Zeile, jedoch in derselben Spalte
macht - und das möglichst ohne viel Arbeit…

hallo Magics,

einiges ist mir nicht so klar, mal ein Anfangscode:

Sub Makro1()
Dim CB As Object, N As Integer
Application.ScreenUpdating = False
For Each CB In ActiveSheet.Shapes
 If CB.Name Like "Check\*" Then CB.Delete
Next CB
For N = 1 To 20
 Set CB = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, \_
 DisplayAsIcon:=False)
 With CB
 .Top = Range("C" & N).Top + 1
 .Left = Range("C" & N).Left
 .Width = 12
 .Height = 12
 End With
Next N
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard