Thema Datum  Von Nutzer Rating
Antwort
Rot Worksheet_Change durch Formelberechnung
 02.11.2011 11:27:13 ma043
NotSolved
02.11.2011 19:07:00 Till
NotSolved

Ansicht des Beitrags:
Von:
ma043		 Datum:
02.11.2011 11:27:13		 Views:
1678		 Rating:
     
Antwort:
  Ja
Thema:
Worksheet_Change durch Formelberechnung

Moin liebe Helfer,

 

ich habe folgendes Problem. Und zwar habe ich einen Worksheet_Change geschrieben, welches auf Veränderungen in einer Zelle reagiert.

Z.B. steht in der Spalte A1 1000, wenn ich nun diesen Wert verändere und hier 1200 schreibe, übernimmt mein Excel in die Zelle B1 den alten Wert 1000.

So weit so gut.

Das Problem ist jedoch das dies nur dann funktioniert wenn ich da etwas eintippe, was mir natürlich nicht viel bringt. Ich will das dies auch dann funktioniert, wenn mein Wert in der Zelle A1 durch ein Formel sich verändert. Ist das zu schaffen ? Wenn ja wie ?

Mein Code sieht folgendermaßen aus:

Option Explicit
Dim alt
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count <> 1 Or Not IsNumeric(Target) Or Not IsNumeric(alt) Then Exit Sub
 If Target.Column = 25 And alt <> "" Then Cells(Target.Row, 26) = alt
 alt = ""
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
 If Target.Column = 25 Then alt = Target.Value 'liest erstmal aus
End Sub

Danke vorab!

LG

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Worksheet_Change durch Formelberechnung
 02.11.2011 11:27:13 ma043
NotSolved
02.11.2011 19:07:00 Till
NotSolved