Zellenbereich anstatt Zelle
22.11.2004 15:58:27
giovanni
dieses tolle Makro erstellt mir auf eigenen Blatt ein Inhaltsverzeichnis
mit Blattname,Überschrift und Datenteil der einzelnen Mappen.
Problem: Datenteil umfasst 50 Zellen und dieses Makro kopiert diese Zellen
einzeln. Wie kann ich es anstellen, dass Datenteil in einmal kopiert wird,
da alle Zellen nebeneinander. von 1-3 bis 1-39.
Funktionieren tuts derzeit, aber es dauert....
Besten Dank
gio
Sub MappenInhaltZusammenstellen()
Dim Tabelle As Worksheet
Dim I As Integer
ActiveSheet.Name = "Tabelle"
I = 4
For Each Tabelle In ActiveWorkbook.Worksheets
If Tabelle.Name <> "Tabelle" Then
Cells(I, 2).Value = Tabelle.Name
Tabelle.Hyperlinks.Add Anchor:=Cells(I, 2), _
Address:="", SubAddress:=Tabelle.Name & _
"!A1", ScreenTip:="Hyperlink klicken", _
TextToDisplay:=Tabelle.Name
Cells(I, 3).Value = Tabelle.Cells(3, 3).Value
AB HIER DATENTEIL
Cells(I, 4).Value = Tabelle.Cells(1, 3).Value
Cells(I, 5).Value = Tabelle.Cells(1, 4).Value
Cells(I, 6).Value = Tabelle.Cells(1, 5).Value
Cells(I, 7).Value = Tabelle.Cells(1, 6).Value
Cells(I, 8).Value = Tabelle.Cells(1, 7).Value
Cells(I, 9).Value = Tabelle.Cells(1, 8).Value
Cells(I, 10).Value = Tabelle.Cells(1, 9).Value
Cells(I, 11).Value = Tabelle.Cells(1, 10).Value
Cells(I, 12).Value = Tabelle.Cells(1, 11).Value
Cells(I, 13).Value = Tabelle.Cells(1, 12).Value
Cells(I, 14).Value = Tabelle.Cells(1, 13).Value
Cells(I, 40).Value = Tabelle.Cells(1, 39).Value
I = I + 1
End If
Next Tabelle
End Sub