Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1640to1644
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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
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"
Anzeige
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige