erste Zeile im Makro
Gruß Hajo
ohne Code kann ich dazu auch nur allgemein schreiben Du mußt in jedem Makro den Schutz aufheben und setzen.
Gruß Hajo
'
Worksheets("eingabe 2002").Unprotect ("")
Range("A3").Select
Selection.Sort Key1:=Range("C3"), Order1:=xlAscending, Key2:=Range("A3") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Worksheets("eingabe 2002").Protect ("")
End Sub
Private Sub CommandButton2_Click()
'
' eingabe_sortieren_name Makro
'
'
Worksheets("eingabe 2002").Unprotect ("")
Range("A3").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range("C3") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Worksheets("eingabe 2002").Protect ("")
End Sub
die Antworten von Hajo sind stets aller erste Wahl.
Wenn ich aber doch mal vorgreifen darf:
Sobald du innerhalb deines makros auf ein geschütztes Tabellenblatt zugreifst, musst du es erst mit
Activesheet.unprotect("Passwort") (bzw. sheets("Tabellenname")
entschützen.
Am besten entschützt du deine Blätter direkt zu Beginn des Makros und setzt den Schutz anschließend wieder.
Gruß Boris
Gruß Boris
was mache ich falsch?
wieviele Worksheets hast du denn?
Und sehe ich das richtig, dass du alle OHNE Passwort geschützt hast?
Gruß Boris
Gute Nacht!
Boris
Nehmen wir mal dein Makro:
Kann mir nur vorstellen, dass du das Makro aus einem anderen Tabellenblatt aufrufst.
Hab den Fokus jetzt mal erst auf das zu sortierende Tabellenblatt gesetzt.
Vielleicht funzt es jetzt.
Gruß Boris
eine weiter Möglichkeit:
Setzt mal bei den Eigenschaften deiner Commandbuttos die Eigenschaft "Take Focus on Click" auf FALSE.
Gruß Boris
da Du es so gewünscht hast, es geht auch ohne Select, selbst bei einem Aufruf aus einem anderen Blatt:
Dein letzter Hinweis auf TakeFocusOnClick=False löst das Problem.
Gruß
Peter
oops, da war ja noch ein Select
Gruß
Peter
Gruß Boris
noch eine frage: wie kann man in einem blatt die command buttons immer an einer stelle fixieren unabhängig von bewegungen im blatt?
entweder die Tabelle Fixieren und die Commandbutton im oberen Teil anordnen. Ansonsten bleibt nur eine eigene Symbolleiste
Gruß Hajo