Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
672to676
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
672to676
672to676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabelle mit mehreren Tabellenblättern

Tabelle mit mehreren Tabellenblättern
26.09.2005 11:32:20
Riko
Hallo zusammen,
folgendes Problem habe ich.
Ich habe eine Datei mit ca. 150 Tabllenblättern die wie folgt benannt sind:
von "KUNDENNR 140002" bis "KUNDENNR 142400"
In diesen Tabellenblättern möhte ich die Spalte J über alle Werte summieren, mit Werten die kleiner sind als 0 (Sprich: Summe über alle negativen Werte)
Des weiteren möchte ich wissen, wie viele Zeilen, gesehen über alle Tabellenblättern, negative Werte in der Spalte J haben.
Ich hoffe Ihr könnt mir bei diesem Problem helfen.
Vorab schon einmal 1000 Dank!
Grüße
Riko

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle mit mehreren Tabellenblättern
26.09.2005 11:58:30
Matthias
Hallo Riko,

Function ZählenWenn2(Blattmuster As String, Bereich As String, Bed As String) As Long
Application.Volatile
Dim sh As Worksheet
Dim anz As Long
For Each sh In Worksheets
If sh.Name Like Blattmuster Then
anz = anz + WorksheetFunction.CountIf(sh.Range(Bereich), Bed)
End If
Next sh
ZählenWenn2 = anz
End Function
Function SummeWenn2(Blattmuster As String, Bereich As String, Bed As String) As Long
Application.Volatile
Dim sh As Worksheet
Dim sum
For Each sh In Worksheets
If sh.Name Like Blattmuster Then
sum = sum + WorksheetFunction.SumIf(sh.Range(Bereich), Bed)
End If
Next sh
SummeWenn2 = sum
End Function

Formel:
=ZÄHLENWENN2("KUNDENNR*";"J:J";" =SUMMEWENN2("KUNDENNR*";"J:J";" Gruß Matthias
Anzeige
AW: Tabelle mit mehreren Tabellenblättern
26.09.2005 12:07:43
Riko
1000 Dank.
Hat einwandfrei funktioniert! Super!
AW: Tabelle mit mehreren Tabellenblättern
26.09.2005 12:00:59
Peter
Hallo Riko,
das folgende kleine Makros sollte es tun:


Sub Addieren()
Dim iBlatt  As Integer
Dim lZeile  As Long
Dim lLetzte As Long
Dim dSumme  As Double
Dim lAnzahl As Long
   For iBlatt = 1 To Worksheets.Count
      Worksheets(iBlatt).Activate
      If UCase(Left(ActiveSheet.Name, 11)) = "KUNDENNR 14" Then
         lLetzte = IIf([J65536] > "", 65536, [J65536].End(xlUp).Row)
         For lZeile = 1 To lLetzte
            If Range("J" & lZeile).Value < 0 Then
               dSumme = dSumme + Range("J" & lZeile).Value
               lAnzahl = lAnzahl + 1
            End If
         Next lZeile
      End If
   Next iBlatt
   MsgBox "die Summe ist " & dSumme & " aus " & lAnzahl & " negativen Zahlen."
End Sub


Viele Grüße Peter
Das Forum lebt auch von den Rückmeldungen.
Anzeige
AW: Tabelle mit mehreren Tabellenblättern
26.09.2005 12:18:59
Riko
Hallo Peter.
Auch Dir nochmals 1000 Dank. Auch dieses funktioniert super. Ich denke sogar, das Dein Macro genauer ist. Denn beide Varianten (bezogen auf das von Deinem Vorgänger) liefern unterschiedliche Ergebnisse.
AW: Tabelle mit mehreren Tabellenblättern
26.09.2005 14:08:47
Peter
Hallo Riko,
etwas sicherer ist es mit folgender Erweiterung:


Sub Addieren()
Dim iBlatt  As Integer
Dim lZeile  As Long
Dim lLetzte As Long
Dim dSumme  As Double
Dim lAnzahl As Long
   For iBlatt = 1 To Worksheets.Count
      Worksheets(iBlatt).Activate
      If UCase(Left(ActiveSheet.Name, 11)) = "KUNDENNR 14" Then
         lLetzte = IIf([J65536] > "", 65536, [J65536].End(xlUp).Row)
         For lZeile = 1 To lLetzte
            If IsNumeric(Range("J" & lZeile).Value) And _
               Range("J" & lZeile).Value < 0 Then
               dSumme = dSumme + Range("J" & lZeile).Value
               lAnzahl = lAnzahl + 1
            End If
         Next lZeile
      End If
   Next iBlatt
   MsgBox "die Summe ist  " & dSumme & "  aus  " & lAnzahl & "  negativen Zahlen.", _
      64, "   summieren negative Werte der Spalte J."
End Sub


Viele Grüße Peter
Das Forum lebt auch von den Rückmeldungen.
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige