Problem mit DirectDependents

[shift-del]

Hallo

Mit folgender Tabelle und folgendem Code erhalte ich als Ergebnis zwei Mal die Zeile 6 statt Zeile 6 und Zeile 7.
Wo liegt der Fehler?

	A	B	C	D	E
1		Werte	Par01	Par02	Par03
2	Modell
3	Geschlecht
4	Alter
5	Farbe
6	Typ		0	0
7	Marke		0	0

Name	Bezug
Alter	=Tabelle1!$B$4
Farbe	=Tabelle1!$B$5
Geschlecht	=Tabelle1!$B$3
Marke	=Tabelle1!$B$7
Modell	=Tabelle1!$B$2
Typ	=Tabelle1!$B$6

Zelle	Formel
C6	=Modell
D6	=Geschlecht
C7	=Alter
D7	=Modell

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Code:

Application.EnableEvents = False
Dim Depend As Range
For Each Depend In Range("B2").DirectDependents
    Debug.Print Range("B2").DirectDependents.Row
Next Depend
Application.EnableEvents = True

[Kuwer]

Hallo Detlef,

Code:

Sub aaa()
  Dim i As Long
  For i = 1 To Range("B2").DirectDependents.Count
      Debug.Print Range("B2").DirectDependents(i).Row
  Next i
End Sub

Gruß Uwe

[shift-del]

Hallo Uwe

Danke. So läuft es.
Aber warum funktioniert es mit For Each Next nicht? DirectDependents enthält doch eine Auflistung.

[Kuwer]

Hallo Detlef,

dann musst Du die Auflistung auch richtig abfragen:

Code:

Sub aab()
  Dim rngDepend As Range
  For Each rngDepend In Range("B2").DirectDependents
      Debug.Print rngDepend.Row
  Next rngDepend
End Sub

Gruß Uwe

[shift-del]

Hallo Uwe

Noch mal Danke.

richtig abfragen

Ich bin ja noch ein VBA-Doofie. :19:
Und zur Zeit kränkelnd (Erkältung).