|
Hallo,
ich habe ein Dokument in dem funktionieren die Checkboxen so, dass bei anklicken der Checkbox der Wert der verknüpften Zelle in WAHR oder FALSCH geändert wird. Die drei Checkboxen sind in den Spalten K-L und jeweils mit der Spalte verknüft. Der Button Ausfüllen schreibt bei Zellwert WAHR in die Spalte N den Namen des Benutzer und in die Spalte O das aktuelle Datum rein.
Wird die ausgewählte Checkbox nun deaktiviert bleibt der eingetragene Name und das Datum in den Zellen stehen. Dies hat zur Folge, dass immer der Benutzer drinsteht, der zuerst geklickt hat und dessen Namen eingetragen wurde. Änderungen sind so nicht nachvollziehbar.
Bei Einfügen durch Betätigen des Buttons "Neue Zeile" werden die die letzte Zeile gesucht, die Zeile markiert und mit den Checkboxen kopiert. Es werden automatisch alle Checkboxen mit der Zelle verknüpft. Hier mein Makro.
Public Sub Neue_Zeile_1KSZ()
'** Variablen definieren **
Dim startzeile As Integer
Dim LetzteZeile As Integer
Dim Position As String
Dim a As Integer
Dim b As Integer
Dim chkElement As CheckBox
'** Variablen Werte zuweisen **
startzeile = 1
Position = ActiveCell.Address(0, 0)
a = 10
b = 1
active_cell = Selection.Row
'** Zeile kopieren und einfügen **
Rows(active_cell).Select
Selection.Copy
active_cell = active_cell + 1
Selection.Insert
Selection.Value = ""
LetzteZeile = Worksheets("1Kundenspezifikation").Cells(Rows.Count, 1).End(xlUp).Row
'** Checkboxen mit Zelle verlinken **
For Each chkElement In ActiveSheet.CheckBoxes
chkElement.LinkedCell = Cells(chkElement.TopLeftCell.Row, chkElement.TopLeftCell.Column).Address
Next chkElement
'** Nummerierung hochzählen **
For i = a To LetzteZeile
Worksheets("1Kundenspezifikation").Cells(i, 1).Value = b
b = b + 1
Next i
End Sub
Mein Problem ist, dass das mitkopieren eines Makros nicht funktioniert. Ich habe auch noch keine Lösung gefunden um der Checkbox automatisiert ein Makro zu zuweisen.
Ich stelle mir ein Makro vor, das beim Deaktivieren nachschaut in welcher Zeile habe ich geklickt z.B. K10 Diese Information könnte aus der Checkbox-Eigenschaft verknüpfte Zelle kommen, dann wird die Zelle N10 Benutzer und O10 Datum angesprungen, markiert und gelöscht. Dieses Makro müßte automatisiert jeder Checkbox zugewiesen werden.
Wie könnte eine Lösung hier aussehen? Ich hoffe auf eine gute Idee.
Im Voraus vielen Dank.
Alex
|