Code-Fehler?
19.06.2008 01:59:44
alex
hab den Code hier aufgezeichnet und für eine andere Arbeitsmappe modifiziert.
Sub sortierendrsa()
' sortierendrsa Makro
' Makro am 13.02.2008 von 4682232 aufgezeichnet
Sheets("Leistungen DRSA").Unprotect "Kennwort"
Sheets("Bearbeiternachweis").Unprotect "Kennwort"
Sheets("Leistungen DRSA").Select
Range("A7:A200").Select
Selection.Copy
Sheets("Bearbeiternachweis").Select
Range("A7:A200").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A7:AO200").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A7").Select
Sheets("Bearbeiternachweis").Protect "Kennwort"
Sheets("Leistungen DRSA").Select
Range("A7:AO200").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A7").Select
Sheets("Leistungen DRSA").Protect "Kennwort"
End Sub
aber irgendwas passt ihm nicht (führt nur bis zum kopieren aus und schaltet auf Sheet "Bearbeiternachweis" und dann ist Schluss: Fehler Visual Basic 400)
Es soll in "Leistungen DRSA" Spalte A kopiert, in "Bearbeiternachweis" Spalte A eingefügt, dann Von A:Ao sortiert werden und wieder sperren, dann wieder nach "Leistungen DRSA", sortieren und auch sperren.
gruss
alex