Hallo allerseits,

ich bin mir gar nicht sicher, ob das was ich möchte machbar ist, aber ich versuche mal mein Problem zu schildern. Habe folgenden Code geschrieben, um eine Art Hilfsliste zu generieren, die herangezogen wird, um daraus Checkboxnamen zuzuweisen. Leider habe ich ursprünglich nicht bedacht, dass neue Checkboxen automatisch die letzten Einträge (aber nicht die neusten) zugewiesen bekommen. Das ist dann leider nicht mehr korrekt. Hatte überlegt diese Hilfsliste anders zu gestalten, aber ich bin mir nicht sicher wie. Könnte mir vorstellen zu sagen, dass alte Einträge so wie unten aufgeführt werden und neue in der Reihenfolge in der sie erzeugt wurden, hinzugefügt werden... Bin mir aber nicht sicher was passiert, wenn neue Einträge zu alten werden... Hoffe, das ist einigermaßen verständlich.

Schon mal vielen Dank.

Viele Grüße

Corina

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
'Whenever the sheet "Lists" is changed, the name list for the checkboxes is refreshed
Application.EnableEvents = False

Dim nZeile As Integer
Dim vSpalte As Integer
Dim vZeile As Integer
Dim nSpalte As Integer
Dim vSheet As String
Dim nSheet As String

vSheet = "Lists"
nSheet = "Lists" 'Target sheet
nZeile = 1 'Target row
nSpalte = 18 'Target column

For vSpalte = 4 To 7 'Relevant entries for the refreshed list
    For vZeile = 3 To Sheets(vSheet).Cells(65536, vSpalte).End(xlUp).row
        Sheets(nSheet).Cells(nZeile, nSpalte) = Sheets(vSheet).Cells(vZeile, vSpalte)
        nZeile = nZeile + 1
    Next
Next

'Execute subs below
DeleteCells
RenameCheckBox

Application.EnableEvents = True

Exit Sub

End Sub