Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
376to380
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hilfe bei Fehler

Hilfe bei Fehler
09.02.2004 19:43:02
Peter
Hallo Forum,
ich möchte durch die Abfrage der Hintergrundfarbe in der
Datumszeile 6, Spalte 4 erreichen, dass die Spalten in denen keine Farbe
ist, übersprungen werden.
-nicht wundern, habe alles ermögliche rausgeschmissen um
meinen Fehler einzugrenzen.
Ich hoffe,Ihr könnt mit dem Gerüst etwas anfangen. Die vermutliche
Fehlerquelle ist markiert.
Danke im voraus
Peter

Sub Eintrag()
Dim rngFind As Range
Dim intRow, intMonth, intCounter As Integer
On Error Resume Next
For intRow = 7 To 7
For intMonth = 1 To 1
Set rngFind = Worksheets(Format(DateSerial(1, intMonth, 1), "mmmm")). _
Columns(2).Find(Cells(intRow, 2), LookIn:=xlValues, lookat:=xlWhole)
For intCounter = 1 To 12
'>>>> in den folgenden 2 Zeilen müßte der Fehler liegen
If Cells(6, 3 + intCounter).Interior.ColorIndex = xlNone Then
With rngFind.Offset(0, intCounter)
.Value = "E"
End With
End If
Next intCounter
Next intMonth
intRow = intRow + 1
Next intRow
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hilfe bei Fehler
09.02.2004 20:22:47
andre
hallo peter,
überprüfe mal den inhalt von rngfind. wahrscheinlich wurde nichts gefunden.
gruss andre
AW: es wurde etwas gefunden, aber.......
09.02.2004 20:39:22
Peter
die Einträge sind immer irgendwie Spaltenversetzt.
Mfg Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige