Thema Datum  Von Nutzer Rating
Antwort
27.05.2013 20:37:49 weigi
NotSolved
Blau copy range for each worksheet
 27.05.2013 21:48:44 Gast65600
NotSolved
27.05.2013 22:35:34 Gast64272
NotSolved
27.05.2013 22:36:04 Gast51013
NotSolved

Ansicht des Beitrags:
Von:
Gast65600		 Datum:
27.05.2013 21:48:44		 Views:
900		 Rating:
     
Antwort:
  Ja
Thema:
copy range for each worksheet

Hallo ich habe nun hinbekommen es zu kopieren jedoch immer in die gleiche Zelle somit werden alle werte überschreiben und der letzte bleibt dann erhalten
 

Sub Makro1()

Dim ws As Worksheet

  For Each ws In ActiveWorkbook.Worksheets
   ws.Range("E6").Copy
    Sheets("Ergebnisse").Select
    Range("H4").Select
    ActiveSheet.Paste Link:=True
    Next ws
End Sub

Vlt wei jemand wie ich das Ziel  Variabel mache? 

hoffe es kann mir jemand Helfen
lg
weigi

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
27.05.2013 20:37:49 weigi
NotSolved
Blau copy range for each worksheet
 27.05.2013 21:48:44 Gast65600
NotSolved
27.05.2013 22:35:34 Gast64272
NotSolved
27.05.2013 22:36:04 Gast51013
NotSolved