Excel Marko, Zahlenreihe

[sven (Gast)]

Hallo Leute,

ich habe eine Frage zum Excel Makro, wovon ich nicht viel Ahnung habe.

Ich möchte ein Makro schreiben, welches aus Nullen und Einsel eine Folge 
herausliest. z.B.: 0000000000111101111100000000000

Ich möchte mit dem Makro bestimmen, wie viele Folgen von einsen 
existieren und wie lang diese jeweils sind. z.B: es gibt 3 folgen von 
einsen, diese sind jeweils 111 , 111111, 11111. Das Programm soll mir 
sagen:
Folgen : 3 , längste Folge: 6

Jede Zelle enthält dabei eine 1 oder 0 und ist ein Reihe B gespeichert.

Was schreibe ich in das Marko?
Kann mir jemand weiterhelfen?

[sven (Gast)]

ich habe statt dem Makro noch eine andere Möglichkeit gefunden:
=WENN(B1="1";ZEILE()-MAX(($B$1:B="0")*(ZEILE($B$1:B1)))+1;WENN(B1="0";ZE 
ILE()-MAX(($B$1:B1="1")*(ZEILE($B$1:B1)))+1;""))


als matrix.

Funktioniert aber noch nicht, wo liegt der Fehler?

[Peter M. (r2d3)]

Hallo Sven,

sven schrieb:
> Hallo Leute,
>
> ich habe eine Frage zum Excel Makro, wovon ich nicht viel Ahnung habe.
>
> Ich möchte ein Makro schreiben, welches aus Nullen und Einsel eine Folge
> herausliest. z.B.: 0000000000111101111100000000000
>
> Ich möchte mit dem Makro bestimmen, wie viele Folgen von einsen
> existieren und wie lang diese jeweils sind. z.B: es gibt 3 folgen von
> einsen, diese sind jeweils 111 , 111111, 11111. Das Programm soll mir
> sagen:
> Folgen : 3 , längste Folge: 6

Dein Beispiel passt nicht zu Du der langen Zeichenkette oben.
Ist das Absicht?

>
> Jede Zelle enthält dabei eine 1 oder 0 und ist ein Reihe B gespeichert.

Dieser Satz ist leider komplett unverständlich.

> Was schreibe ich in das Marko?

Dem Marko die Haut aufschneiden und dann mit Edding drübergehen.

> Kann mir jemand weiterhelfen?#

Wenn Du Dir etwas Mühe gibst, und Dich verständlicher ausdrückst, gerne.

[grundschüler (Gast)]

Makro schreiben ist im Prinzip trial and error. Das musst du selbst 
schreiben. Du brauchst im Prinzip eine (for-)Schleife, die bestimmte 
Zellen abläuft und genau das macht, was du vorgibts. Fang einfach an und 
stell hier mal code ein, dann kann man dir weiterhelfen.

[ge-nka (Gast)]

Neues Modul in VBA-Projekt einfügen oder in ein vorhandenes:

Public Function FolgenGeben(strZahl As String) As String
    Dim i As Long
    Dim char As String
    Dim Folgen As Integer
    Dim LängsteFolge As Integer
    Dim iFolgen As Integer
    Dim iLängsteFolge As Integer
    
    For i = 1 To Len(strZahl)
        char = Mid$(strZahl, i, 1)
        If char = "1" Then
            If iLängsteFolge = 0 Then Folgen = Folgen + 1
            iLängsteFolge = iLängsteFolge + 1
        Else
            If iLängsteFolge > LängsteFolge Then LängsteFolge = iLängsteFolge
            iLängsteFolge = 0
        End If
    Next
    
    FolgenGeben = "Folgen: " & Folgen & ", längste Folge: " & LängsteFolge
End Function

danach in irgendeiner Zelle neue benutzerdefinierter Formel schreiben:
=FolgenGeben(B1)

in B1 soll der String stehen mit "111000111000" formatiert als Text 
sonst wird nicht richtig gezählt.

Rest ist glaube ich selbstverständlich.

[A.. P. (arnonym)]

Excel Marko… Ist das ein Freund von Photoshop Phillip?

[Wühlhase (Gast)]

Strotzt nicht grad vor Eleganz, aber es tut was es soll. Ich habs 
allerdings nicht sehr gründlich getestet.

[Peter M. (r2d3)]

Hallo Wühlhase,

das ist ja sehr nett von Dir, dass Du sven das Problem gleich gelöst 
hast.
Aber es wäre besser, er bekäme eine Angel anstelle ein Fischs. ;)