Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Zeile einfügen und Formeln und Werte übernehmen
Gruppe
BeforeDoubleClick
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