Ohne Worksheet_Change Ereignis
29.08.2008 12:48:33
Josef
mit folgendem Code wurden bei der Eingabe an der nächsten freien Zelle in der Spalte A die Formeln aus der vorigen Zeile in die freien Zellen der Spalten 51 bis 61 kopiert.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
Dim TB3
Set TB3 = Workbooks("Stellenpläne.xls").Sheets("Tabelle1")
If Target.Column = 1 And Target.Row > 2 Then
If Target.Count = 1 Then
r = Target.Row - 1
Application.EnableEvents = False
On Error GoTo ERRH
Range(Cells(r, 52), Cells(r, 61)).Copy _
Range(Cells(r + 1, 52), Cells(r + 1, 61))
End If
End If
ERRH:
Application.EnableEvents = True
End Sub
Ich möchte den Code jedoch nicht über das Worksheet_Change Ereignis ablaufen lassen, sondern mittels CommandButton.
Wie und wo müßte man bitte den Code hier verändern?
Danke
Josef