Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
932to936
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
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Länge einer Zeichenkette

Länge einer Zeichenkette
07.12.2007 11:32:11
Maurizio
Hallo,
ich habe mit Hilfe dieses Forums eine Funktion erstellt, welche versch. Daten vergleicht.
Anhand der Formel wird bei dem Vergleich immer "Falsch"(=0) oder "WAHR"(=1) ausgegeben.
Jeweils untereinander in einer eigenen Zelle, also z. B.
0
0
0
0
1
1
0
0
1
Das sind aber SEHR viele Daten und ich will folgendes erreichen:
Ich will wissen, wie oft max. eine 1 nach der anderen kommt. Also im Beispiel wären das hier max 2 1er untereinander bevor wieder eine 0 kommt.
Es ist nicht entscheidend, wieviele 1er insgesamt vorkommen, nur die Anzahl, die genau aufeinander folgt.
Gibt es da eine Funktion in Excel?
mfg
Maurizio

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Länge einer Zeichenkette
07.12.2007 11:38:39
Melanie
Hi Muarizio,
Wie wäre es damit?
In einer separaten Spalte:
=WENN(A1+A2=2;1;0)
Und dann die Summe über dies Spalte.
Grüße, Melanie

AW: Länge einer Zeichenkette
07.12.2007 11:43:38
Peter
Hallo Maurizio,
so könnte es gehen:


Option Explicit
Public Sub WieOft()
Dim lZeile  As Long
Dim iAnz    As Integer
Dim iMax    As Integer
Dim lWo     As Long
   With Worksheets("Tabelle1")
      For lZeile = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
         If Len(.Cells(lZeile, 1).Value = 1) And _
            CInt(.Cells(lZeile, 1).Value) = 1 Then
            iAnz = iAnz + 1
          Else
            If iAnz > iMax Then
               iMax = iAnz
               lWo = lZeile - iAnz
               iAnz = 0
            End If
         End If
      Next lZeile
   End With
   MsgBox "das Maximum an aufeinanderfolgenden 1-sen ist " & iMax & _
      Chr(10) & "im Bereich der Zeile " & lWo & ".", _
      , "   Hinweis für " & Application.UserName
End Sub 


Gruß Peter

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige