ich habe ein kleines Problem. Und zwar möchte ich mehrere Zellen einer Reihe (teilweise mit Formeln), (F8:AL8), in die darunter liegenden Zellen kopieren lassen, aber nur, wenn in der dazugehörigen Zelle ab D11 ein Wert steht. Das funktioniert auch soweit, allerdings relativ langsam. Kann man hier noch optimieren?
Sub Kopieren()
Dim Zeile As Integer
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
With ThisWorkbook.Worksheets("Tabelle1")
For Zeile = 11 To 200
If Range("D" & Zeile).Value "" Then
Range("F8:AL8").Copy
Range("F" & Zeile).PasteSpecial Paste:=xlPasteAll
End If
Next Zeile
End With
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
.CutCopyMode = False
End With
Range("b11").Select
End Sub
Danke für Rückmeldung