Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
472to476
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
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

serie mit werten <>0 zählen

serie mit werten <>0 zählen
22.08.2004 11:43:47
ransi
Guten morgen
Ich brauche für eine auswertung mal hilfe.
Ich möchte aus einer reihe von werten eine serie berechnen,
d.h. zähle solange bis eine "0" kommt, und wenn mehrere serien vorhanden sind,
nimm die größte.
habe mal eine beispieldatei angehängt.
https://www.herber.de/bbs/user/9926.xls
wäre schön wenn das ganze ohne VBA auskommt.
danke für hilfe und schönen sonntag noch
ransi

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

Betreff
Datum
Anwender
Anzeige
AW: serie mit werten <>0 zählen
HerbertH
hast du das so gemeint:


Sub summe()
Dim As Integer, s As Byte, summe As Byte
Dim letzte As Integer
 letzte = Cells(Rows.Count, 1).End(xlUp).Row
 
  For z = 1 To letzte
   For s = 1 To 10
     If Cells(z, s).Font.ColorIndex = 3 Then
         summe = summe + 1
        End If
      Next
    Cells(z, 12) = summe
   summe = 0
 Next
End Sub

     gruß Herbert
https://www.herber.de/bbs/user/9927.xls
Anzeige
AW: serie mit werten <>0 zählen
ransi
hallo herbert
vielen dank für deine mühe, aber funzt leider nicht so ich es gern hätte.
josef seine lösung klappt genauso wie es sein soll.
vielen dank
ransi
AW: serie mit werten <>0 zählen
HerbertH
ich hab es gesehen...
hier die Lösung:


Sub summe_ungleich_null()
Dim As Integer, s As Byte, summe As Byte, s1 As Byte
Dim letzte As Integer, s_max As Byte, letzte_s As Byte
 letzte = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
  For z = 1 To letzte
      For s = 1 To 10
         If Cells(z, s) <> 0 Then
             summe = summe + 1
              If Cells(z, s).Offset(0, 1) = 0 Then
                 letzte_s = Cells(z, 30) _
                     .End(xlToLeft).Column + 1
                  Cells(z, letzte_s) = summe
                summe = 0
            End If
          End If
      Next
   s_max = WorksheetFunction.Max(Range(Cells(z, 14) _
                             , Cells(z, 24)))
 Cells(z, 12) = s_max
 Range(Cells(z, 14), Cells(z, 24)).ClearContents
Next
Application.ScreenUpdating = True
End Sub

     gruß Herbert
Anzeige
AW: serie mit werten <>0 zählen
Josef
Hallo Ransi
Im Anhang eine Lösung mit Hilfstabelle. Sicher geht das auch mit einer Matrix-Formel ohne Hilfstabelle, Ich denke aber,das ist die einfachere Lösung.
https://www.herber.de/bbs/user/9929.xls
Gruss Josef
AW: serie mit werten <>0 zählen
ransi
hallo josef
genau so sollte es sein.(verblüffend einfach übrigens)
die hilfsspalten stören nicht. werden einfach auf ein sheet mit xlsheetveryhidden verbannt.
danke nochmal
ransi

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige