Ich möchte Daten (einfache Zahlenwerte aus Zellen) in eine Arbeitsmappe übernehmen.
Die Übernahme soll durch ein Befehlsknopf ausgelöst werden.
Die Zellen in der Eingabemappe und der Arbeitsmappe sollen über ihren Namen angesprochen werden.
Den logischen Ablauf stelle ich mir so vor:
-Makro starten
-über eine Box die Eingabemappe auswählen (Defaultanzeige: das Verzeichnis in den die Arbeitsmappe liegt, Defaultdatei "Eingabe.xls, falls existent)
-Eingabemappe öffnen, die Zellen auslesen und an die Zielzelle der Arbeitsmappe schreiben
for i in preis1, preis2, datum1, datum2,.... do
lese i aus Eingabemappe und schreibe i in Arbeitsmappe
done
-Neuberechnung der Arbeitsmappe mit den eingelesenen Werten
-speichern der Arbeitsmappe und einem neuen Namen (die Arbeitsmappe ist schreibgeschützt während der Anwendung.
Zur Fehlerbehandlung wäre noch eine Ausgabe der Zellnamen, die ausserhalb bestimmter Werte liegen oder gar nicht gesetzt sind schön. (if inhalt is not numeric or inhalt kleiner 0, then warnmeldung oder defaultwert annehmen)
Ist bestimmt nicht so schwer, wenn man sich ein wenig mit VBA auskennt.
Ich würde mich über einen Beispielcode freuen, der den Wert der Zelle mit Namen "Preis" aus der Eingabemappe in die Zelle mit Namen Preis in der Arbeitsmappe schreibt. Mehr wäre auch schön ;-)
Danke im Voraus, Martin