Makro optimieren, aber wie ...
11.08.2006 10:43:25
Falk
untenstehendes Makro habe ich mir mehr schlecht als recht zusammen gebastelt. Es funktioniert auch prima, wirklich. Aber wirklich glücklich bin ich nicht, irgendwie habe ich so das Gefühl, es läuft langsam und man kann es auch bestimmt optimieren, aber wie, so gut bin ich nicht.
Also dieses Makro macht folgendes:
Zuerst geht es in das Blatt "Aufträge" dann kopiert es die Formeln die in den Zellen K15 bis AA15 steht und fügt diese in jede Zeile an gleicher Spaltenposition (also K16:AA16, K17:AA17, etc.)ein, in der auch in der Spalte A ein Wert steht. Die Spalten A bis J werden über eine SQL Abfrage befüllt, allerdings sind nach jeder SQL Abfrage die befüllten Zeilen unterschiedlich und ich benötige die Formeln von K:AA in jeder Zeile.
Vielleicht gibt es ja auch noch einen anderen Weg.
Danke für Eure Hilfe im voraus ...
Grüße
Falk
Sub Makro()
Sheets("Aufträge").Select
Range("K15").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Range("a14").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 10).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(0, -10).Select
Loop
End Sub