Office: VBA Right Kompilierungsfehler

Hallo Excel Profis
folgendes Problem habe ich.
In meinem Code habe ich in Office 2003 ein Kompilierungsfehler (right). Den Code habe ich in Office 2007 geschrieben und er funktioniert dort auch tipp topp nur in 2003 nicht, obwohl er auch dort in der Objektbibliothek steht.
Was ist der Fehler?
Vielen Dank

Code:

Sub Veranstaltung_Format()
'Die Schrift wird durchgestrichen wenn Termin ENTFÄLLT!!!
Dim zelle As Range
Dim bereich As Range
On Error Resume Next

Set bereich = Worksheets("Terminkalender").Range("E10:E70")
For Each zelle In bereich

If Right(zelle, 3) = "!!!" Then
Range(zelle, zelle.Offset(0, -3)).Font.Strikethrough = True
Else
Range(zelle, zelle.Offset(0, -3)).Font.Strikethrough = False
End If
If Right(zelle, 5) = "bauen" Then
zelle.Font.ColorIndex = 3
Else
    If Right(zelle, 7) = "säubern" Then
    zelle.Font.ColorIndex = 3
    Else
        If Left(zelle, 6) = "Jahres" Then
        zelle.Font.ColorIndex = 3
        Else
        zelle.Font.ColorIndex = 1
        End If
    End If
End If
Next zelle
Set bereich = Nothing
Set zelle = Nothing


End Sub

Gruß Norbert

 

Hi Norbert,

schau mal unter den Verweisen nach, ob dort evtl. ungültige eingetragen sind. Falls ja, deaktiviere sie. Es kommt häufig vor, dass bei ungültigen Verweisen Excel die einfachsten Befehle "vergisst".

Bis später,
Karin

 

Hallo Karin
zunächst vielen Dank für deine Antwort. Ich habe nachgeschaut unter Verweise und tatsächlich ein Vermerk "NICHT VORHANDEN........" gefunden. Ich habe das Häkchen entfernt und alles funktioniert. Aber sind diese Verweise eigentlich? Vielleicht ein paar ganz kurze Worte dazu, weil da stehen Sachen drin !!!!
Vielen Dank
Gruß Norbert

 

Hi Norbert,

Excel benötigt Bezüge zu Objektbibliotheken, damit entsprechende Elemente angesprochen werden können - und das sind die Verweise, die im VBA-Editor gesetzt werden. Einige davon werden von Excel automatisch gesetzt:

- Visual Basic for Applications
- Microsoft Excel 10.0 Object Library (die Zahl hängt von der Excelversion ab)
- OLE Automation
- Microsoft Office 10.0 Object Library (die Zahl hängt von der Excelversion ab)

Wenn Objekte in der Arbeitsmappe benutzt werden, die nicht zu den o.g. gehören, kommen weitere Verweise hinzu (teilweise automatisch, andere müssen direkt gesetzt werden), andernfalls läuft erstellter Code auf einen Fehler. Wurde nun ein Objekt benutzt (und der Verweis gesetzt) und dann gelöscht, kommt es vor, dass der Verweis auf die Bibliothek trotzdem erhalten bleib - das Ergebnis ist dann ein "NICHT VORHANDEN".

Bis später,
Karin

 

Hallo Karin
ich bedanke mich für deine Erklärung. Meine Datei funktioniert nun.
Gruß Norbert