Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
884to888
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
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen automisch kopieren (Formeln und Werte)

Zeilen automisch kopieren (Formeln und Werte)
15.07.2007 16: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

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen automisch kopieren (Formeln und Werte)
15.07.2007 20: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


AW: Zeilen automisch kopieren (Formeln und Werte)
15.07.2007 21: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 12: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

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige