Makro läuft nicht immer
04.08.2005 16:26:39
Gisela
ich stehe kurz vor dem verzweifeln. Das Makro läuft auf drei Tabellenblättern einwandfrei. Auf dem vierten Tabellenblatt nicht.
Fehlermeldung:
Typen unverträglich
Die Daten aller vier TB werden von einem TB eingelesen und sind somit vom Ursprung her gleich.
Ich habe schon das gesamte vierte TB gelöscht und erneuert. Alle Daten kopiert und nur Werte eingefügt. Immer das gleiche - Fehlermeldung. Selbst wenn ich aus Testzwecken die Daten des dritten TB auf das vierte TB kopiere, erhalte ich die Fehlermeldung.
Vielleicht hat jemand noch eine Idee.
Hier das Makro:
Sub Farbe1()
Application.ScreenUpdating = False
Sheets("TopPhon").Select
For i = 1 To 1000
For j = 1 To 30
If Cells(i, j) = 9999999 And Not IsEmpty(Cells(i, j)) Then
Rows(i).Cells.Interior.ColorIndex = 3
Exit For
End If
Next j
Next i
End Sub
Es wird jeweils die Zeile rot gefärbt, wenn die Zahl 9999999 in der Zeile steht.
Bei der Fehlermeldung ist If Cells......., markiert.
Vielen Dank für jeden Hinweis
Grüße
Gisela