Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Victor Laszlo am November 12, 2012, 07:08:02 Vormittag

Titel: excel2010
Beitrag von: Victor Laszlo am November 12, 2012, 07:08:02 Vormittag
Hallo,
ich versuche per Makro eine Summe von einem Datenblatt in eine andere Datei/Datenblatt zu kopieren.
Fehlermeldung#Bezug!
Meine Frage: wie kann ich eine Summe per Makro kopieren, das Teile einer Makrozusammenfassung ist, die täglich mit unterschiedlichen Daten ausgeführt wird?
Victor
Titel: Antw: excel2010
Beitrag von: Michael am November 12, 2012, 07:58:59 Vormittag
Hallo Victor,

schreib uns doch mal den Makro Code hier rein, dann können wir uns anschauen was zu Deiner Fehlermeldung führt.

Viele Grüße
Michael
Titel: Antw: excel2010
Beitrag von: Victor Laszlo am November 12, 2012, 09:30:54 Vormittag
Hallo Michael,

vielen dank für Deine promte Antwort.
So sieht mein Problem aus:

A)
=(SUMME(#BEZUG!;J18))       Zielzelle (Fehlermeldung)
Datei: Übertrag BMP

B)
=(SUMME(E20;O20))             durch Macro zu kopierende Zelle

Datei: Verfolgung ST

Bei Recorderaufzeichung Anklick der Zelle (E20:o20) und Anklick der Zielezelle kommt diese Fehlermeldung: =(SUMME(#BEZUG!;J18)) Zelle "J18" soll das Summenergenis als Zahl ausweisen

Ich müßte das Summenergebnis  unter A) in eine neue Datei
"Verfolgung ST" ind der Zielzelle unter B) per Macro kopieren,
dieses Macro sollte dann für weiter 6 Vorgänge analog arbeiten.
Viele Grüße
Victor
Titel: Antw: excel2010
Beitrag von: Michael am November 12, 2012, 12:33:47 Nachmittag
Hallo Victor,

anbei mal ein Beispiel. Das muss natürlich noch auf Deine Dateien und Bezeichnungen angepasst werden:

Code: [Auswählen]
Sub kopieren()

    Range("C9").Select 'Das ist die Zelle in der Ausgangsdatei zum kopieren
    Selection.Copy 'hiermit wird kopiert
    Windows("Mappe3").Activate 'Jetzt wird die andere Tabelle aktiviert, sprich sie wird aufgerufen. Dazu muss sie offen sein
    Range("C8").Select 'Hier wird die Zelle in der Zieldatei ausgewählt
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False 'Und hiermit wird der kopierte Wert eingefügt. Nicht die Formel sondern nur der Wert
End Sub
Viele Grüße
Michael
Titel: Antw: excel2010
Beitrag von: Victor Laszlo am November 13, 2012, 04:59:15 Vormittag
Vielen Dank Michael,

ich werde heute , wenn's der Betrieb hier zulässt,  Deinen Prog. Vorschlag versuchen umzusetzen und hoffe, dass es klappt.
Vorerst vielen Dank.
Gruß
Victor

Titel: Antw: excel2010
Beitrag von: Michael am November 13, 2012, 07:49:57 Vormittag
Sehr gerne. Melde Dich wenn Du nicht weiter kommst.