Office: VBA Excel Array nicht gleich Array?

Hallo zusammen.
Ich habe heute eine für mich eigenartige Situation kennenlernen müssen. Ein Array scheint nicht gleich einem Array zu sein.

Wenn ich ein Array aus einem Zellbereich einlese und dann wieder an einen Zellbereich ausgebe geht das Problemlos.
Wenn ich aber ein Array über die VBA Definition "Array" anlege, dann wird bei der Range Ausgabe nur der erste Wert ausgegeben.

Bsp.:

Code:

Private Sub TestArrayTest()varARR_Upd_Insert = ThisWorkbook.ActiveSheet.Range("H10:H30").Value
    ThisWorkbook.ActiveSheet.Range("I10:I30").Value = varARR_Upd_Insert
varARR_Upd_Insert = Array("Auftragsnr.", "Pos.", "Termin", "Ist", "Bemerkung 1", "Bemerkung 2", "Bemerkung 3", _
    "Bemerkung 4", "Prio.", "Steuerung", "Ziel")
    ThisWorkbook.ActiveSheet.Range("M10:M21").Value = varARR_Upd_Insert
End Sub

Schon verwirrend das Ganze. Wo liegt hier das Problem??

Der Ursprung des Ganzen ist, das ich beim Start des Workbooks einen Bereich über eine Benutzerform abfrage, der dann eine ZuordnungsListe über das Array erstellt, die aber erst beim speichern wieder benötigt wird. Normalerweise versuche ich diese Werte immer über .CustomDocumentProperties auf eine nicht sichtbare Variable zu speichern, was aber leider nicht mit Arrays funktioniert. Also musste ich doch wieder über diese, ich speicher die Daten als Text zwischen und lese sie von dort aus, Methode zurückgreifen. Sollte hier jemand noch eine andere glücklichere Methode kennen wäre ich ausserdem über jeden Vorschlag dankbar.
Hier nochmal das Scenario in Kurzform

Workbook_Open ==> Daten wählen & Zuordnung treffen
Workbook_BeforeSave ==> Zuordnung lesen und anwenden

Vielen Dank für jede Hilfe!

andysmith

 

Hallo!

Eine genaue Erklärung muss ich dir leider schuldig bleiben, aber Abhilfe kann ich schaffen:


ThisWorkbook.ActiveSheet.Range("M10:M20").Value = WorksheetFunction.Transpose(varARR_Upd_Insert)

Eine waagerechte Ausgabe (M10:W10) des Arrays hätte funktioniert, daher muss es transponiert werden.
(Außerdem war dein Range um eine Zelle zu groß.)

 

Danke für de Antwort!
Wie ich die Lösung gesehen hatte war mir so einiges klar, auch wenn ich mir noch nicht erklären kann wie & wo beim enlesen in ein Array die Formatierung gespeichert wird. Klar ist, dass die waagerechte dann ein default Wert sein müsste, wenn ich das Array direkt befülle.
Ich werde gleich meine For Next Formel in dem Teil wieder entfernen. Viel besser so :-)
Danke nochmal!

 

Hallo,

Wenn Du mit "Formatierung" den Datentyp der im Array gespeicherten Daten meinst:
Es liefert die ARRAY-Funktion (wie in der VBA-Hilfe nachzulesen ist) Daten vom Typ VARIANT zurück:

Daten vom Typ VARIANT enthalten im Prinzip stets 2 Daten:
(1) einen Subtyp
(2) die eigentlichen Daten (die zum Subtyp passen).
Im Fall der ARRAY-Funktion: diese liefert Daten (1) vom Subtyp "vbArray" zurück.
Dieser Subtyp bewirkt, dass als die eigentlichen Daten (2) ein Array von Datenelementen enthalten ist. Jedes dieser Datenelemente ist wieder vom Typ VARIANT. Somit enthält jedes Array-Element wieder einen Subtyp (1) und die eigentlichen Daten (2).

Welche Subtypen (1) es gibt, kann man in der Hilfe-Beschreibung der Funktionen VarType bzw. TypeName nachlesen.

Die Frage, ob es sich bei dem einfachen Array um ein Zeilen-Array oder um ein Spalten-Array handelt, ist im Bereich von VBA zunächst ohne Bedeutung. Erst wenn man versucht, ein solches Array einem Zellbereich in einem Excel-Arbeitsblatt zuzuweisen, muss man wissen, wie die Array-Zuordnung zu den Zellen des Bereiches im RANGE-Objekt von Excel vorgenommen wird: ein Array entspricht einer zeilenweisen Anordnung der Array-Elemente. Will man genau das nicht, muss man die Zellenzuordnung mit Hilfe der Matrixfunktion TRANSPOSE transponieren (ähnlich wie aus der Matrizenrechnung der Mathematik bekannt).