permanent übertragen
26.04.2006 14:49:55
Andre´
ich möchte mit einem Makro erreichen,dass permanent das was in einer Zelle von Spalte H errechnet wird auch in Spalte C steht. Mit dem untenstehenden Code muss ich mit Esc abbrechen.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
For Each rng In Range("C2:C30" & Range("H30").End(xlUp).Offset(1, 1))
If rng.Offset(0, 5) > "" Then rng = rng.Offset(0, 5)
Next rng
End Sub
Was fehlt in dem Code!
Danke im voraus!
Andre
Anzeige