AW: z.B.: ActiveCell.Offset(-1,0).Value o.T.
15.10.2007 10:34:00
Chaos
servus,
hier mal so was in der Art:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nanu As String
Dim nam As String
nam = Range("C1").Value
If Selection.Address Like "$A*:$A*" Then
Range("B:B").ClearContents
Range("A2").Select
Range("C1").Value = "$A$2"
Exit Sub
End If
If Not Intersect(Target, Range("A2:A10")) Is Nothing Then
If Target.Address = "$A$2" Then
Range("C1").Value = Target.Address
Target.Offset(0, 1).Value = Target.Value * 5
Else
Dim Übergabe As String
Übergabe = Range("C1").Value
Target.Offset(0, 1).Value = Range(Übergabe).Value * 5
nanu = Target.Address
Range("C1").Value = nanu
End If
End If
End Sub
Für Bereich A2:A10.
Funktioniert einwandfrei, wenn du keine Werte löschst (dann ist der Vorgänger natürlich nicht mehr bekannt). Wenn du schon löschst, dann alle.
A2 ist der Startwert, hier wird A2 * 5 genommen, alle anderen Werte sind dann Vorgängerzelle * 5.
Gruß
Chaos