Kontrollkästchen in großer Anzahl

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Kontrollkästchen in großer Anzahl
von: hans
Geschrieben am: 20.11.2003 11:33:43

Hallo,
also ich hätte da eine Menge an Kontrollkästchen in einen Fragebogen zu integrieren. Problem, der notwendige Zellbezug für die WAHR/FALSCH-Zelle verändert sich nicht, wenn man das Kästchen kopiert. Kann ich mir irgendwie den Aufwand ersparen, für jedes einzelne der Kästchen manuell den Bezug zu verändern. Es sind mindestens 400 Kästchen - da sitze ich noch morgen dran!
Vielen Dank im voraus
gruß
hans

Bild


Betrifft: AW: Kontrollkästchen in großer Anzahl
von: andre
Geschrieben am: 20.11.2003 11:44:21

hallo hans,
im prinzip so:

Sub Makro1()
'
For i = 1 To 2
Tabelle1.OLEObjects(i).LinkedCell = "Tabelle1!A" & i
Next
'
End Sub

--> funktioniert so nur, wenn nur checkboxen in tabelle 1 drin sind und ändert dann alle
ansonsten muss geprüft werden, ob das oleobject(i) eine checkbox ist und über einen extra zähler der bezug hochgesetzt werden

if left(Tabelle1.OLEObjects(i).name,5)="Check" then
k=k+1
Tabelle1.OLEObjects(i).LinkedCell = "Tabelle1!A" & k
end if
...

gruss andre


Bild


Betrifft: AW: Kontrollkästchen in großer Anzahl
von: Holger Levetzow
Geschrieben am: 20.11.2003 11:47:45

wenn Du die Kästchen noch nicht hast, versuche z.B.

Sub Makro4()
For i = 1 To 10
    ActiveSheet.CheckBoxes.Add(60, 12 * i, 72, 72).Select
    With Selection
        .Height = 14.25
        .Width = 84.75
        .Value = xlOff
        .LinkedCell = "A1"
        .Text = "Kunde" & i
    End With
Next
End Sub

Holger


Bild

Beiträge aus den Excel-Beispielen zum Thema " Kontrollkästchen in großer Anzahl"