---

Hallo

Ich möchte aus einer anderen Arbeitsmappe Werte in ein vorbereitetes Tabellenblatt einkoperen. Allerdings befinden sich in 2Zellen Formeln, welche erhalten bleiben sollen.
Welche Möglichkeiten dafür gibt es?

Beispiel:
Werte von A1 bis M99, mit Ausnahme von F3 und G3, sollen in ein vorbereitetes Tabellenblatt einkopiert werden. Außer F3 und G3 kann alles überschrieben werden.
In F3 und G3 befinden sich Formeln, welche mittels der eingefügten Werte, ihre Erbebnisse errechnen sollen.
Diese beiden Zellen können leider nicht außerhalb des einzufügenden Bereiches angeordnet werden.

Es müssen verschiedene Personen damit umgehen können.

Viele Güße und vielen Dank

heilo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo heilo,
in der Ursprungstabelle sollte ja in F3 und G3 nichts stehen, da die Daten dort ja nicht übernommen werden (sollen). Wenn Du dann beim Einfügen unter "Inhalte einfügen" die Option "Leerzellen überspringen" aktivierst, werden die Formeln in F3 und G3 der Zieltabelle nicht überschrieben.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Henning,

aber leider steht in meiner Ursprungstabelle auch schon die gleiche Formel.

Meine Ursprungstabelle besteht zum großen Teil aus Sverweisen aus verschiedenen Ursprüngen und relativ aufwendigen Berechnungen.
Da kaum jemand damit zurecht kommt, und um die Datei zu verkleinern, wollte ich, daß sich die Ergebnisse (auch auszugsweise), relativ einfach in ein vorbereitetes Tabellenblatt, kopieren lassen.
(als Werte ohne den ganzen Rattenschwanz)
Diese einfache Tabelle würde ausreichen, und sich auch verschieben lassen ohne über verlorengegangene Verknüpfungen zu meckern.

Die Formeln am Ende einzukopieren, stellt einen gangbaren, wenn auch nicht sehr eleganten Weg dar.

Falls jemand eine bessere Lösung hat, würde mich das freuen.

Viele Grüße und vielen Dank

heilo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich bin kein großer VBA-Programmierer, trotzdem halte ich Dein Problem mit (ein wenig) VBA für leicht lösbar. Hier mal ein Ansatz zum Ausprobieren und Verbessern:

Code:

---

Sub Kopierdings(Quellbereich, Zielbereich, Formelzelle_1, Formelzelle_2)
    Dim Formelinhalt_1, Formelinhalt_2, Feld
    Formelinhalt_1 = Range(Formelzelle_1).Formula
    Formelinhalt_2 = Range(Formelzelle_2).Formula
    Feld = Range(Quellbereich)
    Range(Zielbereich) = Feld
    Range(Formelzelle_1) = Formelinhalt_1
    Range(Formelzelle_2) = Formelinhalt_2
End Sub

---

Das obige Progrämmchen ließe sich hiermit aufrufen, z. B. verknüpft mit einer Schaltfläche:

Code:

---

Private Sub CommandButton1_Click()
    Call Kopierdings("Tabelle1!A1:M99", "Tabelle2!A1:M99", "Tabelle2!F3", "Tabelle2!G3")
End Sub

---

Falls nicht schon gesehen, hier im Beispiel sind die Quelldaten im Blatt "Tabelle1" und die Zieldaten im Blatt "Tabelle2". Das geht mit Sicherheit sehr viel eleganter und konfigurierbarer... das muss dann wer anders hinbiegen (Wo ist denn Rübe eigentlich? Urlaub?). Mein Ansatz funktioniert aber schon - habs getestet.

------------------
Seit Pro/E Version 1 dabei, auwei...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP