Matrix in aktive Zelle einfügen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox
Bild

Betrifft: Matrix in aktive Zelle einfügen
von: Klaus
Geschrieben am: 09.06.2015 16:44:02

Hallo zusammen,
ich habe ein kleines Problem.
Wir haben eine Matrix erstellt und wollen in einem Formular abfragen, an welcher Position diese eingefügt werden soll.
Diese soll einmal unter einer vorgegebenen Tabelle ( die jedoch beliebig erweiterbar sein soll ), auf einem neuen Tabellenblatt und in die aktuell aktivierte Zelle eingefügt werden.
Wie kann ich das am schönsten Lösen?
Grüße
Klaus

Bild

Betrifft: AW: Matrix in aktive Zelle einfügen
von: Daniel
Geschrieben am: 09.06.2015 17:10:01
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

Bild

Betrifft: Vielleicht mit Blümchen und Schleifchen, ...
von: Luc:-?
Geschrieben am: 09.06.2015 17:11:45
…Klaus… ;-]
Ansonsten besser mal eine kleine BspDatei hier einstellen, damit man auch einen konkreten Ansatzpkt für ein Bsp hat.
Gruß, Luc :-?

Besser informiert mit …

Bild

Betrifft: AW: Matrix in aktive Zelle einfügen
von: Klaus
Geschrieben am: 09.06.2015 17:47:57
https://www.herber.de/bbs/user/98111.xlsm
Hier wäre ein Beispieldatensatz inkl. den Fragen :)
Merci schon mal.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Matrix in aktive Zelle einfügen"