Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
404to408
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
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Objektvariable oder With-Blockvariable

Objektvariable oder With-Blockvariable
Volker

Sub PrüfenObAllesStimmt()
Dim Zelle As Range, Bereich As Range, ColorIndex As Range
Set Bereich = Worksheets("Schleife").Range("C5:C17")
For Each Zelle In Bereich
If Zelle.Value <> ColorIndex = 2 Then
MsgBox "Es sind noch Einträge zumachen"
End If
Next
End Sub

Fehlermeldung Objektvariable oder With-Blockvariable nicht festgelegt.
könnt Ihr mir helfen?
Gruß Volker

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Objektvariable oder With-Blockvariable
29.03.2004 11:27:32
Hajo_Zi
Hallo Volker
wo ist Zelle festgelegt?


AW: Objektvariable oder With-Blockvariable
NE
Hi Volker,
ungetestet:

Sub PrüfenObAllesStimmt()
Dim Zelle As Range, Bereich As Range, ColorIndex As integer
Set Bereich = Worksheets("Schleife").Range("C5:C17")
For Each Zelle In Bereich
If Zelle.ColorIndex <> 2 Then
MsgBox "Es sind noch Einträge zumachen"
End If
Next
End Sub

lg Nancy
AW: Objektvariable oder With-Blockvariable
NE
Hajo kann auch recht haben,
habs wohl überlesen ;-(
jo, und ggf kannst die Variable'Colorindex' rausschmeissen, dafür sowas:
If Zelle.interiorColorIndex 2 Then
cu Nancy

Anzeige
AW: Objektvariable oder With-Blockvariable
Volker

Sub PrüfenObAllesStimmt()
Dim Zelle As Range, Bereich As Range, ColorIndex As Integer
Set Bereich = Worksheets("Schleife").Range("C5:C17")
For Each Zelle In Bereich
If Zelle.ColorIndex <> 2 Then
MsgBox "Es sind noch Einträge zumachen"
End If
Next
End Sub

Laufzeitfehler 438
Objekt unterstützt diese Eigenschaft oder Methode nicht!
Bitte um Hilfe!
Vielen Dank!!!
AW: Objektvariable oder With-Blockvariable
NE
nochmal:

Sub PrüfenObAllesStimmt()
Dim Zelle As Range, Bereich As Range
Set Bereich = Worksheets("Schleife").Range("C5:C17")
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex <> 2 Then
MsgBox "Es sind noch Einträge zumachen in " & zelle.address
End If
Next
End Sub

cu Nancy
Anzeige
AW: Objektvariable oder With-Blockvariable
Volker
Vielen Dank es ist jetzt in Ordnung!!
Bitte macht weiter so , Ihr seit spitze!!!!!
gruß Volker

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige