1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Excel 2007 Kontrollkästchen - X setzen

Discussion in 'Office-Programme' started by ectoalis, Oct 4, 2008.

Thread Status:
Not open for further replies.
  1. ectoalis

    ectoalis Byte

    Hallo,

    ich möchte, dass wenn ich auf ein Feld klicke, dort ein X erscheint.

    Seit Stunden sitze ich da jetzt dran und habe nur herausgefunden das es über Entwicklertools, Einfügen, Formularsteuerelement, Kontrollkästchen eine Möglichkeit gibt.

    Dieses lässt sich jedoch "kaum" formatieren...

    Ich möchte keine Häckchen, sondern ein X und das so groß wie das Feld.

    Ich kriegst nicht hin ;-(

    Danke
     
  2. Urs2

    Urs2 Megabyte

    Ich kenne zwei verschiedene Kontrollkästchen, aber beide mit Haken... mit Kreuz habe ich noch nie gesehen...

    Wenn es unbedingt ein X sein muss, und mit entsprechendem Aufwand:

    - Zeichne 2 Schaltflächen in der gewünschten Formatierung > ein leeres Quadrat und ein Quadrat mit Kreuz.
    - Je ein Makro versteckt das Angeklickte und zeigt das jeweils andere.
    - Lege die beiden Kästchen übereinander.

    Viel Vergnügen - eine vernünftigere, brauchbare Lösung kenne ich nicht.

    Gruss Urs
     
  3. Beverly

    Beverly Halbes Megabyte

    Hi,

    mache einen Rechtsklick auf den Tabellenreiter -> Code anzeigen und kopiere diesen Code in das (rechte) Codefenster

    Code:
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Target.Borders(xlDiagonalDown).LineStyle = 1 Then
            With Target
                .Borders(xlDiagonalDown).LineStyle = xlNone
                .Borders(xlDiagonalUp).LineStyle = xlNone
            End With
        Else
            With Target
                .Borders(xlDiagonalDown).LineStyle = xlContinuous
                .Borders(xlDiagonalDown).Weight = xlThick
                .Borders(xlDiagonalUp).LineStyle = xlContinuous
                .Borders(xlDiagonalUp).Weight = xlThick
            End With
        End If
        Cancel = True
    End Sub
    
    Bei einem Doppelklick in eine beliebige Zelle wird eine Kreuz erzeugt und bei erneutem Doppelklick wieder entfernt.
     
Thread Status:
Not open for further replies.

Share This Page