Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Länge einer Zeichenkette

Forumthread: 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

Anzeige

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
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige