Range in Array füllen, Problem bei Cells.Count = 1

Hallo VBA Freunde,
ich habe es heute zum ersten mal angewandt, ein Array nicht mit einer Schleife, sondern gleich als einen Block zu füllen. Dank Renee konnte ich auch den Fehler beheben, daß ich mein Array nur eindimensional eingerichtet hatte.
Also für Ranges mit mehr als 1 Zelle funktioniert es. Nun habe ich den Code aber eingesetzt und in bestimmten Konstellationen habe ich nur eine Zelle, die verarbeitet werden soll. Und da stürzt der Code ab. Typen unverträglich. Ich verstehe leider nicht warum dieser Fehler kommt. 4 Zellen untereinander sind ein Range. Aber eine einzelne Zelle ist doch genauso ein Range?! D.h. das Einlesen ins Array und anschließende Duplikate löschen und sortieren müßte alles glatt durchlaufen. OK, Duplikate und Sortierung sind in dem Fall überflüssig, aber ich will nicht noch eine IF Prüfung vorschalten, die auf .Cells.Count = 1 prüft.
Range ist Range (?) und daher interessiert es mich sehr, warum es nicht funktioniert.
https://www.herber.de/bbs/user/68173.xls
Es wäre toll, wenn ein interessierter Forumsteilnehmer einen Blick darauf werfen könnte.
Dank und Gruß, Andreas Hanisch

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub ArrayEinleseTest() Dim rgArrTest2 As Range Dim arrTest As Variant Set rgArrTest2 = ThisWorkbook.Names("rgArrTest2").RefersToRange arrTest = rgArrTest2.Value If IsArray(arrTest) Then Debug.Print arrTest(1, 1) Else Debug.Print arrTest End If End Sub

...Andreas,
um mir die Makros anzusehen. Sofort hat OO einen VBA-Syntax-Fehler gemeldet! Du hast bei den Debug-Befehlen ein unzulässiges Semikolon verwendet! Müsste sich doch eigentl auch VBE melden!? Dann fiel mir noch auf, dass du explizit nach einem 2-dimensionalen Feld (Array) verlangst. Normalerweise ist das auch für Ranges richtig, aber nicht, wenn du wie du schreibst nur 1 (eine) Zelle in das Array lädst. Dann gibt's keine 2.Dimension → also wirst du wohl „in den sauren Apfel beißen“ müssen... ;-)
Weil ich bei meinen udF idR auch Ergebnisse aus der Berechnung von Ausdrücken als Argument zulasse (machen ja auch die meisten xlStddFktt!) und deshalb idR nicht als Range, sondern als Variant deklariere, weshalb dann auch 1dimensionale Felder (Zeilenvektoren) auftreten können, muss ich das regelmäßig abfragen. Wenn On Error Resume Next am PgmAnfang steht, ist das auch kein Hit: If IsError(Ubound(xyz, 2)) Then
Zuvor lese ich idR auch Ranges in allgemeine Feldvariable (Variants) mit 2maliger Anwendung von WorksheetFunction.Transpose. Dadurch sind Zeilenvektoren immer 1dimensional, Spaltenvektoren immer 2dimensional. Einzelne Werte gehören dabei natürlich zu Ersteren. Man kann natürlich aus Spaltenvektoren auch Zeilenvektoren machen (1x .Transpose). Alle Matrizen bleiben quasi unverändert, nur kann man danach generell mit L/UBound arbeiten und muss nicht …Cells.Count verwenden.
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

Range in Array füllen, Problem bei Cells.Count = 1

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Range in Array füllen, Problem bei Cells.Count = 1

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread