Thema Datum  Von Nutzer Rating
Antwort
Rot For Each Schleife
07.08.2016 17:52:40 Web52
NotSolved
07.08.2016 18:39:44 Crazy Tom
Solved
07.08.2016 19:15:54 Gast26513
NotSolved

Ansicht des Beitrags:
Von:
Web52
Datum:
07.08.2016 17:52:40
Views:
1042
Rating: Antwort:
  Ja
Thema:
For Each Schleife

Hy,

wieso bekomm ich bei dem Code immer Fehlermeldung nach dem alles so ausgeführt wurde wie ich es brauche...

 

'Paste & Copy
 Dim wr As Worksheet
  For Each wr In Worksheets
   wr.Range("A63:F63").Select
    wr.Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    wr.Range("F3").Select
    wr.Paste
    wr.Range("A63:G63").Select
    wr.Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete
    Application.CutCopyMode = False
 Next

 


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
Rot For Each Schleife
07.08.2016 17:52:40 Web52
NotSolved
07.08.2016 18:39:44 Crazy Tom
Solved
07.08.2016 19:15:54 Gast26513
NotSolved