Collapse column

Autor Thema: Verlinkte Zelle ändern  (Gelesen 559 mal)

Offline LHdreamliner787

  • Newbie
  • *
  • Beiträge: 1
    • Profil anzeigen
  • Office-KnowHow: Amateur
  • VBA-KnowHow- : Ohne
  • Version [Office] : Office 2016
Verlinkte Zelle ändern
« am: Oktober 25, 2016, 09:27:23 Vormittag »
Hallo,

Wie kann ich erreichen, dass sich Zelle A2 aus A1 bedient und ich dennoch den Wert in A1 und A2 abändern kann, ohne den Bezug zu zerstören.

Es soll also immer gelten:
A1=x
A2=A1

und wenn ich A1 zu y abändern will, soll dies sowohl in A1, als auch in A2 gemacht werden können.

Ich wäre über Hilfe sehr dankbar.

Vielen Dank
lg

Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden und Dein Anliegen in Auftrag geben.
>>> Schnell und einfach ein unverbindliches Angebot anfordern. Per E-Mail an anfrage@excel-inside.de oder per Online-Formular
<<<

!!! Wichtige Information
!!! Dieses Forum steht aus technischen Gründen ab dem 11. September 2019 nur noch im Lesemodus zur Verfügung.
Das NEUE Office-Fragen-Forum kannst du aber unter der gewohnten Domain https://office-fragen.de wie gewohnt nutzen.

- Wir freuen uns auf deinen Besuch im neuen Forum.

Offline maninweb

  • Global Moderator
  • Hero Member
  • *****
  • Beiträge: 1.063
    • Profil anzeigen
    • Excel Formula Translator
  • Office-KnowHow: Experte
  • VBA-KnowHow- : Sehr gut
  • Version [Office] : Office 2016
Antw: Verlinkte Zelle ändern
« Antwort #1 am: Oktober 25, 2016, 11:29:13 Vormittag »
Hallo,

wenn Du A2 nicht manuell änderst und in A2 die Formel =A1 steht, ändert sich A2 automatisch, wenn A1 geändert wird.
Was aber nicht mit Excel-Bordmitteln geht, ist A2 zu ändern ohne den Bezug zur Formel zu verlieren.
Da kannst Du nur ein Makro nutzen, z.b. folgendes:

Code: Visual Basic
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.  
  3.   If Target.Column = 1 And Target.Row > 0 And Target.Row < 3 Then
  4.    
  5.     Application.EnableEvents = False
  6.    
  7.     ActiveSheet.Cells(1, 1).Value = Target.Value
  8.     ActiveSheet.Cells(2, 1).Value = Target.Value
  9.    
  10.     Application.EnableEvents = True
  11.    
  12.   End If
  13.  
  14. End Sub

Das Makro muss in das Codemodul der entsprechenden Tabelle.

Gruß
Microsoft Excel Expert · Microsoft Most Valuable Professional (MVP) from 01/2011 - 06/2019
https://de.excel-translator.de :: Online Excel-Formel-Übersetzer :: Alle Übersetzungen der Excel Funktionen & Fehlerwerte

Wenn du dich noch intensiver mit Excel beschäftigen möchtest, dann empfiehlt sich ein Online-Kurs,
in dem du sehr viel über Excel erfährst und das gelernte umgehend in der Praxis anwenden kannst.