Formeln kopieren
08.08.2005 06:31:18
Josef
Ich bekam gestern von Leo folgende VBA Lösung:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
If Target.Column = 7 And Target.Row > 1 Then
If Target.Count = 1 Then
r = Target.Row - 1
Application.EnableEvents = False
On Error GoTo ERRH
Range(Cells(r, 1), Cells(r, 6)).Copy Range(Cells(r + 1, 1), Cells(r + 1, 6))
Range(Cells(r, 8), Cells(r, 10)).Copy Range(Cells(r + 1, 8), Cells(r + 1, 10))
End If
End If
ERRH:
Application.EnableEvents = True
End Sub
Mit diesem Makro werden auf dem aktiven Arbeitsblatt (z.B. Tabelle1) bei Eingabe in Spalte G die Formeln von der Zeile davor in die nächste Zeile kopiert.
Was und wo müßte ich bitte bei diesem Code ändern, wenn nicht nur auf Tabelle1 sondern auch z.B. in Tabelle2 oder in Tabelle3 die Formeln ebenso kopiert werden sollen?
Danke
Josef