Hallo zusammen,
ich habe ein Makro geschrieben, dass mir die Inhalte einer Spalte, welche mit einer Formel berechnet werden, kopieren und einfügen soll, wenn in der zweiten Zeile der Spalte ein Wert eingetragen ist:
Sub Kopieren()
Dim spalte As Long
For spalte = 10 To 93
For i = 1 To 100
If Cells(2, spalte).Value <> "" Then
Worksheets("Tabelle1").Cells(i, spalte).Copy
Worksheets("Tabelle1").Cells(i, spalte).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
Next i
Next spalte
End Sub
Das Makro funktioniert auch, ist allerdings sehr rechenintensiv. Gibt es hier einen eleganteren Weg, um die Berecnung zu beschleunigen?
Kann ich die Zeilenbetrachtung i= 1 to 100 unbegrenzt definieren?
Vielen Dank.
|