cells, ranges und rechnen damit
20.11.2002 16:23:14
Diedrix
ich hab ein problemchen.
If Target = Range("B9") Then
Sheets("SC-Cockpit").Select
a = ActiveSheet.Cells(9, 1).Formula
Sheets("Monatschart").Select
ActiveSheet.Cells(5, 1).Formula = a
Else
End If
Dieser Code funzt, aber ich möchte ihn automatisieren.
Ausser B9, soll auch B11, B13,... von mir aus auch alle B:B ebenfalls sensitiv sein. Der zu übertragene Wert steht immer in derselben Zeile ein Feld weiter links. Das Ziel-Feld bleibt immer gleich!
Kennt jemand einen Trick?
Gruss
Diedrix