AW: Matrix in aktive Zelle einfügen
09.06.2015 17:10:01
Daniel
Hi
ich gehe mal davon aus, dass du mit Matrix ein zweidimensionales Array meinst, welches an einer bestimmten Stelle einfefügt werden soll.
erstelle in der Form eine Listbox mit den drei auswahlmöglichkeiten in der von dir beschriebenen reihenfolge.
dann folgender Code für die ausführung.
rng ist die Variable für den einfügebereich
arr ist die Variable für deine Matrix
Select Case Listbox1.listIndex
case 0 ' unter tabelle
set rng = sheets("Tabelle1").Range("a1").Currentregion 'Zellbereich der Tabelle ggf _
anpassen
set rng = rng.Offset(rng.rows.count, 0)
Case 1 'neues Blatt
Sheets.Add
set rng = Activesheet.Cells(1, 1)
Case 2 ' aktive Zelle
set rng = ActiveCell
end Select
if Listbox1.ListIndex > -1 Then
rng.Resize(Ubound(arr, 1) - Lbound(arr, 1) + 1, Ubound(arr, 2) - Lbound(arr, 2) + 1).value = _
arr
End if
Gruß Daniel