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

Zahlenmuster erkennen

Zahlenmuster erkennen
31.05.2005 21:43:26
Milan
Hallo Leute,
ich suche Lösung für folgendes Problem:

1. Es werden Zahlen in der Spalte A hintereinander eingegeben.
(von A1 bis max A30)

2. Eingegebene Zahlen: nur die 1 oder die 2

Makro oder Formel:
3.Soll jetzt ein Zahlenmuster erkennen, in welcher Reihenfolge und
Häufigkeit die 1 und dann die 2 erscheint

4.Das Ergebnis in Zelle E1 eintragen
Beispiel 1
1
2
1
1
2
1
1
2
1
2

Ergebniss: 1221_1111

Beispiel 2
1
2
1
1
2
1
1
1
2
2
2
Ergebniss: 123_113

Die linke Zahlenfolge steht für die 1, dazwischen Unterstrich, die rechte Zahlenfolge steht für die 2 .

Vielen Dank für die Hilfe.
Gruß
Milan

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

Betreff
Datum
Anwender
Anzeige
AW: Zahlenmuster erkennen
31.05.2005 22:03:32
Ramses
Hallo
vielleicht so
funktioniert super, danke
31.05.2005 22:35:54
Milan
Danke Ramses, es funktioniert super.
Gruß
Milan
AW: Zahlenmuster erkennen
31.05.2005 22:15:54
MichaV
Hi,
z.B. Code in einem Modul:


      
Public Function ZahlenMuster(Zellen As Range) As String
Dim Zelle As Range
Dim Einsen As String
Dim Zweien As String
Dim i As Integer

For Each Zelle In Zellen
  i = i + 1
  
If Zelle.Offset(1, 0).Value <> Zelle.Value Then
    
If Zelle.Value = 1 Then Einsen = Einsen & CStr(i)
    
If Zelle.Value = 2 Then Zweien = Zweien & CStr(i)
    i = 0
  
End If
Next
ZahlenMuster = Einsen & "_" & Zweien
End Function 

     Code eingefügt mit Syntaxhighlighter 3.0

In der Tabelle dann =Zahlenmuster(A1:A35)
Gruß- Micha
PS: Rückmeldung wäre nett
Anzeige
AW: Zahlenmuster erkennen
31.05.2005 22:39:41
Milan
Hallo Micha,
habe ein Modul neuangelegt,
code eingefügt, es passiert nichts, was mach ich falsch?
Wo kommt das Ergebnis raus?
Gruß
Milan
Super alles klar!
31.05.2005 22:46:44
Milan
Das war die Lösung!
=Zahlenmuster(A1:A35)
Danke Micha
Gruß
Milan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige