Zellen mit Inhalt übertragen
12.08.2002 09:04:44
Rolf St.
Ich möchte nur Zellen aus Spalte Z, mit Zahlen nach Spalte C übertragen.
- Es sollen keine Zellen ohne Inhalt nach C übertragen werden.
- Es sollen keine Formeln nach C übertragen werden.
- Es sollen nur Werte übertragen werden.
Vielleicht könnt ihr mir dieses Makro umbauen?
Sub Werteübertragen()
Application.ScreenUpdating = True
Range("Z3:Z1000").Select
Selection.Copy
ActiveWindow.LargeScroll ToRight:=-2
Range("C3:C1000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.LargeScroll ToRight:=2
Application.ScreenUpdating = True
Range("C3").Select
End Sub
Viellen Dank für eure Hilfe!
Tschüß
Rolf
Anzeige