|
Moin Andy,
Selection.Row liefert Dir die Zeile der aktiven Zelle des aktiven Arbeitsblatts.
Die Eigenschaft HeaderRowRange.Row, des ListObjects, liefert Dir die Kopfzeile des ListObjects auf dem aktiven Arbeitsblatt.
Beide miteinander verrechnet, liefert Dir die begehrte Position.
Jetzt hast Du bereits die .ListRows.Add-Methode und den Parameter Position angegeben.
Nun noch diese beide Informationen miteinander, wie fbspw folgt, verkuppeln:
Sub ListObjectListRowsAdd2Selection_Andy()
'*** Deklaration
Dim lob As ListObject
Dim lobRow As ListRow
'*** Definition der Objektvariablen
Set lob = ActiveSheet.ListObjects(1)
With lob
'*** Neue Zeile hinzufügenund gleich in einer Objektvariablen referenzieren
Set lobRow = .ListRows.Add(Position:=Selection.Row - .HeaderRowRange.Row)
'*** Der neuen Zeile, zellenweise, Werte zuweisen
With lobRow
.Range.Cells(, 1).Value = "Zelle1 der neuen Zeile"
.Range.Cells(, 2).Value = "Zelle2..."
End With
End With
End Sub
Bei Fragen einfach nochmal melden.
gruß
Marco
|