Verknüpften Zellwert 'festschreiben'

Jorge_8bc528 · 6. Juli 2007 um 20:25

Guten Abend zusammen,

über verknüpfte Zellen bilde ich eine Summe. Wenn sich die Quellwerte ändern, ändert sich die Summe - Eulen nach Athen.
Ich möchte jetzt die Summenwerte nicht nach jeder Aktualisierung verlieren, sondern in einer bzw. mehreren anderen Zellen „speichern“.
Per Hand und umständlich geht das, wenn ich nur den Wert der Zelle kopiere. Diesen Vorgang habe ich mit STR+y mit einem Makro verbunden. Leider bin ich nicht schlau genug, denn das Makro ändert den Wert immer in der gleichen Zelle, so dass der Summenwert vom Vortag wieder weg ist.

Hat jemand von euch eine Idee, wie ich das Problem lösen kann?

Oder ist das nicht lösbar? Dann wäre ich über eine entsprechende Antwort auch froh.

Liebe Grüße

Jorge

Georg_V · 7. Juli 2007 um 06:45

Hallo Jorge,

man geht beherzt in den Makro-Editor und editiert das Makro so um, dass der Zellenwert in die aktuelle Zelle kopiert wird. Da ich gerade kein Excel auf dem Rechner habe, solltest Du einfach mal den Makrocode rüber schicken, den Du aufgezeichnet hast.

MfG Georg V.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Reinhard_fb8cb7 · 7. Juli 2007 um 13:54

Hi Jorge,

über verknüpfte Zellen bilde ich eine Summe. Wenn sich die
Quellwerte ändern, ändert sich die Summe - Eulen nach Athen.
Ich möchte jetzt die Summenwerte nicht nach jeder
Aktualisierung verlieren, sondern in einer bzw. mehreren
anderen Zellen „speichern“.

Wann möchtest du denn die Summenwerte verlieren und wann nicht?
Soll jede Summenänderung „protokolliert“ werden weil du von mehreren Zellen sprichst?

Per Hand und umständlich geht das, wenn ich nur den Wert der
Zelle kopiere. Diesen Vorgang habe ich mit STR+y mit einem
Makro verbunden. Leider bin ich nicht schlau genug, denn das
Makro ändert den Wert immer in der gleichen Zelle, so dass der
Summenwert vom Vortag wieder weg ist.

Wo ist der Code, was soll da geändert werden, sodas was genau passiert?

Hat jemand von euch eine Idee, wie ich das Problem lösen kann?

Mehrere, aber ich brauche genauere Details.

Oder ist das nicht lösbar? Dann wäre ich über eine
entsprechende Antwort auch froh.

Kann ich jetzt so nicht sagen, lösbar ist vieles aber nicht alles.

Gruß
Reinhard

Georg_V · 7. Juli 2007 um 18:18

Hallo Jorge,

man geht beherzt in den Makro-Editor und editiert das Makro so
um, dass der Zellenwert in die aktuelle Zelle kopiert wird. Da
ich gerade kein Excel auf dem Rechner habe, solltest Du
einfach mal den Makrocode rüber schicken, den Du aufgezeichnet
hast.

MfG Georg V.

Hallo Jorge,

habe jetzt mal Excel gestartet und forsch angenommen, dass Deine Summe in A3 steht. Das Makro, was Du mitprotokolliert hats dürfte wie folgt aussehen:

Sub Makro1()
'
' Makro1 Makro
' Makro am 0x.07.2007 von Jorge ... aufgezeichnet
'
' Tastenkombination: Strg+y
'
 Range("A3").Select
 Selection.Copy
 Range("C3").Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks \_
 :=False, Transpose:=False
End Sub

Dieses editierst Du über ALT F11, sodass
Sub Makro1()
’
’ Makro1 Makro
’ Makro am 0x.07.2007 von Jorge … aufgezeichnet
’ am 07.07.2007 von Jorge … nach www-Artikel modifiziert
’
’ Tastenkombination: Strg+y
’
Range(„A3“).Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Danach dürfte das Strg-Y den Wert aus A3 in die aktuell selektierten Zellen eintragen.

In der Hoffnung, dass Du soweit mit dem VBA-Editor zu recht kommst.

MfG Georg V.

Jorge_8bc528 · 7. Juli 2007 um 21:49

Ein paar mehrInfos
Hallo Reinhard, Hallo Georg und alle anderen, die mal reingucken.

Hier ein Auszug aus meiner Datei:
( leider verschiebt sich ja die ganze chose beim abschicken )

Kaufpreis Aktueller Wert Differenz
Grün 2000,00 2000 0,00
Blau 3000,00 2800 -200,00
Rot 1000,00 1900 900,00
Gelb 800,00 1200 400,00

Summe 6800,00 7900,00 1100,00 = D9

02.03.2007 1100 =B12
03.03.2007
04.03.2007
05.03.2007

Mit Jeanie sähe es schöner aus, geht ja hier aber nicht…

Das Makro, das ich mit gnädiger Hlfe von Excel gebastelt habe, sieht so aus:

Sub Summebeibehalten()
’
’ Summebeibehalten Makro
’ Makro am 07.07.2007 von Internet aufgezeichnet
’
’ Tastenkombination: Strg+x
’
Range(„D9“).Select
Selection.Copy
Range(„B12“).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Vielleicht sieht man jetzt auch, dass ich den neuen Wert in D9 nach B13 haben möchte. Mein Makro fügt aber den Wert von D9 immer in B12 ein. „Mein Makro“ ist reichlich übertrieben; ich habe xls gesagt, er soll das aufzeichnen, was ich mache.

Jetzt hoffe ich sehr, dass ich mich etwas verständlicher ausdrücken konnte.

Allen noch ein schönes Wochenende.
Liebe Grüße

Jorge

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Reinhard_fb8cb7 · 8. Juli 2007 um 13:43

Hi Jorge,

Kaufpreis Aktueller Wert Differenz
Grün 2000,00 2000 0,00
Blau 3000,00 2800 -200,00
Rot 1000,00 1900 900,00
Gelb 800,00 1200 400,00

In welchem Zellenbereich steht das, A1:smiley:5 ?

Summe 6800,00 7900,00 1100,00 = D9

02.03.2007 1100 =B12
03.03.2007
04.03.2007
05.03.2007

Mit Jeanie sähe es schöner aus, geht ja hier aber nicht…

Jeanie habe ich auch, geht hier halt nicht.

Unterhalb des Eingabefensters steht die Hilfe zu Html-Tags, benutze den pre-Tag, oder FAQ:2363

Vielleicht sieht man jetzt auch, dass ich den neuen Wert in D9
nach B13 haben möchte. Mein Makro fügt aber den Wert von D9
immer in B12 ein. „Mein Makro“ ist reichlich übertrieben; ich

Es ist kein Problem ein Makro zu entwickeln was auf Knopfdruck den Wert von D9 nach der untersten freien Zelle in B einträgt, also wenn B12 besetzt ist nach B13 usw.

Andererseits ginge es auch ohne extra einen Schaltknopf zu drücken weil Excel die Möglichkeit bietet Ereignisprozeduren zu entwickeln die auf bestimmte Ereignisse, hier manuelle Eingabe in „Aktueller Wert“ zu reagieren, darufhin wird vollautomatisch in A nach dem aktuellem Datum gesucht und der neue Summenwert in Bx geschrieben.

Deshalb die Nachfrage, den aktuellen Wert gibst du täglich neu ein in die gleiche Zelle, also du pflegst keine Chronologie der Kurse?
Sondern du willst nur die Summenentwicklung chronologisch haben?

Jetzt hoffe ich sehr, dass ich mich etwas verständlicher
ausdrücken konnte.

Eweng Ich bin da auch nicht besser wenn ich mich verständlich machen müßte *gg*

Allen noch ein schönes Wochenende.

Dito.

Gruß
Reinhard

Alexander_Bohl · 8. Juli 2007 um 14:30

Lösung fürs Makro
Hi,

benutz das Makro hier:

'Zelle in der die Summe steht kopieren
Range(„A1“).Select
Selection.Copy

'Nächste freie Zelle in der Spalte markieren in die
'Deine Summen kommen (hier Spalte D)
Range(„D65536“).End(xlUp).Offset(1, 0).Select

'Wert der Summe einfügen
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

LG Alex

Reinhard_fb8cb7 · 8. Juli 2007 um 15:31

Range(„A1“).Select
Selection.Copy
Range(„D65536“).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Hi Alex,
zwei Dinge fielen mir auf, a) bei XL2007 bröckelt dein Code weil es da mehr als 65536 Zeilen gibt, b) Select nimmt man nur dann wenn es nicht anders geht, ist im hicks Promillebereich daß man Select oder Activate braucht.

Ungetestet, aber müßte abgesehen von den üblichen Syntaxirrungen und Denkfehlern so laufen:

Sub tt2()
Range(„A1“).Copy Destination:=Cells(Cells(Rows.Count, 4).End(xlUp).Row + 1, 4)
End Sub

Sub tt3()
Letzte = Cells(Rows.Count, 4).End(xlUp).Row + 1
Range(„A1“).Copy Destination:=Cells(Letzte, 4)
End Sub

Ich bevorzuge Version tt3, weil übersichtlicher.

Gruß
Reinhard

Alexander_Bohl · 8. Juli 2007 um 16:06

Hi Reinhard,

zwei Dinge fielen mir auf, a) bei XL2007 bröckelt dein Code
weil es da mehr als 65536 Zeilen gibt, b) Select nimmt man nur
dann wenn es nicht anders geht, ist im hicks Promillebereich
daß man Select oder Activate braucht.

hab das in der Form geschrieben, weil das dem Code ähnelt den
er erhält wenn er per Hand n Makro aufzeichnet. Da er ja
offensichtlich nicht so fit ist, wird das leichter nachzuvoll-
ziehen sein. Somit kann er da auch n bisschen mit rumbasteln.
hicks? woher Du wissen?

LG

Alex

Reinhard_fb8cb7 · 8. Juli 2007 um 17:49

hab das in der Form geschrieben, weil das dem Code ähnelt den
er erhält wenn er per Hand n Makro aufzeichnet. Da er ja
offensichtlich nicht so fit ist, wird das leichter nachzuvoll-
ziehen sein. Somit kann er da auch n bisschen mit rumbasteln.
hicks? woher Du wissen?

Hallo Alex,
hicks bezog sich rein auf das Wort Promille, war/ist absolut nix bösgemeintes.
Gruß
Reinhard

Jorge_8bc528 · 8. Juli 2007 um 20:15

Ich habs echt probiert
Ihr Lieben,
Vielen Dank für euren Einsatz.
Ich weiß ja, dass es Parallelwelten gibt, wie die Scheibenwelt, und auch VBA gehört dazu.
Ich habe jetzt jeden einzelnen Makro-Vorschlag in den VBA-Editor kopiert, A1 oder A3 durch D9 ersetzt, weil da ja die Summe steht, aber es passiert rein gar nichts.
Da ich mit VBA so gar keine Erfahrungen habe, kann ich auch nicht großartig rumprobieren, weil ich die Dinge ja nicht sehe, die mir im Weg stehen. Eigentlich können das ja nur handling-Fehler sein, falsches kopieren oder so, weil eure Makros ja relativ übereinstimmend sind. Oder ihr habt was nicht geschrieben, von dem ihr ausgeht, dass „sei doch klar“ oder so ( einmal habe ich mich getraut, ein Sub End zu ergänzen…

Also lange Rede kurzer Sinn: wenn ihr noch einen Versuch wagen wollt, werde ich das noch mal ausprobieren. Ansonsten muss ich einfach konstatieren, dass mir die Grundlagen fehlen, um das umzusetzen, was ihr mir vorschlagt.

Ich danke euch ganz herzlich. Noch einen schönen Sonntagabend.

Liebe Grüße

Jorge

Reinhard_fb8cb7 · 9. Juli 2007 um 14:20

Also lange Rede kurzer Sinn: wenn ihr noch einen Versuch wagen
wollt, werde ich das noch mal ausprobieren. Ansonsten muss ich
einfach konstatieren, dass mir die Grundlagen fehlen, um das
umzusetzen, was ihr mir vorschlagt.

Hi Jorge,

bastle mal eine kleine Beispieltabelle aus der man klar sieht wo was stehen soll später.
Und mitsamt deinen bisherigen Makroversuchen

Hochladen kannst du sie z.B. hier: http://www.badongo.com

Dann nennen sie dir einen Link, z.B. http://www.badongo.com/file/3696224 den nennst du hier.

Gruß
Reinhard

Jorge_8bc528 · 9. Juli 2007 um 19:43

Hallo Reinhard,

hier der Link:

http://www.badongo.com/file/3699153

Die Summe D9 soll nach B12 abwärts übertragen werden.
Das Makro, das jetzt drin ist, ist deins.
Die Tabelle 2 ist im Original anders aufgebaut, so dass mir immer der letzte Wert der Eintragungen angezeigt wird; der ist dann verknüft.

Hoffentlich fehlt nichts.

Liebe Grüße

Jorge

Reinhard_fb8cb7 · 10. Juli 2007 um 19:09

hier der Link:

http://www.badongo.com/file/3699153

Hi Jorge,

bei badongo kommt ein Fehler
Sie haben nicht die erforderliche Zugangsberechtigung
Das ist auch bei meinem Link so, k.A. warum, kenne ich nicht von badango.

Ich kannte mal noch eine andere free Hochladadresse, hab aber leider den Namen vergessen.

Dann mail mir halt mal die Datei.

Gruss
Reinhard