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 ()
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
Ersetzen Sie die in Anfⁿhrungszeichen angegebenen Werte durch Ihre eigenen Angaben. 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.