Range Bereich verallgemeinern

SusiOhm · 2014-08-12T15:33:35+00:00

Liebe Leute, ich habe folgenden Programmiercode: Set rngBereich = Range("A1,B1,A2,B2,A3,B3,A4,B4,A5,B5,A6,B6,A7,B7,A8,B8") über den Befehl MsgBox rngBereich.Areas(10).Value werden mir die einzelnen Werte aus dem Rangebereich angezeigt. Mein Problem ich möchte den Code verallgemeinern, um den Rangbereich zu vergrößern, z.B. so: vbBereich = Range("A1:B300") und dann weiter mit Set rngBereich = Range(vbBereich) Das geht so aber leider nicht. Wie bekomme ich das hin?

…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 :-?

Hallo Luc,
eigentlich ist das klar, sie hat ja Value geschrieben. Aber auch .Text wäre kein Problem ist ja nur eine Frage des Einlesens. Value kannst du komplett übergeben, .Text mußt du abklappern.
Das man unbedingt spaltenweise einlesen muß halte ich für fraglich.Da du das Array ja mit lngzeile,intspalte dimensionieren mußt, würde bei 2 Spalten auch intspalte für Spalte B und intspalte-1 für Spalte A reichen.
Bei spaltenweise einlesen müsste der zeilenwert für Spalte B gewünschte Zeile + lngzeile / 2 sein.
Hier mal ein Beispiel mit einem Bereich der per Namen definiert ist. In SpalteA sind Vornamen in SpalteB die entsprechenden Nachnamen.

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

Gruß Ewald

Forumthread: Range Bereich verallgemeinern

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Range Bereich verallgemeinern

Forumthread: Range Bereich verallgemeinern

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread