Kopieren, Werte einfügen

Computer: Software & Programmierung Office Software
1

Liebe ExpertInnen,

ich stelle in diversen Dateien Auswertungen mit Hilfe von Verknüpfungen dar.

Ich möchte jetzt monatliche Daten in einem Diagramm darstellen. Das scheitert erst mal daran, dass die „alten“ Daten bei jeder Aktualisierung weg sind.

Deshalb will ich diese verknüpften Daten mit Kopieren / Inhalte einfügen / Werte sichern. Und zwar so, dass bei jedem Ausführen des Makros die rechts angrenzende/n Zellen ausgefüllt werden.

Beispiel: In der „1. Zieldatei“ steht in A1 das verknüpfte Datum (Heute()), in B3:B5 stehen die verknüpften Daten.

In der „2. Zieldatei“ soll jetzt A1 nach B2 kopiert werden und B3:B5 nach B3:B5. Beim nächste Ausführen soll C2:C5 gefüllt werden, dann D, usw.

Mein laienhaft aufgezeichnetes Makro sieht so aus:

Sub Werte_einfügen()
’
’ Werte_einfügen Makro
’ Makro am 15.08.2008 von Internet aufgezeichnet
’
’ Tastenkombination: Strg+w
’
Range(„A1“).Select
Selection.Copy
Windows(„2. Zieldatei.xls“).Activate
Range(„B2“).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = „m/d/yyyy“
Windows(„1. Zieldatei.xls“).Activate
Range(„B3:B5“).Select
Selection.Copy
Windows(„2. Zieldatei.xls“).Activate
Range(„B3“).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range(„A2“).Select
End Sub

Das funktioniert für das erste Kopieren, aber dann verließen sie ihn.

Könnt ihr mir helfen, das Makro so zu erweitern, dass beim nächsten Mal die Spalte rechts usw. gefüllt werden. Das Makro will ich aktiv ausführen, also nicht beim aktualisieren, öffnen oder schließen der Datei.

Solltet ihr eine Lösung wissen, hoffe ich, dass ich das Prinzip verstehe, um es auf meine anderen Dateien anwenden zu können.

Ich hoffe, ich habe mein Anliegen einigermaßen verständlich darlegen können.

Freundliche Grüße

Jorge

2

Hallo Jorge.

Der folgende Code sollte Deine Bedingungen erfüllen, wenn in „Zieldatei2“ selbst die folgende Bedingung erfüllt ist:

In Zelle A1 muß irgendetwas stehen

Hier kommt der Code:

 Windows("Zieldatei2.xls").ActiveSheet.Cells(1, Windows("Zieldatei2.xls").ActiveSheet.UsedRange.Columns.Count + 1) = Windows("Zieldatei1.xls").ActiveSheet.Range("A1")
 Windows("Zieldatei2.xls").ActiveSheet.Cells(3, Windows("Zieldatei2.xls").ActiveSheet.UsedRange.Columns.Count) = Windows("Zieldatei1.xls").ActiveSheet.Range("B3")
 Windows("Zieldatei2.xls").ActiveSheet.Cells(4, Windows("Zieldatei2.xls").ActiveSheet.UsedRange.Columns.Count) = Windows("Zieldatei1.xls").ActiveSheet.Range("B4")
 Windows("Zieldatei2.xls").ActiveSheet.Cells(5, Windows("Zieldatei2.xls").ActiveSheet.UsedRange.Columns.Count) = Windows("Zieldatei1.xls").ActiveSheet.Range("B5")

Viele Grüße
Carsten

3

Hallo Carsten,

ich habs jetzt mal auf die Schnelle probiert und es klappt, wenn ich die 1. Zeile als Datum formatiere.

Dafür also mal vielen Dank!!

Morgen versuch ich mal, das Makro auf eine andere Datei anzuwenden.

Guets Nächtle

Jorge