Hilfe bei VBA Code zum Kopieren von Formeln
04.02.2013 16:25:48
Formeln
Ich habe ein relative Grosses Excel Workbook mit mehreren Blättern. In einem Blatt "LF Tabelle" mache ich eine SQL Abfrage um Daten zu Laden. Die geladenen Daten füllen die Spalten A bis E. Mit den Daten berechne ich ettliche Kennzahlen in den Spalten F bis AF. Nun kommen pro Tag ca. 200 neue Einträge zur SQL Datenbank dazu. Mit einem Button kann ich die Daten im Blatt "LF Tabelle" updaten. Nun möchte ich nicht jedes Mal die ganzen Formeln kopieren, sobald die Daten erneuert werden. Ich habe ein Makro geschrieben welches die Formeln automatisch nach unten kopieren soll. Leider macht es das nicht.
Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RowA As Long, RowF As Long
On Error GoTo ErrorHandling
If Target.Column = 1 Then
RowA = [A65536].End(xlUp).Row
RowF = [F65536].End(xlUp).Row
If RowA > RowE Then
Range(Cells(RowF, 6), Cells(RowF, 32)).AutoFill Destination:= _
Range(Cells(RowF, 6), Cells(RowA, 32)), Type:=xlFillDefault
End If
End If
Exit Sub
ErrorHandling: MsgBox "Fehler!"
Resume Next
End Sub
Den Code habe ich im VBA bei Tabelle5(LF Tabelle) eingefügt. Leider gibt das immer ein Error bei der ersten Zeile.
Ich möchte den Code nur in dem Blatt "LF Tabelle" aktiv haben.
Weiss jemand von euch wie ich den Code anpassen muss?
Danke vielmals!
Daniel