Microsoft Excel

Herbers Excel/VBA-Archiv

Summen auslesen, variable Anzahl Tabellen | Herbers Excel-Forum


Betrifft: Summen auslesen, variable Anzahl Tabellen von: F. Jordan
Geschrieben am: 28.01.2010 14:42:25

Hallo zusammen

Wie kann ich mit VBA das gleiche Resultat bekommen mit einer variablen Anzahl von Tabellen, wie in diesem Bespiel mit einer statischen Anzahl per Hand?
https://www.herber.de/forum/archiv/608to612/t611249.htm#611249

Vielen Dank für Eure Tipps.

Gruss
Frédéric

  

Betrifft: AW: Summen auslesen, variable Anzahl Tabellen von: Wenderhold
Geschrieben am: 28.01.2010 14:59:16

Hi Frederic

Public Sub summe_tables()
      dim i as integer
      dim Summe as double
      Summe = 0
      for i = 1  to sheets.count
             Summe = Summe + Sheets(i).cells(row,col).Value
      next i
End Sub
für row und col musst Du natürlich die Zeile- bzw. Spaltennummer eingeben,die Dich interessiert.

best wishes
eugen


  

Betrifft: AW: Summen auslesen, variable Anzahl Tabellen von: F. Jordan
Geschrieben am: 28.01.2010 15:16:59

Hallo Eugen

Vielen Dank. Kann man das auch so anpassen, dass es erst ab einem bestimmten Tabellenblatt zu summieren beginnt? Optimal, wenn das Resultat in einem anderen Tabellenblatt an einer bestimmten Stelle für weitere Prüfungen eingesetzt werden könnte.

Gruss
Frédéric


  

Betrifft: AW: Summen auslesen, variable Anzahl Tabellen von: Wenderhold
Geschrieben am: 29.01.2010 08:56:26

Hi Frederic

klar ist das möglich !!

Public Sub summe_tables()
      dim i as integer
      dim Summe as double
      Summe = 0
      for i = 3  to sheets.count      ' erst ab dem 3. Blatt summieren
             Summe = Summe + Sheets(i).cells(row,col).Value
      next i
      sheets(1).Cells(1,1).Value = Summe      ' im 1. Blatt auf A1 eintragen   !!!!
End Sub
die for next Schleife könnte auch alterativ so ausschauen

for i = 1 to sheets.count
if sheets(i).name <> "Tabelle1" and sheets(i).Name <> "Tabelle5" then
Summe = Summe +
endif
next i

best wishes
eugen


  

Betrifft: AW: Summen auslesen, variable Anzahl Tabellen von: F. Jordan
Geschrieben am: 29.01.2010 11:47:50

Hallo Eugen

Vielen Dank für Deine bisherige Hilfe.

Wenn ich eine bestimmte Spalte summieren möchte muss ich hier...

Summe = Summe + Sheets(i).cells(row,col).Value

...sicher den Bereich (cells(row...) anpassen. Scheine das System noch nicht zu begreifen.
Möchte Spalte H auslesen. Was muss ich dann anpassen?

Gruss
Frédéric


  

Betrifft: AW: Summen auslesen, variable Anzahl Tabellen von: Wenderhold
Geschrieben am: 29.01.2010 13:38:00

Hi Frederic

angenommen Du willst die Summen der Spalte H von Zeile 1 bis 20 ermitteln ,
dann schreibe wie folgt
for i = 3 to sheets.count ' erst ab dem 3. Blatt summieren
for x = 1 to 20
Summe = Summe + Sheets(i).cells(x,8).Value
next x
next i
best wishes
eugen


  

Betrifft: AW: Summen auslesen, variable Anzahl Tabellen von: F. Jordan
Geschrieben am: 29.01.2010 13:48:57

Hallo Eugen

Das würde bedeuten für meine Zwecke...

Public Sub summe_tables()
      dim i as integer
      dim Summe as double
      Summe = 0
      for i = 9  to sheets.count      ' erst ab dem 9. Blatt summieren
      for x = 1 to 1000
      Summe = Summe + Sheets(i).cells(x,8).Value
      next x
      next i
      sheets(3).Cells(8,8).Value = Summe      ' im 3. Blatt auf H8 eintragen   !!!!
End Sub
Oder vertausche ich hier nun etwas?

Gruss
Frédéric


  

Betrifft: AW: Summen auslesen, variable Anzahl Tabellen von: F. Jordan
Geschrieben am: 03.02.2010 14:23:12

Hallo

Habe den Code wie folgt für mich abgeändert. Aber er funktioniert nicht.

Sub Summe_auslesen()
      Dim i As Integer
      Dim Summe As Double
      Summe = 0
      For i = 7 To Sheets.Count       ' erst ab dem 7. Blatt summieren
             Summe = Summe + Sheets(i).Cells(x, 8).Value
      Next i
      Sheets(2).Cells(8, 8).Value = Summe     ' im 2. Blatt auf H8 eintragen
End Sub
Diese Zeile erscheint Gelb hinterlegt.
Summe = Summe + Sheets(i).Cells(x, 8).Value
Was ist daran falsch??

Gruss
Frédéric


Beiträge aus den Excel-Beispielen zum Thema "Summen auslesen, variable Anzahl Tabellen"