Supportnet / Forum / Tabellenkalkulation

Hi Leute! Folgendes Problem: Ich habe ihm Sheet1 eine Spalte D mit Werten die sich täglich anpassen aufgrund von Laufzeit etc.. Diese möchte ich jeden Tag beginnend mit heute in Sheet Archiv abspeichern um die historische Veränderung der Werte sehen zu können. Sprich die Werte von Heute in Archiv Spalte A, die Werte von Morgen in Archiv Spalte B usw.Hat vielleicht irgendwer einen Vorschlag diesbezüglich? mfg AF

Hi VBA_Anfänger,

kopiere nachfolgendes Makro in ein "StandardModul" und starte es z.B. über eine Befehlsschaltfläche.

Option Explicit

Sub Spalte_kopieren()
Columns("D").Copy Sheets("Archiv").Cells(1, Sheets("Archiv").Range("IV1").End(xlToLeft).Column + 1)
End Sub

Bei dem Makro wird Dir beim Ausführen immer die Spalte D des aktiven Tabellenblattes in die erste freie Spalte in Blatt "Archiv" ab Spalte B kopiert.

Ich hoffe, Du meintest das so. Bei Fragen melde Dich bitte.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi! Die Spalte wird zwar kopiert doch befindet sich in der kopierten Spalte die Formel =(P8-R8)*10000 und somit wird in der Sheet Archiv in der dementsprechenden Spalte folgender Fehler angezeigt =(#REF!-A8)*10000. Kannst du mir bitte weiterhelfen?

Danke

lg AF

Hi VBA_Anfänger,

dann sieht das Makro folgendermaßen aus. Kopiere das Makro wieder in ein StandardModul.

Option Explicit

Sub Spalte_kopieren()
Columns("D").Copy
Sheets("Archiv").Cells(1, Sheets("Archiv").Range("IV1").End(xlToLeft).Column + 1).PasteSpecial Paste:=xlPasteValues
End Sub

Hier wird Spalte D kopiert, aber anders als bei dem ersten Makro wird hier nicht alles, sondern nur die Werte eingefügt.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Danke funktioniert perfekt!

Zitat:
^{Admininfo die 3te: bitte vermeide Mehrfachanfragen in verschiedenen, bzw. gleichen Gruppen. Siehe FAQ2.}

• mail- Postfach als pdf archivieren
• Fotos sichern, brennen, archivieren. Wie am Besten?
• Scannen und Archivieren
• Installationsproblem Windows 2000 SP4