Dynamische / Automatische Tabelle erstellen

[j.manotes]

Hallo liebe Community,

meine Farge bezieht sich auf das generieren einer Tabelle anhand von zwei Werten, die ich in einem Tabellenblatt festlege.
In diesem Tabellenblatt habe ich als zwei Werte. Der eine steht für die Anzahl der Spalten und der andre für die der Zeilen.
Durch die Werte soll dann eine Tabelle im gleichen Tabellenblatt erzeugt werden.
Ansatzweise habe ich es mit Makros versucht, leider dreh ich mich dort aber im Kreis und habe keine Ahnung wie ich dies verwirklichen soll.

Hätte jemand hier eine Idee oder Tipps?

MfG Jan

[WillWissen]

Hallo Jan,

lies mal deinen Beitrag mit den Augen eines völlig unbeteiligten Lesers, dann wirst du sicherlich feststellen, dass niemand mit deinem Text etwas anfangen kann.

[schauan]

Hallöchen,

Hier mal ein aufgezeichneter Code für das Einfügen einer Tabelle.

Code:

Sub Makro1()
' Makro1 Makro
'

'
    Range("A1:D10").Select
    Application.CutCopyMode = False
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$D$10"), , xlYes).Name = _
        "Tabelle1"
    Range("Tabelle1[#All]").Select
End Sub

Wie Du siehst, wird für die Tabelle auch ein Bereich benötigt. Wenn sie immer in A1 eingefügt werden soll, dann braucht man keinen anderen Startpunkt zu definieren. Ich habe hier den Code angepasst und mal noch einen Zusatz drin, wo man auch die Startzelle programmieren kann. Startzelle steht in A14 und die Zeilen und Spalten in A15 und A16. Wenn's Dir gefällt, können wir auch noch das Tabellenblatt, wo die Tabelle rein soll, programmieren.

Code:

Sub Makro2()
' Makro2 Makro
'
    Range(Range("A14").Value).Resize(Range("A15").Value, Range("A16").Value).Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range(Range("A14").Value).Resize(Range("A15").Value, Range("A16").Value), , xlYes).Name = _
        "Tabelle2"
    Range("Tabelle2[#All]").Select
End Sub