debug 1004 auf anderen rechnern

Hallo
ich habe ein paar helfende antworten nötig ich hoffe diese hier zu finden.
ich habe eine datei die ich mit einen von mir selbst eingerichteten button schütze (makro aufzeichnen)
soll heißen wenn ich den button drücke habe ich das blatt geschützt.
ich verwende auch diesen befehl das es eben nicht zum debug kommt, ActiveSheet.Unprotect "xxx" und ActiveSheet.Protect "xxx"
des weiteren benutze ich solche makroaufzeichnungen auch zum sortieren, bei mir am rechner funktoniert auch alles wunderbar nur bei dem der die diese dateien von mir zugeschickt bekommt klappt das nicht.
beim sortieren mit dem button kommt die meldung debuggen 1004 und der blattschutz tut es auch nicht.
kann das an version unterschiede liegen er benutzt office 2000?
gibt es eine einfache lösung danke schon jetzt für euere hilfe.
gruß Udo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hmm nagut du wolltest es ja so *gg*


Sub name()
ActiveSheet.Unprotect "buli"
ActiveSheet.Unprotect "buli"
ActiveSheet.Unprotect "buli"
' name Makro
' Makro am 16.09.2006 von Udo S. aufgezeichnet
Range("A1:D10").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect "buli"
ActiveSheet.Protect "buli"
ActiveSheet.Protect "buli"
End Sub


Sub Schaltfläche22_BeiKlick()
End Sub


Sub richtiges_Ergebnisse()
ActiveSheet.Unprotect "buli"
ActiveSheet.Unprotect "buli"
ActiveSheet.Unprotect "buli"
' richtiges_Ergebnisse Makro
' Makro am 16.09.2006 von Udo S. aufgezeichnet
Range("A1:D10").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect "buli"
ActiveSheet.Protect "buli"
ActiveSheet.Protect "buli"
End Sub


Sub Gesamt_Punktzahl()
ActiveSheet.Unprotect "buli"
ActiveSheet.Unprotect "buli"
ActiveSheet.Unprotect "buli"
' Gesamt_Punktzahl Makro
' Makro am 16.09.2006 von Udo S. aufgezeichnet
Range("A1:D10").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect "buli"
ActiveSheet.Protect "buli"
ActiveSheet.Protect "buli"
End Sub


Sub spieltagegewonnen()
ActiveSheet.Unprotect "buli"
ActiveSheet.Unprotect "buli"
ActiveSheet.Unprotect "buli"
' spieltagegewonnen Makro
' Makro am 16.09.2006 von Udo S. aufgezeichnet
Range("A1:D10").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect "buli"
ActiveSheet.Protect "buli"
ActiveSheet.Protect "buli"
End Sub

das ist die formel (code) für das sortieren

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread