erichq
07-14-2010, 08:31 AM
Hi,
I am looking for a way to copy&paste special a range of cell, which is not adjacent.
The Sub below does exactly, what I want to achieve, but works extremely slow. Is there a way to speed that up?
Cheers,
erichq
Sub Fix_Bloomberg(Blatt_name)
Application.ScreenUpdating = False
Dim Zelle As Range
Dim FoundRange As Range
Blatt_name.Select
Set FoundRange = Find_Range("bd", Range("A1:CZ1000"))
If Not FoundRange Is Nothing Then
For Each Zelle In FoundRange
Zelle.Copy
Zelle.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Next Zelle
End If
Application.ScreenUpdating = True
End Sub
I am looking for a way to copy&paste special a range of cell, which is not adjacent.
The Sub below does exactly, what I want to achieve, but works extremely slow. Is there a way to speed that up?
Cheers,
erichq
Sub Fix_Bloomberg(Blatt_name)
Application.ScreenUpdating = False
Dim Zelle As Range
Dim FoundRange As Range
Blatt_name.Select
Set FoundRange = Find_Range("bd", Range("A1:CZ1000"))
If Not FoundRange Is Nothing Then
For Each Zelle In FoundRange
Zelle.Copy
Zelle.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Next Zelle
End If
Application.ScreenUpdating = True
End Sub