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
|