Zellaktivierung per vba

Nabend,
vorhin hatte mir Franz (fcs) netterweise einen Code zur Verfügung gestellt, der soweit auch genau das umsetzt, was ich wollte. Nur leider erst, nach aktiver Zelleingabe in Zelle H10. In der eigentlichen Datei ist die Zelle H10 aber mit einer WENN Formel hinterlegt. Kann mir jemand helfen, den vorhandenen Code so umzustricken, dass es auch bei nicht aktiver Eingabe hinhaut?


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Zeile As Long, strFormel As String, Zelle As Range, ws As Worksheet
Set ws = Worksheets("Tabelle2")
If Not Intersect(Target, Range("E10:P10")) Is Nothing _
And Target.Cells.Count = 1 Then
If LCase(Target.Value) = "ist" Then
If MsgBox("Sollen die Werte in Spalte " & Target.Column _
& " (" & Chr$(Target.Column + 64) & ") durch die Formel ersetzt werden?", _
vbQuestion + vbYesNo) = vbYes Then
'Wert durch Formel ersetzen für Zeilen mit Eintrag in Spalte 4 eintragen
For Zeile = Target.Row + 2 To Cells(Rows.Count, 4).End(xlUp).Row
If Not IsEmpty(Cells(Zeile, Target.Column)) Then
'Zelle mit dem Namen im Blatt 2 suchen
Set Zelle = ws.Columns.Find(What:=Me.Cells(Zeile, 4).Value, LookIn:=xlValues, _
lookat:=xlWhole)
If Not Zelle Is Nothing Then
strFormel = "='" & ws.Name & "'!R" & Zelle.Row & "C" & Zelle.Column + _
Target.Column - 4
Cells(Zeile, Target.Column).FormulaR1C1 = strFormel
Else
Cells(Zeile, Target.Column).Value = "kein Wert"
End If
End If
Next
End If
End If
End If
End Sub

Die Datei https://www.herber.de/bbs/user/50585.xls wurde aus Datenschutzgründen gelöscht

wossi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
erstmal: der Link zur Datei funktioniert nicht mehr
das Worksheet_Change-Event wird immer dann aufgerufen, wenn ein Zellinhalt geändert wird.
Ändert sich jetzt der Wert einer Zelle, die eine Formel hat (durch neuberechnung), dann wird das Worksheet_Change-Event nicht aktiviert, weil sich der inhalt der Zelle, dh. die Formel nicht gändert hat.
wenn das Makro jedesmal laufen soll, wenn die sich die Zellwerte ändern, musst du anstelle des Worksheet_Change - Events das Worksheet-_Calculate - Event verwenden, dh. du musst die erste Zeile so schreiben:


Private Sub Worksheet_Calculate()
End Sub

allerdings müsstest du das Makro dazu vollständig umschreiben, weil es keine TARGEGT-Variable mehr gibt und du auch nicht so einfach feststellen kannst, welche Zellen sich geändert haben.
Dazu wäre allerdigs schon ne Beispieldatei mit den korrekten Formeln erforderlich.
ne Alternatvie wäre auch, daß du nicht die Zellen mit den Formeln prüfst, sondern diejnigen Zellen, die in diesen Formeln referenziert werden und so die Veränderung hervorrufen.
aber auch hierfür wäre eine komplette Umprogrammierung erforderlich, da du dann die TARGET-Variable auch nicht mehr verwenden kannst.
Gruß, Daniel

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Zeile As Long, strFormel As String, Zelle As Range, ws As Worksheet Set ws = Worksheets("Tabelle2") If Not Intersect(Target, Range("E9:P10")) Is Nothing _ And Target.Cells.Count = 1 Then If LCase(Cells(10, Target.Column).Value) = "ist" Then If MsgBox("Sollen die Werte in Spalte " & Target.Column _ & " (" & Chr$(Target.Column + 64) & ") durch die Formel ersetzt werden?", _ vbQuestion + vbYesNo) = vbYes Then 'Wert durch Formel ersetzen für Zeilen mit Eintrag in Spalte 4 eintragen For Zeile = Target.Row + 2 To Cells(Rows.Count, 4).End(xlUp).Row If Not IsEmpty(Cells(Zeile, Target.Column)) Then 'Zelle mit dem Namen im Blatt 2 suchen Set Zelle = ws.Columns.Find(What:=Me.Cells(Zeile, 4).Value, LookIn:=xlValues, _ lookat:=xlWhole) If Not Zelle Is Nothing Then strFormel = "='" & ws.Name & "'!R" & Zelle.Row & "C" & Zelle.Column + _ Target.Column - 4 Cells(Zeile, Target.Column).FormulaR1C1 = strFormel Else Cells(Zeile, Target.Column).Value = "kein Wert" End If End If Next End If End If End If End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread