Bin Anfaenger und hab´nur ne kurze Frage. Sicherlich dauert es nur knapp 20 Sekunden fuer euch:
Wie wuerde ich das hier ohne "selection" schreiben?:
Range("D" & i).Select
Selection.Copy
Sheets("Investitionen").Select
Range("C6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Worksheets("Report").range("D" & i).copy destination= Worksheets("Investitionen").range("C6")_
.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sieht etwas viel aus? Wie ist es richtig?
Gruesse
Olli