Office: (Office 2013) Checkboxen automatisch in Zelle integrieren

Flip_189 · 17. November 2015

Hallo zusammen,

ich möchte gerne eine CheckBox in eine Zelle integrieren, d.h. ich möchte in einer Zelle ein Häkchen setzten können, welches eben jene Zelle WAHR oder FALSCH setzt.
Das schaffe ich auch, aber ich benötige das für 50 Zellen auf 4 Tabellenblättern.
Also bin ich der Meinung, das muss auch einfacher und schneller gehen.

Mein derzeitiges Vorgehen ist:

ActiveX Checkbox einfügen-platzieren-Zelle zuweisen- Text löschen- Größe anpassen... - verzweifeln.*rolleyes.gif*

Gibt es einen einfacheren weg? Oder komme ich nicht um das Makroschreiben
drum herrum?

Schöne Grüße

Flip

:)

Beverly · 19. November 2015

Hi,

erstelle die Steuerelemente per VBA oder benutze statt der Steuerelemente das Doppelklick-Ereignis des Tabellenblattes.

Flip_189 · 19. November 2015

ok, das Doppelklick ereigniss war mir jetzt noch nicht bekannt. Da ich mit VBA noch nicht so viel Erfahrung habe, Hab ich mir mal das Erstellen einer Checkbox aufzeichnen lassen.

Code:

Sub Makro1()
'
' Makro1 Makro
'

'
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=120.75, Top:=135, Width:=ActiveCell.Width, Height:=ActiveCell.Height) _
.Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die höhe und die Breite habe ich jetzt mal direkt von der gewählten Zelle genommen. Aber wie bekomme ich den Text entfernt und die Box in die Zelle/ die Zelle zugewiesen?

Beverly · 19. November 2015

Code:

Sub CheckBoxenErstellen()
Dim oobElement As OLEObject
Dim wksTab As Worksheet
Dim lngZeile As Long
Application.ScreenUpdating = False
For Each wksTab In Worksheets
With wksTab
Select Case .Name
' Tabellen in denen die CheckBoxen erstellt werden sollen
Case "Tabelle1", "Tabelle2", "Tabelle4", "Tabelle5"
' CheckBoxen erstellen ab Zeile 4 bis 10
For lngZeile = 4 To 10
' CheckBox erstellen für laufende Zeile: Links=Spalte B, Oben=laufende Zelle Spalte B,
' Breite: Spalte B, Höhe=Zeilenhöhe laufende Zeile
Set oobElement = .OLEObjects.Add(classType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=.Cells(lngZeile, 2).Left, Top:=.Cells(lngZeile, 2).Top, _
Width:=.Cells(lngZeile, 2).Width, Height:=.Cells(lngZeile, 2).Height)
' Verknüpfung zur Zelle zuweisen
oobElement.LinkedCell = Cells(lngZeile, 2).Address '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Flip_189 · 26. November 2015

Danke.. das komm auf jeden Fall mal in die richtige Richtung.
Komisch das so eine Funktion nicht fest in Excel eingebaut ist.

Gruß Flip

Office: (Office 2013) Checkboxen automatisch in Zelle integrieren

Checkboxen automatisch in Zelle integrieren

Checkboxen automatisch in Zelle integrieren

Checkboxen automatisch in Zelle integrieren

Checkboxen automatisch in Zelle integrieren - Similar Threads - Checkboxen automatisch Zelle

Ausblenden von Inhalten per Checkbox / wiederholen von Inhalten

Zeile kopieren nach Checkbox aktivierung

VBA / Leerzeile mit Checkbox löschen

Checkbox Farbe ändern

Frage zu CheckBox - TripleState =True

Zeilen ein/ausblenden mit Checkbox

automatische Aktivierung einer Checkbox funktioniert