Multiplizieren mit 1
30.08.2005 15:08:47
Detlef
Hier mein Code:
Sub saptabellemaleins()
Dim iRow As Integer
Range("AA1").Select
Selection.Copy
iRow = ActiveSheet.Cells(Cells(Rows.Count, "e").End(xlUp).Row, 1).Row
ActiveSheet.Range(Cells(1, "e"), Cells(iRow, "m")).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
End Sub
Frage: Ich will dieses Range... und Selection.copy raus haben und direkt im Code sagen "Multipliziere mir die Auswahl mit 1" ohne das ich erste eine Zelle Kopieren muß.
Für manchen von Euch bestimmt eine einfache Sache.
Danke im Voraus
Gruß Detlef
Anzeige