Kontrollkästchen einfügen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo
Ja, mir war klar, dass dies nur mit einem Makro möglich ist - nur wie?
@Jochen
Die Menge ist das Problem - es entstehen pro "Ablauf" bis zu 150 Register, welche bis zu 60 Kontrollkästchen enthalten. Das ist für einen manuelle Abhandlung einfach zuviel.
Also:
Ich müsste einfach markierten Zellen (z.B. L13 bis L34) je ein Kontrollkästchen hinzufügen. Die Position ist aber jeweils pro Register unterschiedlich oder genauer - die Spalte ist gleich, jedoch die Anzahl und Position der Zeilen unterschiedlich.
Die Umschaltung habe ich im Griff, d.h. ich müsste wirklich nur einem zuvor definiertem Bereich die Kästchen hinzufügen.
Alles klar? Kann mir jemand weiterhelfen?
Grüsse bis später
Sue

Sub Bereiche() Dim i, ersteZe, letzteZe, SP As Integer Dim rngArea As Range SP = 12 'anpassen, in welcher Spalte soll das Ankreuzkästchen stehen For Each rngArea In Selection.Areas ersteZe = rngArea(1).Row letzteZe = rngArea(rngArea.Cells.Count).Row Next With ActiveSheet For i = ersteZe To letzteZe .OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=.Cells(i, SP).Left, _ Top:=.Cells(i, SP).Top, Width:=18, Height:=10).Select Next .[A1].Select End With End Sub

Sub Kontroll() ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=23.25, Top:=2.25, Width:=12.75, Height:=9 _ ).Select ActiveSheet.Shapes("CheckBox1").Select Selection.Copy Range("A2:A5").Select ActiveSheet.Paste Range("A3").Select ActiveSheet.Paste Range("A4").Select ActiveSheet.Paste Range("A5").Select ActiveSheet.Paste End Sub

Sub bearbeitet() Dim x As Long Application.ScreenUpdating = False For x = 1 To 40 'zeile 1-40 ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, DisplayAsIcon:=False, Left:=Cells(x, 2).Left, Top:=Cells(x, 2).Top, Width:=Cells(x, 2).Width / 2, Height:=Cells(x, 2).Height).Activate Next Application.ScreenUpdating = True End Sub

Hallo Sue,
Hier nochmals eine Variante zum Einfügen von Checkboxen, wobei auch Optionen für LinkedCell etc. einstellbar sind.
Einfacher zu handhaben und Flexibler sind aber Datengültigkeitsprüfungen mit Drop-Down-Auswahl wie J/N, Ja/Nein oder X/nichts.
Gruß
Franz

Sub Test1()
Call Checkboxen_Einfuegen(Bereich:=Worksheets("Tabelle1").Range("L12:L25"), _
bDrucken:=True, bLinkedCell:=True)
End Sub
Sub Checkboxen_Einfuegen(Bereich As Range, _
Optional bDrucken As Boolean = True, _
Optional bLinkedCell As Boolean = False)
Dim Zelle As Range, wks As Worksheet, oShape As Shape
For Each Zelle In Bereich
Set oShape = Bereich.Parent.Shapes.AddFormControl(Type:=xlCheckBox, _
Left:=Zelle.Left + 1, Top:=Zelle.Top + 1, Width:=20, Height:=12)
oShape.TextFrame.Characters.Text = ""
oShape.ControlFormat.PrintObject = bDrucken
If bLinkedCell = True Then
oShape.ControlFormat.LinkedCell = "'" & Zelle.Parent.Name & "'!" & Zelle.Address
Zelle.Value = False
End If
Next
End Sub

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

182 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kontrollkästchen einfügen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

182 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread