Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA Fehler 400
#1
Hallo zusammen :),

ich habe meine Tabelle nun endlich fertig, deshalb wollte ich Sie mit einem Blattschutz versehen.
Ich habe 3 Checkboxen, 2 Checkboxen sollen immer im Feld daneben, wenn angeklickt eine 1 einsetzten dies klappt auch wunderbar.
Nur bei einer Checkbox sobald der Blattschutz aktiviert ist bloppt ein Fenster auf Fehler 400, das verstehe ich nicht, fast der selbe Code ist in der Checkbox daneben drin, diese funktioniert perfekt mit und ohne Blattschutz

Code vom Übeltäter:

Sub jungeleute()
With ActiveSheet.CheckBoxes
    For i = 8 To 200
        .Add(Cells(i, "L").Left, Cells(i, "L").Top, 0, 0).Select
        Selection.Caption = ""
        Selection.OnAction = "Tabelle1.Kontrollkästchen_Klicken2" 'im Kopf des sheets
    Next i
End With
End Sub

Sub jungeleute2(Adr As String, An As Integer)
    RR = Split(Adr, "$")(2)
Debug.Print Adr, An, RR
If An = 1 Then
    Cells(RR, "M") = 1
Else
    Cells(RR, "M") = 0
End If
End Sub
Antworten Top
#2
Hallo,

ich kenne deine Datei nicht und werde sie nich nachbauen.  Sehe aber was der Fehler sein könnte, und zwar hier:
.Add(Cells(i, "L").Left, Cells(i, "L").Top, 0, 0).Select    

Mit Add fügst du ein neues Objekt ein. Bei gesperrtem Blatt nicht möglich!  Wasrum du aber ein neues Object einfügst ist mit unklar?  
For i = 8 To 200   Wenn ich das richtig verstehe sollen hier 200 neue Checkboxen eingefügt werden.  Ist das so gewollt?  So richtig???

mfg  Gast 123 
Antworten Top
#3
Nachtrag

wenn das Makro so funktionieren soll dann bitte so:  (Wenn ein Passwort existieren sollte bitte hinter Unprotect so mit angeben: "Passwort"

Sub jungeleute()
ActiveSheet.Unprotect
With ActiveSheet.CheckBoxes
    For i = 8 To 200
        .Add(Cells(i, "L").Left, Cells(i, "L").Top, 0, 0).Select
        Selection.Caption = ""
        Selection.OnAction = "Tabelle1.Kontrollkästchen_Klicken2" 'im Kopf des sheets
    Next i
End With
ActiveSheet.Protect
End Sub
Antworten Top
#4
Hallöchen,
Du kannst auch mal schauen, ob es mit anderen Blattschutzeinstellungen geht. Und dann noch eine Zusatzfrage. Tust Du denn öfters gut 200 Checkboxen hinzufügen?
Ich glaube das eher nicht. Da dürfte der Fehler eher im Code 2 liegen. Aber da kannst Du ja auch den Änderungsvorschlag verwenden.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#5
Vielen Dank für eure Hilfe :)
der Code funzt iwie auch nicht :(
Ja das ist gewollt ich habe eine Tabelle in 2 Spalten sind je ca. 200 Checkboxes, dies ist auch so gewollt.
Ich sobald ich iwo einen Blattschutz einfüge kommt der Fehler (
Antworten Top
#6
Ich habe das Problem behoben, jedes Blatt einzeln bearbeitet erst alles schützen dann einzeln etliche Spalten wieder vom Schutzbefreit und alles wieder klein zusammen gezogen.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste