Office: Einzelne Werte aus Array ausgeben

Hallo

Ich habe in einem Array mehrere Werte. z.B

11 . 12 . 13 . 14 . 15 . 16 . 17


nun will ich einzelne Werte aus dem Array auf ein mal ausgeben. z.B
A1 . B1 . C1 . D1 . E1 . F1 . G1
11 . 12 . ---- . ---- . 15 . 16 . ----

Dabei sollen die Werte, die in C1, D1 und G1 nicht überschrieben werden.

Code:

So habe ich das schon versucht, hat aber leider nicht funktioniert.
Es wurden in E1 und F1 wieder die Gleichen Werte geschrieben wie in A1 und B1.

Hat von euch vielleicht jemand eine Lösung?

Gruß Faultier

:)

 

Hallo Faultier_1982,

warum schenkst Du Deinen früheren Fragestellungen so wenig Aufmerksamkeit.
Vielleicht sind neue Erkenntnis-Aspekte dazugekommen.
Eigentlich hattest Du hier: Code:

Ich laß dann mal für heute meine Wissenskiste geschlossen.

Gruß von Luschi
aus klein-Paris

PS Oder willst Du Deinem Alias-Namen alle Ehre machen?!?

 

Hallo Luschi,

Also in diesem Fall erkenne ich keine Parallelen zwischen der Frage eine leere Zelle in einer Spalte zu finden und meiner Fragestellung.

Natürlich schenke ich meinen früheren Fragestellungen Aufmerksamkeit. Bei neuen Aufgaben, bei den ich keine Gemeinsamkeit mit alten Fragestellungen erkennen kann, ist es natürlich schwierig eine Lösung darin zu suchen, weil man keinen Ansatzpunkt hat.

Gruß Faultier

 

Hallo,

gehe im Einzelschrittmodus (F8-Taste) durch den Code und schaue dir im Lokalfenster an, wie die Variablen gefüllt werden und wie sie danach ausschauen.

Code:

 

Hallo Steffl72

Wie mache ich das mit dem Einzelschrittmodus?
Lokalfenster = Direktbereich????

Das wäre dann ja wieder mit einer Schleife eingefügt (eine Zelle nach der anderen). Wenn iches in meinem Code richtig beobachtet habe, geht es wesentlich schneller alle Werte auf einmal einzufügen, als jede Zelle einzeln zu beschreiben.
Ich versuche etwas Zeit zu sparen, indem ich mehrere Werte gleichzeitig einfüge. Das Problem dabei ist, dass es zwischen den einzufügenden Werten noch Zellen gibt, die nicht überschrieben werden dürfen.

Ich könnte natürlich die zwischenliegenden Zellen ebenfalls ins Array einlesen und dann alles auf einmal wieder ausgeben, aber das wäre auch umständlich.

Gruß Faultier

 

Einzelschritt: Menü - Debuggen - Einzelschritt [F8]

 

Hallo RalfP.

vielen Dank, das ist ja eine praktische Funktion...

Der oben genannte Code-Vorschlag, beinhaltet eine Schleife, die die Werte einzeln einschreibt. Ich suche nach einem Möglichkeit, die Werte alle auf ein mal einzuschreiben, um Zeit zu sparen.

Gruß Faultier

 

Hallo,

Zeit sparen? Dann lese den Bereich auf einmal in das Array ein und nicht wie jetzt jeden Wert einzeln.

Code:

 

Hallo Steffl72

ja super, die besten Antworten bekommt man immer auf Fragen, die man nicht gestellt hat :-)

Dann gibt es dafür sicher auch eine schnellere Möglichkeit?

Code:

Gruß Faultier

 

Hallo,

was soll eigentlich das

Code:

bewirken?

 

Hallo Steffl72

Das sind die Bedingungen, die erfüllt werden sollen, wenn eine Zeile in einem Array gelöscht werden soll.

If Array(c, 1) = ThisWorkbook.Sheets("Tabelle2").Cells(51, b + 5) And ThisWorkbook.Sheets("Tabelle2").Cells(51, b + 4)

 

Hallo,

ich habe mal deinen Codeausschnitt bei mir eingefügt. Da gab es dann einen Syntexfehler. Aber das liegt wohl daran, das Array bereits von VBA verwendet wird. Ich würde solche Variablennamen vermeiden, die wie eine Methode, Eigenschaft oder Objekt von Excel lauten. Du könntest hier eine einzeilige If-Variante verwenden. Siehe hier

Code:

Aber wenn ich die Variable b sehe, wird diese For-Schleife eh mehrmals durchlaufen.

 

Hallo Steffl72

Warum meldet er nun einen Fehler bei diesem Code

Ok, Problem gefunden, .Value hat gefehlt.......

Gruß Faultier

 

Hallo,

und wie lautet der Fehler?

 

Hallo Faultier_1982,

schreibe das so: Code:

Nun wirst Du natürlich nachdenklich grübeln, warum diese Vba-Zeile keinen Fehler erzeugt:
arr(c, b) = ThisWorkbook.Sheets("Tabelle1").Cells(c + 1, b + 10)

Nun, bei einem mehrdimensionalen Datenfeld ist es für M$-Vba klar, daß hier nur Werte reinkommen können, also nimmt die Standardeigenschaft von Cells - Value von selbst. Bei eindimensionalen Arrays stellt sich Vba dann ein bischen doof an und der Programmierer muß explicit auf die gewünschte Cells()-Eigenschaft hinweisen.
Grundsätzlich sollte man immer die Eigenschaft hinschreiben, auch wenn Vba die Standard-Eigenschaft kennt.

Gruß von Luschi
aus klein-Paris