Buchstabenfolge Filtern
#1
Guten Tag,

ich habe folgendes Problem, ich habe eine Spalte in der in jeder Zelle nur ein Buchstabe steht. Entweder a, b, c oder d, die Buchstaben sind durcheinander gewürfelt. Insgesamt sind es 500 Zeilen.
Ich möchte jetzt herausfinden wie oft eine bestimmte Buchstabenfolge untereinander steht wie z.B. abc. Da ich schon etwas länger am rumprobieren bin möchte ich euch um hilfe bitten 

LG
Top
#2
Hallo,

nach welchen Kombinationen soll gesucht werden?

- gleiche
- Sequenz
- etc

Erkläre bitte noch den Hintergrund.

mfg
Top
#3
Ich habe ein paar Excel-Einführungsaufgaben, in denen man mit verschiedenen Formeln arbeiten soll, um sich mit dem Programm vertraut zu machen.. 
Gefiltert werden soll in dieser abfolge nur wie oft z.B. die Kombination abc untereinander steht.
Top
#4
Hallo,

solche Übungen möchte ich etwas erweitern:

Für das beigefügte Workbook geht der Code:

Code:
option vbasupport 1
Sub Main
Ar = join(application.transpose(activesheet.usedrange.columns(1)), vbnullstring)

TT = split(Ar,"abc") ' cells(1,4).value)
cells(1, 5) = ubound(TT)
End Sub

Aufgabe: den Code zu verallgemeinern, sodass in Spalte D beliebig viele Varianten geprüft werden können. UND: Was ist der Unterschied zwischen Excel und LO.

Viel Spaß

mfg

(aus Sicherheitsgründen ist die Trennung von Workbook und VBA-Code nötig)


Angehängte Dateien
.xlsx   User.xlsx (Größe: 4,78 KB / Downloads: 8)
Top
#5
Danke für deine Hilfe.
jetzt bekomme ich aber deinen code da nicht eingefügt.
Top
#6
Hallo,

ich will dich nicht ärgern, aber ich kann die Frage nicht mit Formeln lösen (andere vermutlich). Hier der Code, der in ein allgemeines Modul gehört. (alt-F11, im Menü "Einfügen": Modul)

Code:
Sub Main
Ar = join(application.transpose(activesheet.usedrange.columns(1)), vbnullstring)

for i = 1 to cells(rows.count, 4).end(xlup).row
    TT = split(Ar, cstr(cells(i,4).value))
    cells(i, 5) = ubound(TT)
next i
End Sub

Der Versuch die Datei mit dem Code zu speichern ging schief, LO speichert keine VBA-Codes.

mfg
Top
#7
Hallo,

probier mal

=(LÄNGE(TEXTKETTE(A1:A500))-LÄNGE(WECHSELN(TEXTKETTE(A1:A500);"abc";)))/3

Bereich ggf. anpassen.
Cadmus
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste