Unterschiedliche Bereiche

Hallo
würde gerne den Unterschied bestimmter Bereiche erkennen.
Im folgenden Beispiel werden drei Bereiche gebildet:

Sub Test()
Detail Range("B2:E10")
Detail Range("B2:E10").Rows(3)
Detail Range("B2:E10").Rows(3).Cells
End Sub



Sub Detail(rBereich As Range)

rBereich(1).Select

rBereich(2).Select

rBereich(3).Select

rBereich(10).Select

rBereich.Select

End Sub

Beim schrittweise Durchlauf von Test sieht man, dieses Bereiche verhalten sich unterschiedlich.
Sicher, mir ist klar, rA unfasst einen ganzen Bereich als einzelne Zellen, rB ist eine Reihe, und rC ebensdo, aber als einzelne Zellen. Aber das weiß ich nur aus dem Verlauf des Skrips.
Wie kann man, ohne ihre Entstehung zu kennen, den Aufbau dieser Bereiche erkennen zum Beispiel nur aus der Sicht von Detail(rBereich As Range)?
Kann man das bei "Überwachungsausdrücke" oder im Lokal-Fenster sehen?
Habe in einer Vielzahl von VBA-Seiten gestöbert, aber keine Antwort auf meine Frage gefunden.
LG, Barbara

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Barbara,
die in der PgmmierPraxis kaum auftreten sollte, denn man weiß ja idR, so wie hier auch du, welcher Art der Bereich ist. Ansonsten hat ein Range als Objekt ja sowohl ein „Eltern“-Objekt (.Parent), das Blatt, als auch „Kind“-Objekte → Zellen, Zeilen und Spalten. Allerdings haben alle diese Kind-Objekte das gleiche Eltern-Objekt wie Range auch.
Folglich könnte man ihren Bezug einerseits, aber nur zT, über ihre Adresse, andererseits über ihre Zählung feststellen. Wenn man einen Range zählt, zählt man stets seine Zellen, anderenfalls müsste man angeben, was gezählt wdn soll. Übergibt man speziell eine einzelne Zeile oder Spalte, ist diese ein eigenes Objekt (ebenso wie eine einzelne Zelle) und wird als Ganzes gezählt. Fügt man nun wie bei Bsp C noch .Cells an, wdn ihre (und nur ihre!) Zellen gezählt.
So etwas zu unterscheiden ist besonders wichtig bei objekt-orientierten PgmZyklen wie For Each teilobjekt In gesamtobjekt, sonst könnte man Überraschungen erleben.
Wie anfangs gesagt, man sollte schon wissen, was man beabsichtigt und deshalb tut… ;-)
Morrn, Luc :-?

Sub Detail(rBereich As Range) MsgBox "Bereich " & rBereich.Address MsgBox "Spalte " & rBereich.Columns.Count MsgBox "Zeilen " & rBereich.Rows.Count ' rBereich(1).Select ' rBereich(2).Select ' rBereich(3).Select ' rBereich(10).Select ' rBereich.Select End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread