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.