Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

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
Antworten Top
#2
Hallo,

nach welchen Kombinationen soll gesucht werden?

- gleiche
- Sequenz
- etc

Erkläre bitte noch den Hintergrund.

mfg
Antworten 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.
Antworten 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)
Antworten Top
#5
Danke für deine Hilfe.
jetzt bekomme ich aber deinen code da nicht eingefügt.
Antworten 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
Antworten Top
#7
Hallo,

probier mal

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

Bereich ggf. anpassen.
Cadmus
Antworten Top


Gehe zu:


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