Thema Datum  Von Nutzer Rating
Antwort
16.03.2021 15:04:46 Leo
Solved
Blau Copy/Paste
 17.03.2021 10:56:08 volti
NotSolved
17.03.2021 11:16:56 Leo
Solved
17.03.2021 11:55:08 volti
NotSolved
17.03.2021 14:21:32 Gast6421
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
17.03.2021 10:56:08		 Views:
147		 Rating:
     
Antwort:
  Ja
Thema:
Copy/Paste

Hallo Leo,

ohne Beispieldatei kann ich Deinen Code nicht richtig nachvollziehen...

Aber wenn Du nur Werte übernehmen möchtest, kannst Du das auch direkt übernehmen. Ausserdem solltest Du, wo immer es geht auf Activate und Select verzichten.

Teste mal:

Code:
1
2
3
4		  
With Sheets("Positionen")
    Sheets("Ladeliste").Range("A1").Resize(x - i - 2, 4).Value = _
    .Range(.Cells(i, 1), .Cells(x - 3, 4)).Value
End With
_________
viele Grüße
Karl-Heinz

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
16.03.2021 15:04:46 Leo
Solved
Blau Copy/Paste
 17.03.2021 10:56:08 volti
NotSolved
17.03.2021 11:16:56 Leo
Solved
17.03.2021 11:55:08 volti
NotSolved
17.03.2021 14:21:32 Gast6421
NotSolved