Also. Ich habe ne Tabelle mit etwa 2400 Zeilen.
In der einen Spalte gibt es in jeder 8 Zeile eine Summenformel.
Beginnend bei H9. Unter der Summe wird eine Formel eingefügt.
Die nächsten 6 Zellen sollen gelöscht werden. Das wiederholt
sich dann zig mal.
Mein Makro sieht, da ich ein Anfänger bin, so aus.
Range("H10:H16").Select
Selection.ClearContents
Range("H18:H24").Select
Selection.ClearContents
Range("H26:H32").Select
Selection.ClearContents
Range("H34:H40").Select
Selection.ClearContents
Range("H42:H48").Select
usw...
und danach wird das ausgeführt. Ich kopiere die Formel in die Zelle unter der Summe...
Range("H10").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(R[-1]C[-5],Kundendaten!R4C1:R2000C2,2,FALSE)),"""",
VLOOKUP(R[-1]C[-5],Kundendaten!R4C1:R2000C2,2,FALSE))"
Range("H10").Select
Selection.Copy
Range("H18").Select
ActiveSheet.Paste
Range("H26").Select
ActiveSheet.Paste
usw...
Der Quellcode ist dementsprechend sehr sehr lang.
Kann ich da irgendwas anders machen, was den Quellcode kürzt?
Danke im Vorraus
Jeff