Thema Datum  Von Nutzer Rating
Antwort
Rot Makro ausführen nach Aktivieren einer Checkbox
05.12.2022 11:55:17 Alex
NotSolved
05.12.2022 20:06:29 Mase
NotSolved
08.12.2022 12:02:38 Alex
NotSolved
08.12.2022 12:31:11 Mase
NotSolved
09.12.2022 08:15:21 Alex
NotSolved
09.12.2022 08:34:36 Mase
Solved
12.12.2022 08:21:59 Alex
Solved

Ansicht des Beitrags:
Von:
Alex
Datum:
05.12.2022 11:55:17
Views:
152
Rating: Antwort:
  Ja
Thema:
Makro ausführen nach Aktivieren einer Checkbox

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro ausführen nach Aktivieren einer Checkbox
05.12.2022 11:55:17 Alex
NotSolved
05.12.2022 20:06:29 Mase
NotSolved
08.12.2022 12:02:38 Alex
NotSolved
08.12.2022 12:31:11 Mase
NotSolved
09.12.2022 08:15:21 Alex
NotSolved
09.12.2022 08:34:36 Mase
Solved
12.12.2022 08:21:59 Alex
Solved