Office: Array füllen und wider ausgeben.

User · 30. Juni 2017

Hallo an Alle

Wiedermal am VBA Lernen und versteh nicht was falsch ist. Könnte mir vielleicht jemand sagen was ich falsch gemacht hab*eek.gif* . Und vielleicht ob es da noch bessere und schneller Methoden gibt.

Ich versuch mir eine Array auf einen schlag zu füllen und dann ebenso auf einmal wider auszugeben.
Code:

Private Sub Array_Füllen()

Dim MeinArr() As Variant
Dim ErsteZeile As Long
Dim ErsteSpalte As Integer
Dim LetzteSpalte As Integer
Dim LetzteZeile As Integer

ErsteZeile = 3 'Startzeile
ErsteSpalte = 1 'Startspalte

'Feststellen der letzten Spalte und Zeile im benutzeten bereich.
LetzteSpalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

'Größe der Array an Tabellen Größe anpassen
ReDim MeinArr(1 To LetzteZeile, 1 To LetzteZeile)

''Array füllen
MeinArr = ActiveSheets.Range(Cells(ErsteZeile, ErsteSpalte), Cells(LetzteZeile, LetzteSpalte))

------------------------------------------------------------------
''Array Ausgeben im Aktiven Tab, ab "A18" + Anpassung des bereichs
ActiveSheet.Range("A18").Resize(UBound(MeinArr, 1) - LBound(MeinArr, 1) + 1, _
UBound(MeinArr, 2) - LBound(MeinArr, 2) + 1) = MeinArr

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es kommt der Fehler 424 Objekt erforderlich. Danke für's Schauen

Grüße Simpel

:)

Storax · 2. Juli 2017

Das liegt daran, dass Du kein Option Explicit benutzt
Daher hast Du einen Tippfehler und der wird nicht erkannt.
Also, Option Explicit hinzufügen und kompilieren!!

PS Debuggen ist immer hilfreich

User · 2. Juli 2017

Danke für den Tipp, hab den Rat befolgt.

Ich hatte ein s zu viel.
Code:

MeinArr = ActiveSheets.Range(Cells(ErsteZeile, ErsteSpalte), Cells(LetzteZeile, LetzteSpalte))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und die falsche Variable in der Array Dimensionierung, sollt ja letzteSpalte sein und nicht letzteZeile.
Code:

ReDim MeinArr(1 To LetzteZeile, 1 To LetzteZeile)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

jetzt bekomm ich dafür nen anderen Fehler. "Laufzeitfehler" *entsetzt. Die Zeile ist es. Code:

'Array füllen
MeinArr = ActiveSheet.Range(Cells(ErsteZeile, ErsteSpalte), Cells(LetzteZeile, LetzteSpalte))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber was stimmt nicht damit.Sollte jetzt richtig geschrieben sein, glaub ich.

Grüße

Hajo_Zi · 2. Juli 2017

ich würde vermuten#
lösche
ActiveSheet.

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten

User · 2. Juli 2017

Danke euch beiden.

Das Löschen von ActiveSheet hat geklappt, der Code gibt die Daten aus.

Aber WARUM ist das so????, mit ActiveSheet.Range() ist es doch nur eine etwas genauere Angabe oder nicht?

Grüße Simpel

Hajo_Zi · 2. Juli 2017

ja dann schreibe es auch vor Cells

Storax · 2. Juli 2017

Ich habe Dir doch den Link gegeben, da beschäftige Dich bitte mit.
Sonst wirst Du hier bei jedem Fehler aufschlagen.
Zwei Alternativen
1. Wie Hajo geschrieben hat, Activesheet entfernen
2. Code:

Dim rg As Range
Set rg = ActiveSheet.Range(Cells(ErsteZeile, ErsteSpalte), Cells(LetzteZeile, LetzteSpalte))
MeinArr = rg
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und dann versuch Dir die Frage zu beantworten, warum das geht, aber Code:

MeinArr = ActiveSheet.Range(Cells(ErsteZeile, ErsteSpalte), Cells(LetzteZeile, LetzteSpalte))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mit Laufzeitfehler 12 krachen geht.

User · 14. Juli 2017

Die Antwort kommt jetzt spät aber doch (war auf Urlaub). Danke für die Bespiele und die Infos und die Hilfe.

Hab mir inzwischen das Thema mit der Automatischen Ergänzung beim Kompilierendes Objektverweises im Code, ausgiebig gegeben. Hab echt was gelern *biggrin.gif*

Grüße Simpel

Office: Array füllen und wider ausgeben.

Array füllen und wider ausgeben.

Array füllen und wider ausgeben.

Array füllen und wider ausgeben.

Array füllen und wider ausgeben.

Array füllen und wider ausgeben. - Similar Threads - Array füllen wider

Array Füllen und Schreiben

Mehrdimensionales Array mit Range-Funktion füllen

Array durch Listbox füllen

Array über Schleife füllen.

Mehrdimensionales Array einfach füllen

Array unter Bedingung füllen

Array mit Blattnamen füllen