späte Frage - hoffe trotzdem mir kann noch einer helfen....
ich füge per Makro eine checkbox ein...das klappt soweit
Jetzt möchte ich dieses mit einer bestimmen Zelle verlinken....das bekomme ich aber nicht gebacken....
Was mache ich falsch?
Das .LinkedCell = Range("G" & zeile + 1) klappt nicht....
Sub Einfügenxyz()
'Einfügen xyz
Dim zeile As Long
Dim zl As Long
Dim rng As Range
Dim objCheckBox As Object
Application.ScreenUpdating = False
ActiveSheet.Select
'Eintrag mit "xyz" finden
zl = Range("D:D").Find(What:="xyz").Row
'von hier zum Ende der Liste springen
If Cells(zl + 1, 4) "" Then
zeile = Cells(zl, 4).End(xlDown).Row
Else
zeile = zl
End If
'neue Zeile einfügen
Rows(zeile + 1).Insert
'Spalten "B:J" von oben auffüllen
Set rng = Range(Cells(zeile, 2), Cells(zeile, 11))
rng.AutoFill Range(rng, rng.Offset(1, 0))
'Spalten "F" löschen
Range("F" & zeile + 1).ClearContents
With Range("G" & zeile + 1)
Set objCheckBox = ActiveSheet.CheckBoxes.Add( _
Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
End With
With objCheckBox
.LinkedCell = Range("G" & zeile + 1)
End With
Application.ScreenUpdating = True
Vielen Dank!
Mfg
Mola