Office: (Office 2013) Mehrdimensionales Array mit Range-Funktion füllen

Hallo,

ich habe ein kleines Problem bei der Befüllung eines mehrdimensionalen Arrays. Kurz zum Hintergrund, ich habe eine Excel Tabelle mit 15 Spalten und einer variablen Anzahl an Zeilen. Aus dieser Tabelle möchte ich bestimmte Zeilen in ein Array schreiben und diese in ein neues Tabellenblatt einfügen. Dies stellt quasi eine Filterfunktion da. Das wollte ich so realisieren, dass ich die erste Spalte der Tabelle in ein Array schreibe und über eine For Each- Schleife ein If-Abfrage mache. Immer wenn die Abfrage wahr ist, dann soll diese Zeile in ein Array geschrieben werden. Somit soll das Array nach und nach gefüllt werden. Nur leider klappt es nicht ganz so, wie ich mir das vorstelle. Hier mein Ansatz, vllt könnt Ihr mir ja weiterhelfen.

Code:

:)

 

Warum filterst Du (per VBA) nicht einfach Spalte A,
schreibst die SpecialCells(xlCellTypeVisible) in Dein Array,
und hebst den Autofilter wieder auf?

Oder anders gefragt: Warum das Rad neu erfinden?

Gruß Ralf

 

Hi,

ich hätte dir die selbe Lösung wie Ralf vorgeschlagen, weil sie einfach effizienter und weniger aufwendig ist. Dennoch hier eine Lösung mittels Array:

Code:

Wichtig dabei ist: für die Dynamisierung des Arrays in Abhängigkeit muss der 2. Feld-Parameter verwendet werden und nicht der 1.

Du kannst aber auch von vornherein mittels Application.CountIf feststellen, wie groß dein Array sein muss und es vor derm Schleifendurchlauf gleich exact dimensionieren.

 

Hallo Ralf,

erstmal vielen Dank für deine schnelle Antwort. Du hast ja grundsätzlich recht, das Rad muss man sicherlich nicht immer neu erfinden, aber diese Art der Befüllung eines Array interessiert mich grundsätzlich, da ich diese auch in anderen VBA-Anwendungen gebrauchen kann.

Gruß
Christian

 

Crossposting ohne Verlinkung der einzelnen Foren wird nicht gerne gesehen!
Schreibst Du bei Herber, dass hier bereits Lösungen vorliegen?

 

Hallo Beverly,

danke für die Antwort, so funktioniert es.

 

Siehst Du, Christian! *mad.gif*
Auf Herber haben sich NACH der Lösung von Karin zwei Leute unnütze Gedanken gemacht!
Na gut, Du musst das ja nicht bezahlen


Ralf

 

mal schauen, ob er in den anderen Foren wenigsten Feedback gibt und sich für die dort angebotenen Lösugen bedankt.

Gruß Daniel

 

Tut mir leid, das war keine böse Absicht von mir. War grad dabei Antworten zu schreiben. kommt nicht wieder vor. Ich hoffe Ihr seid nachsichtig mit mir.