Ich möchte in eine Tabelle unter die letzte beschriebene Zeile in der "B" Spalte eine Checkbox einfügen.
Die Checkbox soll in Zeile "A" stehen.
Unten stehenden Code habe ich schon gefunden. Das Makro fügt aber immer in einer festen Zeile, hier die Zeile 6 eine neue Zeile ein. Ausserdem wird nur in der Spalte "A" gesucht.
Leider habe ich es noch nicht geschafft das Makro anzupassen.
Weiss jemand Rat?
DANKE, schon mal im voraus
tatü
Sub Schaltfläche1_BeiKlick2()
Tabelle = "Tabelle1"
Zeile = 6
SpalteCheckbox = 1 'hier die Spaltennummer für die Checkbox eintragen
Worksheets(Tabelle).Rows(Zeile).Insert Shift:=xlDown
oben = Rows(Zeile).Top
links = Rows(Zeile).Cells(1, SpalteCheckbox).Left
breite = Rows(Zeile).Cells(1, SpalteCheckbox).Width
höhe = Rows(Zeile).RowHeight
Set cb = Worksheets(Tabelle).CheckBoxes.Add(links, oben, breite, höhe)
cb.Caption = "Beschriftung" 'hier die Beschriftung für das Kontrollkästchen festlegen
End Sub