Zeile und Formeln aus Spalte B bis X einfügen,

Forumthread: Zeile und Formeln aus Spalte B bis X einfügen,

26.12.2016 10:15:36

Matthias

Hallo Zusammen,
ich möchte nach Doppelklick eine Zeile mit den Formeln aus den Spalten B - X und den Wert aus Spalte A einfügen. Als Vorlage dient die Zeile oberhalb der einzufügenden.
Mit diesem Makro kann ich nur eine leere Zeile einfügen.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then Rows(Target.Row).Insert
Cancel = True
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeile und Formeln aus Spalte B bis X einfügen,

26.12.2016 10:28:18

Hajo_Zi

nur wenige sehen Deine Datei.

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Columns("B:X").Formula = Range("B1").Formula
Cancel = True
End If
End Sub

AW: Zeile und Formeln aus Spalte B bis X einfügen,

26.12.2016 11:34:34

Gerd

Hallo Matthias!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With ActiveCell.EntireRow
If .Row = 1 Then Exit Sub
.Insert xlDown
.Cells(1, 1).Resize(1, 24).Offset(-1).Copy
.Cells(1, 1).Resize(1, 24).PasteSpecial xlPasteFormulas
Application.CutCopyMode = False
End With
End Sub

Gruß Gerd

AW: Zeile und Formeln aus Spalte B bis X einfügen,

27.12.2016 12:11:01

Matthias

Hallo Zusammen,
ich bedanke mich für Eure Bemühungen und Anregungen.
Ich konnte mir aus Euren Antworten ein auf mich zugeschnittenes Makro basteln.
So funktioniert es erst einmal. Vielleicht gibt es noch bessere und einfachere Ausführungen.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then Rows(Target.Row).Insert
Cancel = True
Dim myCell As Range
Dim mLC As Integer '=> myLastCell
mLC = 24
Range(Cells(ActiveCell.Row - 1, 2), _
Cells(ActiveCell.Row - 1, mLC)).Copy
Range(Cells(ActiveCell.Row, 2), _
Cells(ActiveCell.Row, mLC)).PasteSpecial _
Paste:=xlPasteFormulasAndNumberFormats
For Each myCell In Range(Cells(ActiveCell.Row, 1), _
Cells(ActiveCell.Row, mLC).End(xlToLeft))
If Not myCell.HasFormula Then
myCell.ClearContents
End If
Next myCell
Cells(ActiveCell.Row - 1, 1).Copy
Cells(ActiveCell.Row, 1).PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats
Cells(ActiveCell.Row, 8).Select
Application.CutCopyMode = False
End Sub

Beliebteste Forumthreads (12 Monate)

Zeile und Formeln aus Spalte B bis X einfügen,

Forumthread: Zeile und Formeln aus Spalte B bis X einfügen,

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Zeile und Formeln aus Spalte B bis X einfügen,

Forumthread: Zeile und Formeln aus Spalte B bis X einfügen,

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread