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
Hallo Uwe
Danke. So läuft es.
Aber warum funktioniert es mit For Each Next nicht? DirectDependents enthält doch eine Auflistung.
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
Hallo Uwe
Noch mal Danke.
Zitat:richtig abfragen
Ich bin ja noch ein VBA-Doofie. :19:
Und zur Zeit kränkelnd (Erkältung).