Workbook_change funktioniert nicht
Stefan
ich habe folgendes Problem, ich hoffe Ihr könnt helfen.
Ich habe ein Sheet, die Zellen in einem Bereich 1 (B1) darin sind verlinkt mit einer _
externen Datenquelle. Wenn sich ein Wert in diesem Bereich ändert, dann soll er woanders in _ Bereich 2 (B2) kopiert werden. So soll eine Liste aud Zahlen entstehen. Das ganze habe ich versucht so zu lösen:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim PreisRaw2 As Long, i As Single, j As Single
PreisRaw2 = Cells(Rows.Count, 12).End(xlUp).Row
If Intersect(Target, Range(Cells(7, 6), Cells(27, 6))) Is Nothing Then
Exit Sub
Else
i = Target.Row
j = Target.Column
If Cells(i, j).Value 0 Then
Cells(PreisRaw2 + 1, 9).Value = Cells(i, 2).Value
Range(Cells(PreisRaw2 + 1, 10), Cells(PreisRaw2 + 1, 12)).Value = Range(Cells(i, 4), _
Cells(i, 6)).Value
Else
End If
End If
End Sub
Wenn sich ein Wert im B1 (Cells(7, 6), Cells(27, 6)) ändert, soll er in B2 (Cells(PreisRaw2 + 1, 10), Cells(PreisRaw2 + 1, 12)) im Sheet kopiert werden.
Es funktioniert nur, wenn ich selber eine Zahl in B1 eintippe. Aber da die Zellen in B1 mit der externen Quelle verlinkt sind, sehe ich zwar wie sich der Wert in B1 ändert, er wird aber nicht in B2 kopiert.
Fällt Euch was ein?
Vielen Dank und schöne Grüße
Stefan
Anzeige