Gruppe
Ereignis
Problem
Wie kann ich in ein Tabellenblatt eine neue Zeile so einfügen, daß die Formeln und Werte der Zeile oberhalb übernommen werden?
ClassModule: Tabelle2
Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Excel.Range, _
Cancel As Boolean)
Dim iRow As Integer
If WorksheetFunction.CountA(Rows(Target.Row)) = 0 Then
Exit Sub
End If
Cancel = True
iRow = Target.Row
Rows(iRow).Insert
Rows(iRow - 1).Copy _
Destination:=Rows(iRow & ":" & iRow + 1)
End Sub