Kontinuierliches Kopieren von Zellen mit Excel
Ich verwende Excel, um täglich Meßdaten zu erfassen. Formeln berechnen auf dem Erfassungsblatt aus den erfaßten Daten zusätzliche Kontrollwerte. Um die Meßdaten langfristig zu sichern, habe ich die Eingabespalte mit Zellen einer anderen Arbeitsmappe verknüpft. Die zweite Mappe muß ich nun täglich vor dem Erfassen der neuen Werte bearbeiten und die alten Daten verschieben. Gibt es eine einfachere Möglichkeit, die das vielleicht auch automatisch kann?
Zunächst sollten Sie sich überlegen, warum Sie die Daten mit Hilfe einer Verknüpfung in eine andere Tabelle bzw. Arbeitsmappe transportieren. Offensichtlich geht es Ihnen dabei doch um den Erhalt bestehender Werte. Eine Verknüpfung dient jedoch dem Ziel, Datenänderungen nur in einer Tabelle automatisch auf andere Tabellen zu übertragen. Sie wollen Ihre Daten aber nicht ändern, sondern vor Änderungen bewahren.
Daher erscheint es angebrachter, auf die Verknüpfung zu verzichten und auf einen traditionellen Kopiervorgang zurückzugreifen. Dieser läßt sich übrigens auch wesentlich einfacher automatisieren. Öffnen Sie die Mappe zur Datenerfassung und starten Sie mit Hilfe des Befehls Extras – Makro den gleichnamigen Dialog. Im Feld Makroname geben Sie einen Namen für Ihr neues Makro ein und klicken anschließend auf die Schaltfläche Erstellen. Im Visual Basic-Editor geben Sie folgende Anweisungen ein:
Sub CopyToNewLocation ()Ersetzen Sie die in Anführungszeichen angegebenen Werte durch Ihre eigenen Angaben.
Found = False
Range ("B1:B6").Select
Selection.Copy
For Each w In Workbooks
If w.Name = "Mappe2.XLS" Then
w.Activate
Found = True
Exit For
End If
Next w
If Not Found Then
Workbooks.Open FileName:="Mappe2.XLS"
End If
Sheets ("Ziel").Select
Range ("B1:B6").Select
Selection.Insert Shift:=xlToRight
Workboks (ôMappe2.XLSô).Close (True)
Workbooks ("Mappe1.XLS").Activate
Sheets ("Quelle").Select
End Sub
Zunächst initialisiert das Makro die später benötigte Variable Found. Anschließend markiert es in der aktuellen Arbeitsmappe die Zellen B1:B6 und kopiert sie. Der folgende Anweisungsblock sucht in der Auflistung der Arbeitsmappen nach einer Arbeitsmappe mit dem Namen Mappe2.XLS. Falls die Mappe bereits geöffnet ist, taucht sie in dieser Auflistung auf und Found bekommt einen Wahr-Wert zugeordnet. Andernfalls bleibt Found mit dem zuvor initialisierten Wert besetzt. Das bedeutet für das Makro, es muß die Mappe2 selbst öffnen. Sobald die Mappe geöffnet ist, sucht das Makro das Tabellenblatt, in das es die Daten einfügen soll. Um die letzten Informationen immer gleich beim Öffnen sehen zu können, fügen Sie sie gleich in die zweite Spalte ein. Dazu fügen Sie die kopierten Zellen als neue Zellen ein und verschieben die bisher dort existierenden eine Spalte nach rechts. Die letzten drei Anweisungen sorgen lediglich dafür, daß Excel die Änderungen sichert und den Fokus wieder auf das Ausgangsblatt zurücksetzt.
Nachdem Sie das Makro vollständig eingegeben haben, können Sie es noch mit einer Tastenkombination verbinden. Von jetzt an brauchen Sie nur noch vor der Eingabe neuer Daten die Tastenkombination anzuwenden und können schon weiterarbeiten.