Office: Variant Array in Range

Hallo mal wieder,

Ich schreibe gerade eine Klasse "Film".
Diese beinhaltet Informationen wie "Name", "Regisseur", "Erscheinungsjahr" etc.

In der Klasse gibt es außerdem eine Prozedur, die den Film in eine Liste in Excel schreibt. In dieser erstelle ich ein Variant-Array, welches dann mit einem Befehl in die Tabelle geschrieben werden soll.

Hier der Code bis jetzt. Wenn euch etwas auffällt, was man so nicht macht - oder was ihr anders lösen würdet - dann schreibt das gerne!

Das Eigentliche Problem tritt dann letztlich beim Einfügen auf. Das Array ist gefüllt und ich habe einen Bereich zugewiesen. Jetzt will ich das Array in den Bereich schreiben, aber es werden lediglich leere Zellen eingefügt. Sehr gut möglich, dass ich etwas simples übersehe, dann tut mir das leid.

Code:

Viele Grüße
Till

:)

 

Hallo Till,

so?
Code:

Die Variablen mMedium... haben auch einen Inhalt?

UsedRange nutze ich wenig. Mag sein, dass man das nehmen kann. Ich würde dennoch über das bekannte Konstrukt .Cells(.Rows.Count,1).End(xlup).Row (bzw. angepasst auf Deine Bedingungen) gehen.

Aber nicht extra für den vorstehenden Code, oder?

Grüße
EarlFred

 

Hey Fred,

Der Grund warum ich UsedRange.Rows lieber nutze als .End.Row ist, dass ich bei UsedRange immer den gesamten Bereich bekomme und nicht nur diese Zeile/Spalte. Es ist ja möglich, dass in dieser Zeile der letzte Eintrag in Spalte 5 steht in der nächsten dafür aber in Spalte 10. Wenn das allerdings auch mit .End.Row geht, dann würde ich mich freuen, wenn du mir kurz aufzeigst, wie!

Das eigentliche Thema: Mit deiner Idee fällt natürlich sehr viel Code weg und es ist einleuchtend - dumm von mir.

Die Variablen haben einen Inhalt. Auch die Felder des Arrays hatten einen Inhalt. Ich habe sie mir im Direktbereich ausgeben lassen.

Nein. Ich will auf Dauer eine Datenbank für meine Filme erstellen - vielleicht werde ich das auch in Access machen um dort etwas zu lernen. Daher die Klasse Film. Wenn ich jetzt einen neuen Film in meine Datenbank hinzufügen oder Informationen über einen gewinnen möchte, dann habe ich vor ein - wenn ich in Excel bleibe - Array von Objekten des Typs Film zu erstellen.

Edit: Dein Code funktioniert super, danke dir! Ärgere mich nur, dass ich nicht selbst darauf gekommen bin - ist ja nicht gerade etwas ausgefallenes. *biggrin.gif*

Viele Grüße
Till

 

Hallo LL (oder wie kürzt man Deinen Namen ab?)

in meinen Listen nicht. Da gibt es eine Spalte, die immer gefüllt ist und in Datenbanken wohl Schlüssel genannt würde.

Spätestens der Filmname sollte doch nie fehlen, oder?

Apropos Schlüssel... Ja. Und Ja.

Grüße
EarlFred

 

Das stimmt. Würdest du das dann als sauberer bezeichnen oder ist das einfach ein anderer Stil?

 

Die einen gestalten erst mal, damit es schön aussieht, und müssen dann beim Programmieren deswegen viele viele Extrarunden drehen.

Die anderen legen Daten so ab, wie sie von der Maschine und den Methoden der verwendeten Anwendung unmittelbar und direkt, am besten mit den effizientesten Methoden, verwendet werden können. Gestaltung kommt hinterher, wenn ein Anwender etwas sehen soll und er bestimmte Ansichten braucht. In der gesparten Zeit dreht man dann seine Ehrenrunden oder trinkt Kaffee oder macht einfach weiter.

So gibt es eben unterschiedliche Stile.

 

Ich muss gestehen, dass ich nicht den Hauch einer Ahnung habe, was du mir damit mitteilen wolltest. Meine Frage war eigentlich lediglich, ob es einen Nachteil hat mit UsedRange zu arbeiten oder ob es sich um eine Programmierstilfrage bzw. Gewohnheiten handelt.

Wenn du mir dazu eine Antwort gegeben hast, dann habe ich diese nicht verstanden.

Viele Grüße
Till

 

Hey nochmal,

Dieses mal ein sehr ähnliches Problem, deswegen der gleiche Thread.

Ich lese eine Range in ein Variant Array ein, es handelt sich also um ein zweidimensionales Array. Dann will ich es aber alphabetisch sortieren. Der QuickSort Algorithmus, den ich von MSDN habe, kann aber nur Eindimensionale Arrays verarbeiten, deswegen mache ich mein Array eindimensional bevor ich es an den QuickSort Algorithmus übergebe. Danach wird es wieder zweidimensional gemacht, damit ich es wieder in eine Range einfügen kann.

Ich gebe mir den Inhalt des Arrays im Direktbereich aus. Dort ist der Inhalt vorhanden. Wenn ich allerdings eine Range definiere und das Array dort hinein schreiben möchte, dann werden dort lediglich leere Zellen einfügt.

Hat jemand eine Idee wieso - gibt es da eventuell einen oft gemachten Fehler?

Im Großen und Ganzen das gleiche Problem wie zu Beginn des Threads nur kann ich es dieses mal nicht mit EarlFreds Vorschlag lösen.

Viele Grüße
Till

 

Das Sortieren ist nun wahrlich keine Stärke eines Arrays.
Der Praktiker würde die Sortierung auf den Range vornehmen.

 

Habe es inzwischen hingekriegt. Dass das Sortieren nicht die Stärke des Arrays ist, ist klar. Aber es ist einfach schneller als die Sort Methode des Worksheets. Selbst bei kleinen Ranges sind die Unterschiede schon deutlich erkennbar.

 

Hallo Till,

Oft gemachter Fehler: Code & Link nicht zeigen - da hat man dann als Helfer auch wenig Ideen. *wink.gif*

Widerspruch:

Das mehrfache umstrukturieren des Arrays dient auch der Performance?
Bau Dir Deine Sortierroutine doch so um, dass sie mit einem "transponierten eindimensionalen Array" arbeiten kann...

Gratuliere.

Grüße
EarlFred

 

Hallo

Habe das mal gefunden und etwas verändert. Vielleicht kannst du oder wer anders etwas damit anfangen.

Code: