Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Farben in Excel 2007

3 views
Skip to first unread message

Lothar Wesemann

unread,
Aug 17, 2010, 3:42:35 PM8/17/10
to
Hallo

Ich habe ein Makro in einer Excel2007-Datei, das auf eine Excel2000-Datei
zugriff, und tadellos funktionierte.


Es zählt die Zellen mit einer bestimmten Farbe UND dem Text "u"

Teil daraus:

For i = 5 To 30
For Each zelle In Range(Cells(i, 50), Cells(i, 100))
If zelle.Interior.ColorIndex = 40 And zelle.Value = "u" Then
anzahl_u = anzahl_u + 1
End If
Next i

Jetzt wurde díe Excel2000-Datei als xlsx abgespeichert, und ich erhalte
folgende Fehlermeldung:

Laufzeitfehler "13"
Typen unverträglich

Bei Klick auf "debuggen" wird die Zeile mit Colorindex markiert.

Die Farben in Excel2007 haben andere Nummern, aber das dürfte ja nicht die
Ursache für den Fehler sein.

Jemand ne Idee?

Gruß

Lothar


Herrand Petrowitsch

unread,
Aug 17, 2010, 3:58:58 PM8/17/10
to
"Lothar Wesemann" schrieb

> Ich habe ein Makro in einer Excel2007-Datei [...]

Stelle die Frage bitte nochmals in dieser Gruppe:
de.comp.office-pakete.ms-office.excel

--
Gruß Herrand

Lothar Wesemann

unread,
Aug 17, 2010, 4:44:52 PM8/17/10
to
Diese Gruppe wird bei mir nicht angezeigt:
de.comp.office-pakete.lotus
bzw.
de.comp.office-pakete.staroffice

von microsoft sehe ich nur
de.comp.office-pakete.ms-office

Gruß

Lothar

"Herrand Petrowitsch" <her...@networld.at> schrieb im Newsbeitrag
news:8d080j...@mid.individual.net...

Winfried Sonntag

unread,
Aug 17, 2010, 4:58:00 PM8/17/10
to
Am 17.08.2010 schrieb Lothar Wesemann:

> von microsoft sehe ich nur
> de.comp.office-pakete.ms-office

Frag doch mal bei deinem Provider nach oder lass im Newsreader einfach
die Liste der Newsgroup aktualisieren.

Servus
Winfried
--
Connect2WSUS: http://www.grurili.de/tools/Connect2WSUS.exe
GPO's: http://www.gruppenrichtlinien.de
Community Forums NNTP Bridge: http://communitybridge.codeplex.com/

Lothar Wesemann

unread,
Aug 17, 2010, 5:26:35 PM8/17/10
to
Schon aktualisiert.
Keine Änderung.

Pech


"Winfried Sonntag" <Winfried...@gmx.de> schrieb im Newsbeitrag
news:p6rczg9q...@ID-163725.user.individual.de...

Winfried Sonntag

unread,
Aug 17, 2010, 5:45:03 PM8/17/10
to
Am 17.08.2010 schrieb Lothar Wesemann:

> Schon aktualisiert.
> Keine Änderung.

Dann reklamiere beim Provider.

Peter Schleif

unread,
Aug 18, 2010, 5:01:26 AM8/18/10
to
Lothar Wesemann schrieb am 17.08.2010 21:42 Uhr:
>
> Laufzeitfehler "13" Typen unverträglich
>
> Bei Klick auf "debuggen" wird die Zeile mit Colorindex markiert.
>
> Jemand ne Idee?

Möglicherweise funktioniert eine Formel in dem durchsuchten Bereich
nicht mehr und liefert einen Fehler. Dann liefert der Vergleich des
Zellinhalt mit "u" den Laufzeitfehler 13 (Type mismatch).

Falls es daran liegen sollte, kannst Du zunächst mit IsError() prüfen,
ob die Zelle einen Fehler liefert und die weiteren Prüfungen nur
ausführen, wenn sie fehlerfrei ist. Etwa so:

Peter

Sub ZaehleFarben()
Dim i As Integer
Dim anzahl_u As Long
Dim zelle As Range

For i = 5 To 30
For Each zelle In Range(Cells(i, 50), Cells(i, 100))

If Not IsError(zelle) Then


If zelle.Interior.ColorIndex = 40 And zelle.Value = "u" Then
anzahl_u = anzahl_u + 1
End If

End If
Next
Next i

MsgBox anzahl_u
End Sub

Lothar Wesemann

unread,
Aug 22, 2010, 2:57:37 AM8/22/10
to
Fehler gefunden!

Hab ein bisschen in der Excel-Vba-Hilfe unter "For each"-Beispielen
nachgesehen.

Es muss zelle.text ="u" heissen, statt zelle.value="u"!

0 new messages