ColorIndex

Hallo zusammen,
Wer kann mir helfen? Ich habe da ein ganz komisches Problem.
Ich habe mit Excel 2000 (Office 2000)ein Makro aufgezeichnet, welches die Schriftfarbe ändert.
Bei mir funktioniert das bestens.
Da das einige Leute aus meinem Umfeld auch brauchen, habe ich diese Excel-Mappe mit eben diesem Makro gleichzeitig an alle Leute (10 Personen)per E-Mail gesandt.
Bei sieben dieser zehn Personen funktioniert dieses Makro perfekt. Bei den anderen drei kommt die Fehlermeldung:
Laufzeitfehler '1004'
Die ColorIndex Eigenschaft des Font Objekts kann nicht festgelegt werden.
Diese drei haben mir dann das Makro mit dieser Fehlermeldung wieder zurück gemailt und bei mir funktioniert es wieder perfekt.
Nun bin ich darauf gekommen, dass diese drei Personen, bei denen diese Fehlermeldung kommt, das Office XP haben.
Kann es sein, dass da im Makro beim XP nicht genau dasselbe steht, wie im Makro beim 2000 ?
Wenn ja, wo muss ich was ändern, dass dieses Makro auch beim XP funktioniert.
Hier das Makro im Excel 2000:
Range("A5").Select
ActiveCell.FormulaR1C1 = "=SUM(R[19]C[2]:R[44]C[2])-(R[19]C[2]:R[44]C[2])"
Range("a6").Select
ActiveWindow.SmallScroll Down:=13
Range("B20:C52").Select
Selection.Font.ColorIndex = 2
Range("C50").Select
Selection.Font.ColorIndex = 15
Range("A1:J1").Select
Sheets("Graphik ").Select
Range("C6").Select
Selection.ClearContents
Range("C7:C16").Select
Selection.Font.ColorIndex = 2
Range("A1").Select
Sheets("Variantenvergleich ").Select
End Sub
Für Eure Hilfe schon im Voraus 10'000 Dankeschön.
Viele Grüsse
Spidi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: ColorIndex

06.02.2004 17:59:14

Nepumuk

AW: ColorIndex

06.02.2004 23:30:52

spidi

AW: ColorIndex

07.02.2004 08:49:59

Nepumuk

AW: ColorIndex

07.02.2004 09:33:00

spidi

AW: ColorIndex

07.02.2004 09:46:11

Nepumuk

AW: ColorIndex

07.02.2004 12:53:50

spidi

AW: ColorIndex

07.02.2004 13:34:55

Nepumuk

AW: ColorIndex

08.02.2004 12:33:38

Nepomuk

AW: ColorIndex

08.02.2004 17:29:48

spidi

Option Explicit Private Sub Workbook_Open() Dim myWorksheet As Worksheet For Each myWorksheet In ThisWorkbook.Worksheets myWorksheet.Protect Password:="Deine Kennwort", UserInterfaceOnly:=True Next End Sub

Hi Nepomuk,
Bitte entschuldige, aber ich bin etwas schwer von Begriff.
Ich wiederhole:
Ich gebe diese Routine bei mir im Excel 2000 ein, verschicke es und diejenigen, die Excel XP haben, können das Makro dann ohne Fehler betätigen.
Ich gehe in die entsprechende Tabelle, klicke neben Datei mit der rechten Maustaste auf das Excel-Icon und anschliessend auf Code anzeigen.
Danach gebe ich folgenden Text ein:
Option Explicit


Private Sub Workbook_Open()
Dim myWorksheetAs Worksheet
For Each myWorksheet In ThisWorkbook.Worksheets
myWorksheet.Protect Password:="Deine Kennwort",UserInterfaceOnly:=True
Next
End Sub

a) Muss ich Option Explicit auch schreiben ?
b) Muss ich beim Schreiben auch diese Abstände machen ?
c) Stimmen die Zeichen (Komma, Punkte) und die Abstände ?
d) Bei "Deine Kennwort" muss ich da mein Passort (z.B. 123456) eingeben und
muss ich vor und nach dem Passwort auch diese Zeichen " " eingeben ?
e) Ist mein Kennwort nun für alle ersichtlich, welche in diesen Code gehen oder
kann man dieses Passwort noch verstecken ?
Und als letztes:
Wenn ich dieses Makro in der Tabelle 1 betätige, ändert nicht nur in dieser Tabelle die Schriftfarbe, sondern auch in der Tabelle 2.
Muss ich nun diesen Code auch in der Tabelle 2 eingeben, oder gilt das generell für
alle Tabellen in diesem Excel-File.
Ich hoffe, dass ich Dich danach nicht mehr mit solchen Fragen nerven muss.
Nichts für ungut und vorerst noch einmal vielen Dank.
René

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread