Thema Datum  Von Nutzer Rating
Antwort
Rot copy range for each worksheet
 27.05.2013 20:37:49 weigi
NotSolved
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:
weigi		 Datum:
27.05.2013 20:37:49		 Views:
1510		 Rating:
     
Antwort:
  Ja
Thema:
copy range for each worksheet

Hallo
Ich habe folgendes Problem ich habe eine excel Dateil mit sehr vielen Tabellen   Ich möchte nun aus jeder  Tabelle  einen Wert in die Tabelle 1 kopieren so dass alle kopierten Werte in einer Spalte unter einander stehen

Ich habe so gedacht aber es funktioniert irgednwie nciht
 

Sub Test()

Dim ws As Worksheet
Dim intCounter As Integer
     
  For Each ws In ActiveWorkbook.Worksheets
intCounter = intCounter + 1

ws.Range("E6").Select
ws.Selection.Copy
Sheets("Ergebnisse").Select
Range("HintCounter").Select
ActiveSheet.Paste Link:=True
ActiveSheet.Paste
Application.CutCopyMode = False
Range("HintCounter").Select

Next ws
End Sub

Ich hoffe es kann mir jemand helfen
vielen Dank
lg
Tobias

 

 

 

 

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