[Excel]Verknüpfung auflösen und Wert behalten

PCDjoe · 27.03.2006

Ola,

an alle von Paula

Hallo,
vieleicht kannst du mir helfen!!!
Ich möchte gerne in einer exeltabelle in einer zell z.B. a1 etwas eintragen, in der zelle z.B. d1 soll dies ergebnis erscheinen, wenn ich a1 lösch soll die angabe in d1 erhalten bleiben!!
Für Deine Bemühungen im voraus vielen Dank
Paula

mir fällt grad nix dazu ein

Matjes · 27.03.2006

Hallo zusammen,

der folgende Makro in der Code-Seite des Tabellen-Blattes bewirkt das Gewünschte.

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  
  Dim Zelle As Range
  
  For Each Zelle In Target
    If Zelle.Address(False, False) = A1 Then
     ->Wenn A1 geändert wurde und nicht leer ist, Wert in D1 übernehmen
      If Zelle.Value &lt;>  Then Range(D1).Value = Zelle.Value
    End If
  Next
  Set Zelle = Nothing

End Sub

Zur Code-Seite des Tabellen-Blattes gelangt man am einfachsten,
in dem man die Blattlasche mit rechter Maustaste anklickt und im sich öffnenden Kontextmenü->Code anzeigen' wählt.

Gruß Matjes

argoos · 28.03.2006

Hallo,

noch eine Möglichkeit:

=WENN(A1>0;A1;D1)

Durch diese Formel entsteht aber ein Zirkelbezug.

Den kann man im Menü -Extras -> Optionen -> Berechnung- auflösen.

-Haken bei Iteration Setzen
-Maximale Iterationszahl =1
-Maximale Änderung =1

Die beiden Einerwerte dürften für diese Operation reichen, zumindest habe ich nichts gegenteiliges bemerkt.

paula09 · 28.03.2006

hey, danke hat mir weiter geholfen!!!!!!!!

[Excel]Verknüpfung auflösen und Wert behalten

PCDjoe

Matjes

argoos

paula09

[Excel]Verknüpfung auflösen und Wert behalten

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums