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
|