Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellenbereich anstatt Zelle

Zellenbereich anstatt Zelle
22.11.2004 15:58:27
giovanni
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellenbereich anstatt Zelle
22.11.2004 17:29:11
Josef
Hallo Giovanni!
Versuch's mal so.

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
Range(Cells(I, 4), Cells(I, 40)).Value = _
Tabelle.Range(Tabelle.Cells(1, 3), Tabelle.Cells(1, 39)).Value
I = I + 1
End If
Next Tabelle
End Sub

Gruß Sepp
Anzeige
AW: Zellenbereich anstatt Zelle
23.11.2004 09:10:42
giovanni
BESTEN DANK!!!!!!!!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige