Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

importierte sich verändernde Zahlen
#1
Liebe Forums-Mitglieder, mir lässt das keine Ruhe. Vielleicht kann mir doch einer helfen. Ich habe zwei Excel-Zellen A1 und A2. In beide Zellen werden ständig sich unterschiedlich veränderte Werte importiert. Es handelt sich hierbei Wechselkurse am Devisenmarkt. Wenn ich den Wert A2 anhalte indem ich den momentanen aktuellen Wert überschreibe, also kein Import mehr möglich, soll sich genau zu diesem Zeitpunkt A1 auch nicht mehr ändern, weil ich diesen genau zu diesem Zeitpunkt zur Umrechnung benötige. Ich könnte diesen auch überschreiben aber das ist in meinem Fall sehr aufwendig, weil er sich in einer anderen Datei befindet. Hat jemand eine Idee. Wenn ich nerve, sagt Bescheid, dann höre ich auf.
Danke
Antworten Top
#2
Hi,

das müsste mit einer Ereignisprocedur gehen, die du im VBA-Editor in dem Modul des Arbeitsblatts einfügst:


Code:
Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$2" Then
        Range("$A$1").Value = Range("$A$1").Value
    End If

End Sub

Ich weiß nun nicht, ob das regelmäßige automatische Auffüllen der Zelle A2 dieses Ereignis auslöst. Falls ja, dann probiere mal dies:

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Target.Address = "$A$2" Then
        Cancel = True
        Range("$A$1").Value = Range("$A$1").Value
    End If

End Sub


Dieses Ereignis wird ausgelöst, wenn du auf A2 einen Doppelklick ausführst.
Herzliche Grüße aus dem Rheinland
Jörg

[Windows 10, Microsoft 365]
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste