Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

EXCEL und CheckBoxes





Frage

Hallo Ihr EXCEL geprüften Leidtragenden, habe für ein Formular CheckBoxes eingerichtet und finde leider nicht die Eigenschaften um die Größe der Häkchenbox zu verändern. Vielleicht hat jemand die Lösung.Ich benutze EXCEL 2002 mit allen mittlerweile freigegebenen Updates. Danke

Antwort 1 von Coolpix

hallo Udo,
man kann bei den Kontrollkästchen bzw. Checkboxes vieles einstellen aber die Größe der Häkchenbox ist einzig vom eingestellten Zoomfaktor abhängig.

Greetings ;-)

Antwort 2 von coros

Hi Udo,

ich gehe mal davon aus, dass Du eine CheckBox aus der Symbolleiste Steuerelement-Toolbox verwendet hast. Bei einer solchen CheckBox kann die Größe nicht verändert werden. Eine Möglichkeit wäre, das Blatt größer zu Zoomen und die Schriftart zu verkleinern. Aber meistens ist das aus optischen Gründen nicht machbar. Dann gibt es noch eine andere Lösung. Hierzu musst Du nicht CheckBoxen nehmen, sondern Bezeichnungsfelder. Platzier diese Felder in Deiner Tabelle und rufe die Eigenschaften eines der Felder auf. Gehe dann in dem Eigenschaftsfenster in die Zeile Caption. Dort sollte nun rechts neben Caption Label 1oder Label 2 stehen. Lösche den Eintrag und gebe dort bei gedrückter ALT-Taste die Zahlenkette 0163. Nachdem Du die Returntaste gedrückt hast, sollte nun dieses Zeichen £ dort stehen. Danach gehe in die Zeile Font und wähle dort die Schriftart Windings2 aus und vergebe zum Anfang eine Größe von 20. Das ganze machst Du für beide Bezeichnungsfelder. Nun gehe in die VBA Umgebung und kopiere die Nachfolgenden Codes in das VBA Projekt der Tabelle, in der sich die Bezeichnungsfelder befinden.

Private Sub Label1_Click()
  If Label1.Caption = Chr$(163) Then
    Label1.Caption = "R"
    globalBoolLabel1Ausgewählt = True
  Else
    Label1.Caption = Chr$(163)
    globalBoolLabel1Ausgewählt = False
  End If
End Sub

Private Sub Label2_Click()
  If Label2.Caption = Chr$(163) Then
    Label2.Caption = "R"
    globalBoolLabel2Ausgewählt = True
  Else
    Label2.Caption = Chr$(163)
    globalBoolLabel2Ausgewählt = False
  End If
End Sub


Dieser Code macht nichts anderes, als dass er den Buchstaben R in das Bezeichnungsfeld schreibt. Bei der Schriftart Windings2 ergibt das halt das Zeichen für den Haken. Die Größe kannst Du, wenn das Kästchen bei der Schriftgröße 20 zu klein sein sollte, durch erhöhen der Schriftgrößenzahl vergrößern.

Da ich nicht weiß, ob Du Dich mit VBA (Visual Basic) auskennst, kommt hier eine kurze Anweisung, wie Du den Code in Deine Tabelle bekommst.

1. Markiere die Anweisung aus diesem Beitrag und Kopiere (Strg c) diesen.

2. Klicke in Deiner Exceldatei in der Menüleiste nacheinander auf Extras => Makro => Visual Basic Editor oder drücke die Tastenkombination Alt F11

3. In dem neu geöffneten Fenster suche auf der linken Seite nach dem Eintrag VBA Projekt(Hier der Name Deiner Tabelle)

4. Klicke danach in dem linken Fenster auf den Eintrag Tabelle1(Dein Tabellenname) oder Tabelle2(Dein Tabellenname),bzw die Tabelle, in dem der Code wirken soll.

5. Füge nun die vorher kopierte Anweisung in das rechte leere Fenster ein.

Du solltest zum Abschluss noch die Sicherheitseinstellung, die beim Öffnen der Datei abgefragt wird, kontrollieren. Klicke dazu nacheinander in der Menüleiste wieder auf Extras => Makro und dann auf Sicherheit.... Gehe, falls nicht schon angezeigt, auf die Registerkarte Sicherheitsstufe und schaue dort nach, ob die Einstellung Mittel aktiviert ist. Wenn nicht, aktiviere diese Einstellung, da sonst der Code nicht ausgeführt werden kann. Beim nächsten Öffnen Deiner Datei kommt eine Abfrage, ob Makros aktiviert oder deaktiviert werden sollen. Klicke auf aktivieren und der Code wird ausgeführt.

Wenn Du alles richtig gemacht hast, dann sollte, nachdem Du das Bezeichnungsfeld anklickst dort ein Haken erscheinen. Bei erneutem Klick sollte der Haken wieder verschwinden.

MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: