best.Zellinhalte aus einem in alle anderen Blätter
17.08.2003 14:40:39
Norman Bolay
Seit ein paar Monaten arbeite ich dank diesem Forum (und Nepumuks aktiver Hilfe) mit folgendem VBA-Makro:
Public
Sub Verteilen()
Dim Zeile As Long, Spalte As Integer, Ausgabespalte As Integer, Ausgabezeile As Integer
Application.ScreenUpdating = False
With Worksheets("Übersicht")
For Spalte = 3 To .Cells(1, 256).End(xlToLeft).Column
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Nr" & CStr(Spalte - 2)
Ausgabespalte = 3
Ausgabezeile = 10
For Zeile = 1 To .Cells(65536, Spalte).End(xlUp).Row Step 52
Range(Cells(Ausgabezeile, Ausgabespalte), Cells(Ausgabezeile + 51, Ausgabespalte)) = .Range(.Cells(Zeile, Spalte), .Cells(Zeile + 51, Spalte)).Value
Ausgabespalte = Ausgabespalte + 3
Ausgabezeile = 22
Next
Next
End With
Application.ScreenUpdating = True
End Sub
Das Ding funktioniert prima. Es erzeugt aus dem Arbeitsblatt Übersicht neue Tabellenblätter, die jeweils nur die Daten aus einer Spalte von Übersicht enthalten (in aufsteigender Reihenfolge), außerdem nummeriert es die so generierten Arbeitsblätter auch noch vollautomatisch.
Nun meine Frage:
Kann ich in die durch das Makro geschaffenen Arbeitsblätter auch noch automatisch den Text aus bestimmten Bereichen der Übersicht eintragen lassen?
Die Bereiche dazu wären wie folgt:
1. Aus Übersicht soll Spalte A / Zeile 1-8 in allen folgenden Arbeitsblättern im Bereich: Spalte A / Zeile 10-17 erscheinen
2. Aus Übersicht soll ferner Spalte A-B und Zeile 13-Ende in allen folgenden Arbeitsblättern im Bereich Spalte A-B / Zeile 22-Ende erscheinen.
Wisst Ihr Rat?
Besten Dank für Eure Hilfe.
cu
Norman.