Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Laufzeitfehler 438

Forumthread: Laufzeitfehler 438

Laufzeitfehler 438
21.08.2018 15:11:41
Roger
Hallo zusammen
Ich habe folgenden Code
If akennz = 1 Then
For i = spalte To spalte + Tage - 1
If Cells(zeile, i).Interior.ColorIndex 17 And Cells(zeile, i).Interior.ColorIndex 33 Then
With Cells(zeile, i)
.Value = "U"
End With
ElseIf Cells(zeile, i).ColorIndex = 17 Or Cells(zeile, i).ColorIndex = 33 Then
End If
Next i
End If
Wenn ich ihn ausfürhe erhalte ich einen Laufzeitfehler 438, Objekt unterstützt diese Eigenschaft oder Methode nicht. Dies bei ElseIf Cells ......
Ich will damit bezwecekn das wenn eine der beiden Farben vorhanden ist diese übersprungen werden und danach weiter eingetragen wird. Wenn ich die Farben auf 15 und 39 ändere läuft es durch jedoch werden die farbigen Zellen auch ausgefüllt.
Danke und Gruss
Roger
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Cells(...).Interior.ColorIndex ...oT
21.08.2018 15:25:43
{Boris}
VG. Boris
AW: Laufzeitfehler 438
21.08.2018 15:30:55
EtoPHG
Roger,
Nach einem Then sollte ein Befehl folgen, sonst ist dieser ElseIf komplett überflüssig.
Cells(zeile, i).ColorIndex ist falsch. Die .ColorIndex Eigenschaft gehört z.B. zur Eigenschaft .Interior der Cells
Gruess Hansueli
AW: Laufzeitfehler 438
21.08.2018 16:16:31
Roger
Hallo zusammen
Es ist denke ich am besten wenn ich die Tabelle hochlade.
https://www.herber.de/bbs/user/123466.xlsm
Falls jemand mir dabei helfen könnte wäre das sehr nett.
Danke und Gruss
Roger
Anzeige
AW: Laufzeitfehler 438
21.08.2018 16:42:29
PeterK
Hallo
Du hast den Punkt vor "Interior" vergessen! Auch musst Du den Code an ALLEN stellen entsprechend anpassen
"Cells(zeile, i).Interior.ColorIndex" statt "Cells(zeile, i)Interior.ColorIndex"
AW: Laufzeitfehler 438 Danke!
21.08.2018 16:58:02
Roger
Hallo Peter
Super Danke vielmals. Nun klappt es.
Gruss
Roger
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige