AW: @fcs (Franz)
28.01.2011 01:49:31
fcs
Hallo Heike,
die Formel =Zeile()-1 wird beim Kopieren der Daten aus den Quellblättern kopiert.
Mit folgender Anpassung am Ende des Makros wird die Formel in Spalte A angepasst.
Application.ScreenUpdating = True
End With
With wksZiel
.Activate
'Formel für lfd. Nr in Spalte A anpassen
.Range(.Cells(Zeile1_ueb, 1), .Cells(ZeileEin - 1, 1)).FormulaR1C1 = "=ROW()-2"
End With
ActiveWorkbook.Save
Abbrechen:
Set wbQuelle = Nothing: Set wksQuelle = Nothing: Set rQuelle = Nothing
Set wksZiel = Nothing
End Sub
Die Leerzeile nach jeder Liste kann ich mir nicht erklären. Dieses Phänomen tritt bei meinen Testdateien nicht auf. Evtl. ist in den Einzellisten am Ende eine Zeile scheinbar ohne Daten. Zumindest müsste in Spalte A nach der letzten Zeilennummer irgendetwas in der Zelle stehen, so dass das Makro die letzte Datenzeile in Spalte A nicht korrekt berechnet.
Gruß
Franz