Mit Checkbox Zellen freigeben + Schaltfläche für neue Zeile

Hallo ich bin leider noch nicht ganz fündig geworden. Darum nochmal ein neuer Beitrag mit einem neuen Lösungsansatz:

Ich brauche Hilfe bei der folgenden Programmierung:

1. Schaltfläche "Nächster Trade"
1.1 Wenn ich auf die Schaltfläche "Nächster Trade" klicke, soll automatisch eine neue Zeile in der Tabelle1 eingefügt werden. Die neue Zeile soll immer über die Ergebniszeile eingefügt werden.
1.2 Zusätzlich soll die neue Zeile bis auf die akutelle Zelle in der Spalte L geschützt sein, sodass ich keine Eintragungen oder Änderungen machen kann, bis ich die Checkbox1 aktiviere.
1.3 Bei Klick auf die Schaltfläche sollen bei Erstellung der neuen Zeile die Checkboxen deaktiviert werden.

2. Mit Aktivierung der Checkbox1 soll nun zusätzlich die aktuelle Zelle in der Spalte M freigegeben werden.

3. Mit Aktivierung der Checkbox2 soll nun zusätzlich die aktuelle Zelle in der Spalte G freigegeben werden.

4. Mit Aktivierung der Checkbox3 soll nun die gesamte Zeile freigegeben werden.

Ich habe den Ablauf nochmal in Bildern dargestellt:

Userbild

Hier die Datei:
https://www.herber.de/bbs/user/162599.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Für Punkt 1 kannst du folgendes Makro verwenden: (Die Namen deiner Checkboxen musst du ggf. noch ändern)

Sub NewTrade()

    Dim ws As Worksheet

    Dim lastrow As Long

    

    Set ws = ActiveSheet

    

    ws.Unprotect



    lastrow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row



    'Fügt neue Zeile ein

    ws.Rows(lastrow).Insert Shift:=xlDown

    

    'Setzt Bearbeitungsbereicht

    ws.Range("L1:L" & lastrow).Locked = False

    

    'Setzt die Werte der Checkboxen

    Tabelle1.Shapes("Kontrollkästchen 1").ControlFormat.Value = 0

    Tabelle1.Shapes("Kontrollkästchen 2").ControlFormat.Value = 0



    'Arbeitsmappe wird geschützt

    ws.Protect

    

End Sub

Für Punkte 2-4 kannst du die Checkboxen per rechtsklick einem Makro zuweisen das prüft welche Checkboxen angekreuzt sind

Sub Checkboxes()

    Dim ws As Worksheet

    Dim lastrow As Long

    

    Set ws = ActiveSheet

    lastrow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    

    ws.Unprotect



    If Tabelle1.Shapes("Kontrollkästchen 1").ControlFormat.Value = 1 Then

            ws.Range("M1:M" & lastrow).Locked = False 'hier muss ggf. die Spalte geändert werden



    End If

    

    If Tabelle1.Shapes("Kontrollkästchen 2").ControlFormat.Value = 1 Then

            ws.Range("G1:G" & lastrow).Locked = False 'hier muss ggf. die Spalte geändert werden

    End If

    

    'Arbeitsmappe wird geschützt

    ws.Protect

        

End Sub

Beliebteste Forumthreads (12 Monate)

Mit Checkbox Zellen freigeben + Schaltfläche für neue Zeile

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mit Checkbox Zellen freigeben + Schaltfläche für neue Zeile

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread