Für Nachtschwärmer: Auswertung von Bereichen
26.01.2006 00:17:01
Bereichen
ich möchte die Bereiche C17:C47, U17:U47, AB17:AB47 der letzten 40 Blätter meiner Datei in eine neue Datei "Auswertung" oder neues Blatt der gleichen Datei kopieren um sie besser auswerten zu können. Die Bereiche sollen jeweils nebeneinander angeordnet werden, so dass ich noch eine Überschschrift drüber schreiben kann.
Diesen Code habe ich im Forum gefunden und habe versucht ihn umzuschreiben.
Das ging voll in die Hose und meine Nerven liegen Blank, abgesehen von der Zeit, die bis jetzt draufging.
Dieser Code kopiert leider nur A1 aller Blätter untereinander.
Sub A1Untereinander()
Dim wb As Workbook
Dim sh As Worksheet, sh2 As Worksheet
Dim z As Integer
Set wb = ActiveWorkbook
Workbooks.Add
Set sh = ActiveSheet
For Each sh2 In wb.Worksheets
z = z + 1
sh.Cells(z, 1) = sh2.Range("A1")
Next sh2
End Sub
Kann das jemand umschreiben/neuschreiben
Danke Joachim
(sorry ich bin Platt und schau morgen nach, was draus geworden ist)