Makro von 2003 auf 2010 anpassen.
13.03.2013 17:35:01
2003
Folgender Code lief bei Excel 2003 problemlos.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RowA As Long, RowB As Long
If Target.Column = 1 Then
RowA = [A65536].End(xlUp).Row
RowB = [B65536].End(xlUp).Row
'nur wenn in Spalte A mehr Einträge sind
If RowA > RowB Then
Range(Cells(RowB, 2), Cells(RowB, 100)).AutoFill Destination:= _
Range(Cells(RowB, 2), Cells(RowA, 100)), Type:=xlFillDefault
End If
End If
End Sub
Nach dem Umstieg auf
Excel 2010 meldet es bei RowA = [A65536].End(xlUp).Row
einen Fehler , da es mit der Zeilennummer nichts anfangen kann.
Wie muss ich den Code anpassen, damit Excel 2010 ihn akzeptiert?
Anzeige