Index außerhalb des gültigen Bereichs

Hallo,
ich wollte einem Bekannten, der immer noch mit MS Office 2003 arbeitet, eine Exceldatei mit Makros zur Verfügung stellen. Ein Teil der Zellen ist freigegeben, der andere bleibt geschützt. Ich habe das Blatt ohne Passwort geschützt.
Leider kommt bei ihm bei jedem Makro immer in der ersten Zeile des VBA-Codes "Index außerhalb des gültigen Bereichs".
Die Zeile lautet: ActiveSheet.Unprotect
Es geht genauso wenig mit Sheets("Tabelle1").Unprotect oder mit dem Namen des Blattes statt "Tabelle1".
Mit meinen jüngeren Excel-Versionen gibt es bei gleichem Code kein Problem, auch dann nicht, wenn ich die Datei unter seiner alten Version als *.xls speichere.
Ich habe früher seine Excel-Version selbst viele Jahre verwendet und die Befehle Unprotect und Protect haben nie gemeckert.
Danke im Voraus für einen Tipp, aber bitte nicht den, dass er sich eine jüngere Version anschaffen soll. Es ist ein alter Mann und er will nicht umsteigen.
Helmut

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Danke Regina,
in dem angehängten File gibt mehrere Makros. Hier ein Beispiel, es kommt aber überall dieselbe Fehlermeldung:
In dem File gibt es mehrere Spalten. Ab Zeile 5 stehen Wörter, in Spalte A ungarisch, in Spalte B die deutsche Übersetzung, in Spalte C die Wortart usw. Die Wörter sind zunächst in A sortiert. Das folgende Makro soll alles nach B sortieren.
Solange Unprotect und Protect auskommentiert sind, ist alles OK. Wenn ich die Zeilen drin lasse, kommt die Fehlermeldung.
Hier das dazu gehörige Makro:

Sub bedeutung()
' bedeutung Makro
' Makro am 29.04.2020 von FS aufgezeichnet
' Tastenkombination: Strg+b
Dim k As Integer
ActiveSheet.Unprotect
'Zeilenzahl bestimmen
k = 5
Do Until Cells(k, 1) = ""
k = k + 1
Loop
'sortieren nach Bedeutung
Range(Cells(5, 1), Cells(k - 1, 5)).Select
Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Cells(4, 2).Select
ActiveSheet.Protect
End Sub

Dasselbe File funktioniert mit Excel 2013. Dort wird der Schutz tadellos aufgehoben und wieder eingerichtet.
Ich hänge das gesamte File an.
Gruß Helmut

Beliebteste Forumthreads (12 Monate)

Index außerhalb des gültigen Bereichs

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Index außerhalb des gültigen Bereichs

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread