Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Zeilen automisch kopieren (Formeln und Werte)

Forumthread: Zeilen automisch kopieren (Formeln und Werte)

Zeilen automisch kopieren (Formeln und Werte)
15.07.2007 18:25:24
Bernd
Hallo!
Ich würde gerne täglich automatisiert die erste Zeile einer Liste immer an das Ende dieser Liste kopieren, so dass die Liste immer länger wird. Dabei ist zu beachten, dass ein Teil der Zeile als Werte kopiert werden sollten und der andere Teil der Zeil als Formel kopiert werden sollte. Ein aussagekräftige Mustertabelle habe ich beigefügt!
https://www.herber.de/bbs/user/44097.xls
Gruss
Bernd

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen automisch kopieren (Formeln und Werte)
15.07.2007 22:19:00
fcs
Hallo Bernd,
hier eine Lösung.
Gruß
Franz

Sub Zeile1ansEnde()
Dim wks As Worksheet, lngZeile&
Set wks = ActiveSheet
With wks
lngZeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Range(.Cells(1, 1), .Cells(1, 5)).Copy
.Cells(lngZeile, 1).PasteSpecial Paste:=xlValues
.Range(.Cells(1, 6), .Cells(1, 8)).Copy
.Cells(lngZeile, 6).PasteSpecial Paste:=xlFormulas
End With
End Sub


Anzeige
AW: Zeilen automisch kopieren (Formeln und Werte)
15.07.2007 23:10:00
Gerd
Hallo Bernd,
da es bei den paar Zellen nicht so auf Geschwindigkeit ankommt, noch ein Vorschlag ohne Variablen.

Sub ersteZeile_unten_drunter_kopieren()
With ThisWorkbook.Worksheets("Tabelle2") 'anpassen!!!
.Range(.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0), .Cells(Rows.Count, 1). _
End(xlUp).Offset(1, 4)).Value = .Range(.Cells(1, 1), .Cells(1, 5)).Value
.Range(.Cells(1, 6), .Cells(1, 8)).Copy
.Cells(Rows.Count, 1).End(xlUp).Offset(0, 5).PasteSpecial Paste:=xlPasteFormulas
End With
Application.CutCopyMode = False
End Sub


Gruß Gerd

Anzeige
AW: Zeilen automisch kopieren (Formeln und Werte)
17.07.2007 14:11:05
Bernd
Hallo,
danke nochmals, nun laueft es grundsätzlich! Es gibt doch eine Feinheit, aber ich werde mich dazu nochmal melden!
Gruß
Bernd

Forumthreads zu verwandten Themen

Anzeige
Anzeige