Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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

Anzeige

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige