Suchfeld mit Textfenster in eine Dynamische Tabelle erstellen

[Flotter Feger]

Hallo,

eine allerletzte Hilfe ...

     ReDim Preserve arr(0 To 6, 0 To iRowU) '<-- hier legst du fest, wie groß das Array sein darf ... 0 to 6 ist die Spaltenanzahl

[Pirat2015]

Hallo,

eine allerletzte Hilfe ...

     ReDim Preserve arr(0 To 6, 0 To iRowU) '<-- hier legst du fest, wie groß das Array sein darf ... 0 to 6 ist die Spaltenanzahl

das habe ich auch so gemacht, ich habe als Bsp von 0 to 7 gemacht

 ReDim Preserve arr(0 To 7, 0 To iRowU)
                    arr(0, iRowU) = .Name
                    arr(1, iRowU) = rng.Address(False, False)
                    arr(2, iRowU) = .Cells(rng.Row, 1)
                    arr(3, iRowU) = .Cells(rng.Row, 2)
                    arr(4, iRowU) = .Cells(rng.Row, 3)
                    arr(5, iRowU) = .Cells(rng.Row, 4)
                    arr(6, iRowU) = .Cells(rng.Row, 5)
                    arr(7, iRowU) = .Cells(rng.Row, 6)
                    iRowU = iRowU + 1

[
Bild bitte so als Datei hochladen: Klick mich!
]

Als Ergebnis wird aber das 7 Feld nicht gefüllt

Bitte hier nochmal unterstützen, wirklich jetzt das Letze mal:).

Vielen Dank

[Flotter Feger]

Hallo,

... das allerletzte MAL ...

ColumnCount der ListBox steht noch immer auf 7, vermute ich mal ... .

[Pirat2015]

Hallo,

... das allerletzte MAL ...

ColumnCount der ListBox steht noch immer auf 7, vermute ich mal ... .

Vielen Dank für deine Geduld ich habe soweit alles rausgefunden.
Wenn du mir jetzt wirklich das aller Letze mal helfen könntest

was muss ich code beim CommandButton3 verändern um nur Bestimmte Zeilen ausgeben und nicht alles?

[Flotter Feger]

Hallo,

das wäre jetzt das wievielte ... das dritte allerletzte Mal ?  

Ohne zu wissen, welche Kriterien du ansetzt, um Zeilen auszuschließen ... keine Chance !!!

[Pirat2015]

Hallo,

das wäre jetzt das wievielte ... das dritte allerletzte Mal ?  

Ohne zu wissen, welche Kriterien du ansetzt, um Zeilen auszuschließen ... keine Chance !

ja ich weiß aber jetzt wirklich , ich möchte nicht alle Zeilen ausgeben sondern z.b 4
Ich habe beim "Range" versucht z.b ("A:C") zu setzen, das geht nicht.

[Case]

Hallo, :19:

folgendes gibt nur "A:D" aus: :21:

Code:

XBlatt.Range(XBlatt.Cells(XZeile, 1), XBlatt.Cells(XZeile, 4)).Copy wks2.Cells(xCounter, 1)

[Pirat2015]

Hallo, :19:

folgendes gibt nur "A:D" aus: :21:

Code:

XBlatt.Range(XBlatt.Cells(XZeile, 1), XBlatt.Cells(XZeile, 4)).Copy wks2.Cells(xCounter, 1)

Hallo Case,

danke und wenn ich A,D,Z also nicht in der reinfolge sondern queret, wie wäre dann der code

[Case]

Hallo, :19:

Du musst nicht jedesmal die Beiträge zitieren. :21:

So wäre es für "A", "C" und "E".

Code:

XBlatt.Range("A" & XZeile & ",C" & XZeile & ",E" & XZeile & "").Copy wks2.Cells(xCounter, 1)

Jetzt kommst Du ins Spiel.

[Pirat2015]

Perfekt, Danke sehr .

Kann mach eigentlich auch die Zeilen immer in eine Tabelle ausgeben, so das man z.B. Kopf und Fußzeile einpflegt.
Dadurch kann ich eine Art Ausgabe schein machen.

Aber es muss nicht sein es wäre nice to have.

Danke an alle für Tolle Hilfe, bester Forum