Office: selection.copy aufheben / "deaktivieren"

Hi. Habe ein kleines Problem, das für einen Experten bestimmt sehr einfach zu lösen ist. Vielen Dank schon mal...

In einer Excel-Tabelle werden Daten anhand versch. Bedingungen selektiert und in den Zwischenspeicher kopiert. Zweck: Flexible Weiterverarbeitung dieser Daten aus der Tabelle in anderen Progs wie Z.B. eMail, Word, etc.
Zum kopieren wird folgende Codezeile verwendet:

Range(Cells(XzeileStart, YspalteStart - 1), _
Cells(XzeileStart + XZeilenZähler - 1, YspalteStart + 4)).Select
Selection.Copy

Funktioniert auch wie geplant. *Smilie

So, nun zum "kleine" Problem: Bei "Rückkehr" zu Excel ist der Bereich immer noch zum kopieren selektiert. Hab auf die Schnelle z.B. Selection = Nothing probiert oder andere Zelle zu aktivieren, leider ohne Erfolg. Bereich bleibt immer selektiert.

Suche also VBA-Code mit dem Selektion z.B. zum kopieren aufgegoben wird.

Ist bestimmt wieder was ganz einfaches - momentan stehe ich etwas auf der Leitung...

Danke und Gruß
Marc

:)

 

hi Marc,
man muss nicht unbedingt selektieren um kopieren zu können

Range(Cells(XzeileStart, YspalteStart - 1), _
Cells(XzeileStart + XZeilenZähler - 1, YspalteStart + 4)).Copy

ist gleich viel hübscher ;-)

und dann füg mal diese zeile am ende ein und du wirst sehen: nix ist mehr selektiert

Application.CutCopyMode = False


cu Micha

 

Super - getestet u. funktioniert einwandfrei.
Hab ich mal wieder "den Wald vor lauter Bäumen nicht gesehen"... *wink.gif*
War mir schon klar dass es so was "simples" sein muss.

Vielen Dank für die schnelle Abhilfe.

 

Moin, Micha,

bei direkter Verwendung des Copy-Befehls ist die Anweisung Application.CutCopyMode = Fasle/True redundant.

 

hi jinx,
wenn du nur

Sub WhatCell()
Range(Cells(1, 1), Cells(3, 3)).Copy
End Sub

laufen lässt, ergibt sich dieser wunderhübsche gestrichelte rahmen um die ausgewählten zellen

erst wenn z.b.
Destination:=Range("E1")
angefügt wird verschwindet der rahmen

da ich nicht wusste welche aktionen Marc mit dem copy befehl starten wollte hat sich
Application.CutCopyMode = False
geradezu angeboten ;-)

cu Micha

 

hi jinx,
radio eriwan: im prinzip hast du natürlich vollkommen recht ;-)
aber jetzt werfen wir nocheinmal einen kurzen blick auf die eigentliche fragestellung:

cu Micha

postings verlieren natürlich ihren sinn wenn sie auf anderen postings basieren die zwischenzeitlich gelöscht wurden

 

Guten Morgen Zusammen,

was mach ich denn falsch, wenn der gestrichelte Rahmen doch nicht verschwindet? *Smilie

Mein Code:

Range("L2:T22").copy
ActiveSheet.Paste Destination:=Worksheets("Worksheetserstellung").Range("A2")
Range("T25:AA46").copy
ActiveSheet.Paste Destination:=Worksheets("Worksheetserstellung").Range("B25")
Range("A1:I1").Select


Problem ist nämlich, wenn nun direkt in Excel die Return Taste drücke, dann kopiert er mir den ausgewählten Bereich erneut. Das möchte ich aber verhindern.

Gruß
Alex