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

Ansicht des Beitrags:
Von:
Crazy Tom		 Datum:
07.08.2016 18:39:44		 Views:
607		 Rating:
     
Antwort:
 Nein
Thema:
For Each Schleife

Hi

du musst nach der ersten Ausführung erst das nächste "wr" selectieren

Sub test()
'Paste & Copy
    Dim wr As Worksheet
    For Each wr In ThisWorkbook.Worksheets
        wr.Select
        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
End Sub

MfG Tom

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