Hallo liebe Helfende im Forum,
ich würde gerne folgendes Problem lösen - bin mir aber nicht sicher ob es überhaupt so funktionieren kann.
Es soll nur eine bestimmte Spalte eines Arrays in das Tabellenblatt einfügt werden.
Mit diesem Code wird das gesamte Array (2 dimensional) "auf einmal" in den passenden Bereich eingefügt/Übertragen.
'Ausgabe des Ergebnis-Datenfelds
With tbl_Erg
' .Cells(1, 1).Resize(UBound(VarDatErg, 1), UBound(VarDatErg, 2)) = VarDatErg
.Range(.Cells(1, 1), .Cells(UBound(VarDatErg, 1), UBound(VarDatErg, 2))) = VarDatErg 'alternativer Code zu resize
End With
Ist es möglich auch nur eine bestimmte Spalte zB die erste, die letzte oder die 2.Spalte analog dem Befehl oben einzufügen?
Das klappt nicht, aber vielleicht etwas ähnliches?
With tbl_Erg
'.Range(.Cells(1, 1), .Cells(UBound(VarDatErg, 1), 1)) = VarDatErg(UBound(VarDatErg, 1), 1)
.Range(.Cells(1, 1), .Cells(UBound(VarDatErg, 1), 1)) = VarDatErg(UBound(VarDatErg, 1), 6)
End With
Freue mich über Eure Hilfe, viele Grüße
MiSchi