Office: Syntax Fehler VBA

Hallo zusammen,

ich habe von VBA keine Ahnung.

Von Hajo habe ich aber ein Makro bekommen, wo sich ein oder mehrere Syntaxfehler befinden.

Sub Workbook_Open()
Sheets("E:\Eigene Dateien\QM-Desktop\Kunden-2006-Deskt\VGH-2006").Protect UserInterfaceOnly:=True, Password:="password"
Sheets("E:\Eigene Dateien\QM-Desktop\Kunden-2006-Deskt\VGH-2006").EnableOutlining = True '**** Für Gliederung
Sheets("E:\Eigene Dateien\QM-Desktop\Kunden-2006-Deskt\VGH-2006").EnableAutoFilter = True '**** Für AutoFilter
End Sub

Hat jemand eine Ahnung??

Gruß Andy

 

Hallo Andy,

Du kannst Dich drauf verlasen in meinem Code befinden sich keine Syntaxfehler.
Die hast Du selber reingebaut schiebe mir nicht die Schuld zu.
Bei mir haben die Tabellen immer einen Namen wie Tabelle oder ähnlich.
Ich glaube : und \ sind keine zulässigen Zeichen für einen Tbaellennamen.

Gruß Hajo

 

Hallo Hajo,

hatte ich damit auch nicht sagen wollen.
Ich habe es unglücklich formuliert.

Allerdings, wenn ich den Tabellennamen eintragen sollte und nicht die Adresse, dann hättest Du das anders in der Formel angeben müssen. :-D

Trotzdem scheint sich bei mir ein weiterer Fehler eingeschlichen zu haben:

Sub Workbook_Open()
Sheets("Projektbezogen (G)").Protect UserInterfaceOnly:=True, Password:="123"
Sheets("^Projektbezogen (G)").EnableOutlining = True '**** Für Gliederung
Sheets("Projektbezogen (G)").EnableAutoFilter = True '**** Für AutoFilter
End Sub

 

ich habe jetzt nachgeschaut was ich da immer schreibe und es Stand folgendes im BeitragAutofilterfunktion, Gruppierung bei Blattschutz möglich?
Diese Frage wurde in diesem Forum auch schon gestellt. Die Lösung damals:
Das funktioniert normalerweise nicht. Du kannst Excel aber austricksen.
Bevor Du auf Blattschützen stellst, blendest Du die Filter ein.
Dann schützt Du das Blatt
Jetzt folgendes Makro in VBA unter DieseArbeitsmappe
Sub Workbook_Open()
Sheets("Adresse").Protect UserInterfaceOnly:=True, Password:="Passwort"
Sheets("Adresse").EnableOutlining = True ' Für Gliederung
Sheets("Adresse").EnableAutoFilter = True ' Für AutoFilter
End Sub
Du spricht 2 unterschiedlich Tabelle an. Für jede Tabelle muss Du den kompletten Code angeben.

Gruß Hajo

 

Hallo Hajo

Aus welchem Grund auch immer, es funktioniert!!!

Vielen Dank!!


Gruß Andy