VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zeile einfügen und Formeln und Werte übernehmen

Gruppe

Ereignis

Bereich

BeforeDoubleClick

Thema

Zeile einfügen und Formeln und Werte übernehmen

Problem

Wie kann ich in ein Tabellenblatt eine neue Zeile so einfügen, daß die Formeln und Werte der Zeile oberhalb übernommen werden?

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und BeforeDoubleClick