Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Checkbox

23 views
Skip to first unread message

Daniela Mayer

unread,
Jul 21, 2003, 5:19:15 AM7/21/03
to
Hallo,

kann mir jemand sagen, ob man die Größe der Checkbox
verändern kann? Ich finde sie etwas zu klein.

Vielen Dank!!!

Bernd Held

unread,
Jul 21, 2003, 7:04:42 AM7/21/03
to
Hallo Daniela,

nö, da musst Du das Kontrollkästchen aus der Symbolleiste
Steuerelement-Toolbox verwenden. Damit kannst du dann die Größe ändern.
Eine andere Methode ist, den Zoom für die Tabelle ein wenig größer
einzustellen.

Viele Grüße
Bernd
MVP für Microsoft Excel
Das VBA-Bücher mit Leseproben(PDF), VBA-Forum und Schulungen
unter http://held-office.de


"Daniela Mayer" <Daniel...@t-systems.com> schrieb im Newsbeitrag
news:051b01c34f69$27c024d0$a501...@phx.gbl...

Andreas Zandt

unread,
Jul 28, 2003, 5:10:22 AM7/28/03
to
Hallo,

ich habe in meine Excel-tabelle eine checkbox eingebaut.
Diese ist besitzt eine Linked cell, in der der wert wahr
oder falsch ausgegeben wird.

Nun will ich diese checkbox in den 2000 darunterliegenden
zeilen ebenfalls haben.
Beim nach unten ziehen bleibt allerdings die Linked cell
immer die selbe.
ich benötige allerdings jeweils die der entsprechenden
zeile.
Wie kann ich das machen, wenn ich nicht für jede Checkbox
die Linked cell händisch ändern will?

Danke für eure Hilfe schon im voraus!

MfG

Andreas Zandt

stefan onken

unread,
Jul 28, 2003, 5:45:26 AM7/28/03
to
hallo Andreas,
du könntest das Erstellen und Verlinken der Checkboxen
einem Makro überlassen. Folgendes Beispiel erstellt 20
Checkboxen in A1 bis A20, die LinkedCell jeweils in
Spalte B:

Sub ChkBoxenErstellen()
Dim i
For i = 1 To 20
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1",
Link:=True, _
DisplayAsIcon:=False, Left:=Range("A" & i).Left,
Top:=Range("A" & i).Top, _
Width:=Range("A" & i).Width, Height:=Range("A" &
i).Height).Select
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
.LinkedCell = "B" & i
End With
Next
End Sub

Gruß
stefan

>-----Originalnachricht-----

>.
>

Andreas Zandt

unread,
Jul 28, 2003, 6:38:09 AM7/28/03
to
Hallo Stefan,

Ich habe den Code, den du mir geschickt hast in VB
eingefügt. Allerdings kann dieser nicht ausgeführt werden,
da ein Fehler vorhanden ist.

Kannst du mir dabei weiterhelfen?

Danke schon mal!

Gruß Andi
>-----Originalnachricht-----
>Nachricht nicht verfügbar

Andreas Zandt

unread,
Jul 28, 2003, 7:47:37 AM7/28/03
to
Nach der folgenden Hilfe hab ich leider immer noch ein
Problem:

Ich hätte gern, dass die Checkbox standardmäßig auf aus
ist (nach dem code ist der haken gesetzt) und es soll
keine caption angezeigt werden.

Wie kann ich das machen?

MfG

Andreas Zandt

Aw:

Gruß
stefan

.


stefan onken

unread,
Jul 28, 2003, 8:16:26 AM7/28/03
to
hi Andreas,
füge diese Zeilen zwischen End With und Next ein:

With ActiveSheet
.OLEObjects("CheckBox" & i).Object.Caption = ""
.OLEObjects("CheckBox" & i).Object.Value = 0
End With

Gruß
stefan

>-----Originalnachricht-----

>..
>
>
>.
>

0 new messages