Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Erneuern einer Zelle

Erneuern einer Zelle
19.03.2015 11:39:44
Jan
Hallo zusammen,
ich stehe vor folgendem Probelm: Ich habe zwei Zellen die nach unterschiedlichen Änderungen mir einen Wert generieren (z.B. Zelle A1 und A2). Nun möchte ich, das mir eine dritte Zelle (z.B. A3) den zu letzt aktualisieren werd wiedergibt.
In Praxis:
A1 = 123
A2 = ""
A3 = 123
wenn ich nun etwas in A2 schreibe soll A3 diesen Wert wiedergeben
A1 = 123
A2 = 321
A3 = 321
dies könnte ich noch mit einer WENN()-Formel lösen, allerdings möchte ich nun wenn ich A1 wieder aktualisiere, dann A3 dann A1 übernimmt, quasi immer den zu letzt veränderten Wert aus A1 bzw. A2
A1 = 456
A2 = 321
A3 = 345
Gibt es hier eine clevere Lösung mit Formeln oder muss ich auf ein Makro zurückgreifen?

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erneuern einer Zelle
19.03.2015 11:43:34
nike
Hi,
das wird nur über ein marko gehen, Stichwort: Worksheet_Change
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
CU
Nike

AW: Erneuern einer Zelle
19.03.2015 11:49:01
Jan
Hallo Nike,
hast du da eine Idee? Ich steh leider vollkommen auf dem Schlach wie ich das Makro schreiben soll.
Gruß und Danke im Voraus

OT @Nike
20.03.2015 00:12:15
Uduuh
Hallo,
du bist doch wohl nicht der Nike, der Anfang des Jahrtausends hier aktiv war, oder?
Gruß aus’m Pott
Udo

AW: Erneuern einer Zelle
19.03.2015 11:47:00
Hajo_Zi
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Or Target.Address(0, 0) = "A2" Then
Application.EnableEvents = False
Range("A3") = Target
Application.EnableEvents = True
End If
End Sub

Anzeige
AW: Erneuern einer Zelle
19.03.2015 12:00:36
Jan
Danke sehr!
Hat super geklappt :-)

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige