"Find" bei Datum in XL2000 ...
31.10.2013 09:15:43
Matthias
Brauche Hilfe bei der Find-Methode.
Nachdem ich mir unzählige Beiträge aus dem Archiv angesehen habe, komme ich dennoch nicht weiter :-(
Seit mehreren Tagen versuche ich zu verstehen was da falsch läuft.
Erklärung:
2 Tabellen Tabelle1 und Tabelle2
In Tabelle1 ist mein Kalender(definierter Name:=Kalender)
In Tabelle2 ist der Name(definierter Name:=Matthias)
In der XL-Version XL2007 klappt das ohne Probleme
In der XL-Version XL2000 klappt das leider nicht.
Der Code: (benutzt wird der CodeName der Registerblätter!)
Private Sub CommandButton5_Click()
Dim RnG As Range
Tabelle1.Unprotect
Tabelle1.Range("Kalender").Interior.ColorIndex = -4142
For Each RnG In Tabelle2.Range("Matthias")
If RnG.Offset(, 1) = "ü" Then
Cells.Find(What:=RnG, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole).Interior. _
Color = 10079487
End If
Next
Tabelle1.Protect
End Sub
Es wird in XL2007 ganz brav das Datum im Kalender gefärbt, welchen im Range("Matthias") in der rechten Nachbarzelle ein "ü" (Schriftart: WingDings) stehen hat.
Nach Klick aufs Button in XL2007 sieht das Ergebnis im Kalender (wie gewünscht) so aus:
XL2000 meckert mich aber an bei der im Code fett markierten Zeile :-(
Wo ist da der Haken?
Folgende Sachen habe ich probiert:
statt:
Interior.Color
habe ich auch
Interior.ColorIndex getestet
LookIn auch mit XlValues gestestet
LookAt auch mit XlPart getestet
Die Variable RnG liefert mir immer das richtige Datum.
Wie gesagt, läuft das unter XL2007 einwandfrei
In XL2000 bekomme ich einen Fehler ?
Was mache ich falsch ?
Gruß Matthias