Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1240to1244
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
Inhaltsverzeichnis

Daten zusammentragen

Daten zusammentragen
Tobias
Hallo zusammen,
bin auf der Suche nach einem Makro, was folgendes kann.
Ich habe eine Datei, die immer wieder neu mit Tabellen gefüllt wird. Lediglich die Tabelle1 ist immer enthalten. In dieser würde ich nun gerne eine Statistik unterbringen. Aus allen anderen Tabellen soll folgendes zusammengetragen werden:
- Anzahl der gefüllten Zeilen
- Summe aus Spalte E
Aufbau in Tabelle1 sollte folgender sein:
Spalte A
der jeweilige Tabellenname (optimal wäre mit Link auf die Tabelle)
Spalte B
die Anzahl der gefüllten Zeilen jeder Tabelle
Spalte C
die Summe aus Spalte E jeder Tabelle
Wer kann mir hier helfen?
Gruß und danke vorab
Tobias

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

Betreff
Benutzer
Anzeige
AW: Daten zusammentragen
18.12.2011 17:29:18
Josef

Hallo Tobias,
Sub createIndex()
  Dim objSh As Worksheet
  Dim lngRow As Long
  
  With ThisWorkbook.Sheets("Tabelle1")
    .Range("A2:C" & .Rows.Count).ClearContents
    lngRow = 2
    For Each objSh In .Parent.Worksheets
      If objSh.Name <> .Name Then
        .Hyperlinks.Add Anchor:=.Cells(lngRow, 1), Address:="#'" & objSh.Name & "'!A1", TextToDisplay:=objSh.Name
        .Cells(lngRow, 2) = Application.CountA(objSh.Columns(1))
        .Cells(lngRow, 3) = Application.Sum(objSh.Columns(5))
      End If
      lngRow = lngRow + 1
    Next
  End With
End Sub



« Gruß Sepp »

Anzeige
Genial, danke Sepp!
18.12.2011 18:18:39
Tobias

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige