Thema Datum  Von Nutzer Rating
Antwort
Rot Mehrere Zellen aus verschd. Tabellenblättern in Einem zusammenfügen
 24.05.2017 17:56:31 Maria
Solved
24.05.2017 19:54:49 Werner
*****
Solved
25.05.2017 01:31:43 Gast31916
Solved
25.05.2017 08:40:32 Werner
Solved

Ansicht des Beitrags:
Von:
Maria		 Datum:
24.05.2017 17:56:31		 Views:
1180		 Rating:
     
Antwort:
 Nein
Thema:
Mehrere Zellen aus verschd. Tabellenblättern in Einem zusammenfügen		 
Hallo Zusammen,

ich habe eine Excel mit meheren Tabellenblättern, die CRXXXX heißen und würde daraus gerne bestimmte Zellen in das Tabellenblatt 
Auswertung kopieren. Die Zellen aus einem Blatt sollen in "Auswertung" nebeneinander eingefügt werden und für jedes weitere Blatt 
soll er in eine neue Zeile gehen. Die Wahl auf Range ist gefallen, da es im CR-Blatt auch verbunden Zellen gibt.

Wie kann ich den Code umschreiben,dass er sich auf alle CR-Tabellenblätter bezieht?

Das ist der bisherige Code mit Bezug auf eines dieser Tabellenblätter:
______________________________________________________________________________________________________________
Dim wsA As Worksheet

Set wsA = Sheets("Auswertung")
Set wsC = Sheets("CR17897")

Dim Zelle As Range
Dim Zaehler As Integer
Zaehler = 1

For Each Zelle In wsC.Range("A2:C2")
 wsA.Cells(7, Zaehler) = Zelle
 Zaehler = Zaehler + 1
Next Zelle

For Each Zelle In wsC.Range("D2:F2")
 wsA.Cells(7, Zaehler) = Zelle
 Zaehler = Zaehler + 1
Next Zelle


End Sub
_____________________________________

Ich hoffe ihr könnt mir weiterhelfen.

Danke und Grüße 
Maria

 

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 Mehrere Zellen aus verschd. Tabellenblättern in Einem zusammenfügen
 24.05.2017 17:56:31 Maria
Solved
24.05.2017 19:54:49 Werner
*****
Solved
25.05.2017 01:31:43 Gast31916
Solved
25.05.2017 08:40:32 Werner
Solved