Makro mit Zeile einfügen und Daten kopieren

[Roman-1]

Hier wäre die Datei


  test.xlsm (Größe: 63,71 KB / Downloads: 2)

[Egon12]

Hallo Roman,

das geht so, wenn es in die 1. Zeile des Listobjekts soll:

Code:

Sub Eingabemaske()
    Dim arr(): arr = Tabelle3.Range("rng_Maske").Value
    Tabelle2.ListObjects(1).ListRows.Add(1).Range.Resize(1, UBound(arr)) = Application.Transpose(arr)
End Sub

rng_Maske siehe Namensmanager.


  test.xlsm (Größe: 57,27 KB / Downloads: 2)

Gruß Uwe

[Roman-1]

Hallo Uwe.
Das ist ja richtig toll. 
Kein vergleich zu meinen Versuchen.
Vielen Dank.
Noch ein schönes Wochenende
Roman