VBA: Wie Inhalt einer collection in Tabelle schreiben?

[Flak]

hallo,

ich habe ein warscheinlich ganz triviales Problem.

Ich lese Daten aus einer Tabelle mit einer collection aus.

Diese Daten möchte ich komplett in eine andere Tabelle schreiben.

Bei den Daten handelt es sich um normale Strings. Diese sollen in der neuen Tabelle einfach untereinander in die Spalten eingefügt werden.

zb.

A
B
Cd

Per debug.print kann ich mir den gesamten Inhalt im Direktbereich anzeigen lassen. Daher sehe ich das die Daten so wie gewollt eingelesen wurden.

Ich arbeite leider das erste mal mit einer collection und bekomme es einfach nicht hin das er mir diese Daten in die Tabelle schreibt.

Wäre super wenn mir jemand sagen könnte wie das geht.

mfg Flak

[Gast]

Habs nicht getestet, aber ungefähr so...

Set objExcel = CreateObject("Excel.Application")

objExcel.Workbooks.Add

Set objSheet = objExcel.ActiveWorkbook.Worksheets(3)
objSheet.Delete

Set objSheet = objExcel.ActiveWorkbook.Worksheets(2)
objSheet.Delete

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
objSheet.Name = "Dein Titel"


For Each objCol in objCollection
With objSheet
n = n + 1
.Cells(1, n).Value = objCol.YourValue
.Cells(2, n).Value = objCol.YourString
.Cells(3, n).Value = objCol.YourNumber
End With
Next objCol

[Flak]

habs hinbekommen danke :smile:

melde mich beim nächsten problem wieder, also bis bald ;)