Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Aecksel vom 05.02.2020, 21:59 Options

Die Funktion Kontrollkästchen (Checkbox) erlaubt mir einen Haken zu setzen. Kann der Haken durch ein X ersetzt werden. Wenn ja, wie geht das.

Ich möchte den Haken des Kontrollkästchens durch ein ' X ' ersetzen. Muß hierzu in das Makro eingegriffen werden. Oder geht es einfacher?
Brauche hierzu Hilfe, da ich in einem Formular die 'X- Version' benötige.
Version Excel 2003.

^{*Threadedit* 22:09:09
Admininfo: Führ bitte einen Thread nicht fort indem du Weitere eröffnest, und vermeide Mehrfachanfragen. Die Datenbank und User werden es dir danken. Siehe FAQ 2, #3.}

Antwort schreiben

Antwort 1 von Marie vom 06.02.2020, 03:17 Options

Jo, hier findest Du sowas, klicke auf Arbeitsblatt 2

http://www.herber.de/bbs/texte/5uwe.xls

Das ist der Code, der in einem Modul steht:

Option Explicit

Sub KreuzWeg()
   ActiveSheet.Shapes(1).Ungroup
   With ActiveSheet.TextBoxes(1)
      If .Text = "X" Then
         .Text = ""
      Else
         .Text = "X"
      End If
   End With
   ActiveSheet.Shapes.Range(Array("Kreuz", "CheckBox")).Group
End Sub

Gruß Marie

Antwort 2 von Aecksel vom 07.02.2020, 22:27 Options

Hallo Marie,

das ist Super.
Genau so habe ich es mir vorgestellt.
Danke für die Hilfe.

Gruß Aecksel

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken