Range Bereich verallgemeinern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Dim i As Long Dim str As String Dim myrange str = "" For i = 1 To 34 str = str & "A" & i & ":B" & i & "," Next str = Left(str, Len(str) - 1) str = str & "" Set myrange = ActiveSheet.Range(str) MsgBox myrange.Areas.Count End Sub

Sub Test() Dim vbBereich As String Dim rngBereich As Range Dim i vbBereich = "A1:B300" Set rngBereich = Range(vbBereich) MsgBox rngBereich.Areas.Count MsgBox rngBereich.Areas(1).Address(0, 0) vbBereich = "A1:B1,B2:C2,C3:C4,D5:D6" Set rngBereich = Range(vbBereich) MsgBox rngBereich.Areas.Count For i = 1 To rngBereich.Areas.Count MsgBox "Bereich " & i & " ist " & rngBereich.Areas(i).Address(0, 0) Next End Sub

MsgBox Application.WorksheetFunction.Sum(rngBereich) MsgBox Application.WorksheetFunction.Sum(rngBereich.Areas(1)) MsgBox rngBereich.Areas(4) 'nur bei Einzelzelle MsgBox Application.WorksheetFunction.Sum(rngBereich.Areas(1)) * rngBereich.Areas(4)

…lösen können, Susi,
würde ich doch empfehlen, dass du für den Bereich einen Namen definierst. Dann hast du mit künftigen Erweiterungen auch in VBA kein Problem. Alternativ könntest du Rudis Vorschlag modifiziert aufgreifen und keine Variable vbBereich, sondern eine Konstante festlegen, die entweder den o.g. Namen oder die Adresse enthält, falls du keinen Namen definieren willst. Das erleichtert evtl spätere PgmÄnderungen. Also entweder Const naBereich$ = vbBerName oder Const adBereich$ = "A1:B300" verwenden. Der Set-Befehl würde dann entsprd lauten: Set rngBereich = Range(naBereich) bzw Set rngBereich = Range(adBereich)
Was du bisher versucht hast, hat folgende Auswirkungen:
Mit vbBereich = Range("A1:B300") weist du einer Variablen vom vermutlichen Typ Variant ein Range-Objekt zu. Damit ist sowohl eine Referenz auf das OriginalObjekt als auch nur die Wiedergabe seiner Werte möglich.
Mit Set rngBereich = Range(vbBereich) willst du eine ObjektVariable mit einer Referenz auf ein Range-Objekt initiieren. Da du nichts weiter angegeben hast, wird hier der Wert des Bereichs verwendet, was gleich aus zu 2 Gründen zum Fehler führt → Range verlangt die Angabe eines AdressTextes (bzw einer Variablen, die einen solchen enthält, oder eines Namenstextes, dem ein solcher zugeordnet ist – per Bezug der Namensdefinition) oder 2 Cells-Angaben, die Anfang und Ende des Bereichs entsprechen:
1. Es werden Inhalte, also Werte, keine Adressen übergeben.
2. Da es sich um einen Bereich handelt (IsArray(vbBereich) ergibt True), sind das auch noch mehrere, nämlich 600. Dass das das Zulässige sprengt, selbst wenn die ZellWerte Adressen darstellen würden (was sie sicher nicht tun), dürfte sehr wahrscheinlich sein.
Richtig wäre also vbBereich = Range("A1:B300").Address, aber kaum sinnvoll, denn da käme ja auch nur "A1:B300" heraus, was die ganze Variable überflüssig machen würde, denn das kannst du ja auch gleich schreiben. ;->
Gruß, Luc :-?

Sub ArrayNames() Dim Daten() As Variant Dim lngZeile As Long, lngLZ As Long Dim intSpalte As Integer Dim rng As Range Dim str Dim str1 Dim i 'Names "myrange" = Range("A1:B300") lngLZ = Range("myrange").Rows.Count intSpalte = Range("myrange").Columns.Count ReDim Daten(lngLZ, intSpalte) Set rng = Range("myrange") Daten = rng MsgBox Daten(5, intSpalte) 'Nachnamen MsgBox Daten(5, intSpalte - 1) 'Vornamen MsgBox Daten(5, intSpalte - 1) & " " & Daten(5, intSpalte) 'Vornamen und Nachnamen End Sub

…speziell auf Susi&ohm; bezogen, Ewald! ;-)
.Text war auch nur ein Bsp, denn auch andere Eigenschaften kann man ja per „Abklappern“ in Arrays verpacken. Mir gings da auch eher um nachträgliche bedarfsweise Anforderung solcher Eigenschaften. Dafür ist es dann natürlich nützlich, Referenzen auf die Objekte zV zu haben.
Ich meinte auch Einlesen einer ganzen Spalte auf 1× in einen passenden Vektor. Das Gebilde ist dann 1dimensional und mit nur 1em Index wird eine ganze Spalte zurückgegeben. Mit 2 Indizes dann ein einzelner Wert in derselben, also hier bspw vsp(1) → Spalte1 (bzw 2), vsp(0)(0) → Wert1 (bzw 2) in derselben. Mit vsp(LBound(vsp)) bzw vsp(LBound(vsp))(LBound(vsp(LBound(vsp)))) erhält man garantiert immer die (bzw den) erste(n).
(Nebenbei, wenn man die Elemente dieser Einzelspalten dann zeilenweise in ein Array steckt und diese Arrays zu Elementen eines vertikal über die Zeilen gerichteten Vektors macht, erhält man einen einen 1dimensionalen vertikalen Vektor aus horizontalen Vektoren, der ohne Umwandlung auf einen ZellBereich - auch zeilenweise - abbildbar ist bzw sein sollte, falls alle TeilVektoren gleiche ElementeAnzahlen haben, was bei dieser Methode ohnehin Voraussetzung sein sollte.)
Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread