Checkbox mit Makroanpassung kopieren
11.05.2006 14:34:22
Jonas
Ich habe weniger ein Erstellungsproblem sondern eher ein Ausfuellproblem, d.h. ich bin gerade dabei in ein Excelfile ein paar Checkboxen (140 Stueck) zu integrieren. Sie haben alle denselben Code jedoch natuerlich eine andere Bezeichnung und ein anderes Zielfeld in ihrem (die Checkboxen sind vertikal angeordnet und ebenso wechselt das Zielfeld). Gibt es trotzdem vielleicht eine Moeglichkeit nicht alle 140 Stueck per hand mit "Copy, Paste und Zahlen ersetzten" zu erstellen, sondern eine automatische Funktion die das Makro mitkopiert und die Zahlen ersetzt? Ich habe schon an relative Zuordnung gedacht, aber da ja nicht einmal der Code mitkopiert, falls ich die Ceckboxen kopiere ist das vielleicht auch keine Loesung.
Hier mein bisheriger einfacher Code:
Private Sub CheckBox3_Click()
If Me.CheckBox3 = True Then
Range("G5").Value = Format(Now(), "dd.mm.yyyy")
Else
Range("G5").ClearContents
End If
End Sub
Vielen Dank im voraus
Jonas