Längste Zeichenkette aus A,C,G und T ermitteln

Hallo,
habe folgendes Problem: ich möchte gerne aus einer Zelle die längste zusammenhängende Kette der Buchstaben A, C, G und T ermitteln - am liebsten per neuer Funktion falls möglich...
Bsp.: in der Zelle N11 steht folgender Inhalt:
"-------------------------------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------------------------------------------
---------------------------------------------------------
TNNNNNNNCNNNNNNNNNNTNNNNNNNNNANNANNNNNNNNNNNNNNGNNNNNNNNNNNNNNNNNANGNNNNNANN
NNNNNNCATNTNGNNNNNGNNANNCNNNTNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNTNNTNNNNNNTNNNN
NNNNNNNCAGNNNNNGNNAGNNNCNNNNNNNNNNGNNNNGNNNNNNNNNNNNNNNNNNANNTNGNNNACNNNCNNN
NNTNNNNTNNNNNAANNNCANNNNNNNNNNNNTNNNNNNAANNTNNNNNNNNNNNNNNNNNNNNANNNTNNTNNAAN
NCGGNNNATNNNNNNNNNANNNNNNNNGNNNNNCGGNAANNNNNACNNNNNNNNNNNCNNNCANTNNNNNNNAGNN
NNNNNNTNTTNNNACAGACANTNNTATNNGNGCATGTGNNGNNNCNNNNNNNNNTNNNNNAGNTNNNNCAGTNNNNNN
NNNNNNGNNANNCNNGNNNCNNCNNNNNNNGNNNNNNNCAGNNACTANCANNNANNNNGGANTTNGGAAGNNNNCNN
CNNANNNNTACCGGAAANGNTNNNNCANNNNNNCNNNNNNNNCNNNNNNNNNGGNNNNNNNNCNNNGNNANCNNNN
NNNNNGNANGGGGGGGGGGGGNTNATCNCCACNNNNNTCTTACACAGTTTGGCTTTCAAAATCNNNANNCNCAACAATAG
ACCCTAGGGTAATTGCCAATTCNGCNTCTGNGAAAAAAAAGAAAAGAAAAACATGTNNNNNNNNNTANNNNTCATNGTTAT
CTCGAAATCCTTTTGCAAAGGGGTTATGATCTATTNTTAGNNGNGTAATNNGAAAANGNAGNAGAAAGAGAGANNGNGNCNT
CATCTTNTNCACAAGAAGGTGNGNGTTTGAGAATATATATATCATCNGCCATTNGGCAGGANCTNGGGTNTACNGAGTCACT
AAATAGCAAAGTTCTNTANCNNNANNNTNAGAGACTTNCAGGAAAGGAAAGCGATAAGGTATCNNNAANGTTANNANNNCC
AGNTNNNANCTAATNNNNCNNNNNNNCNNNNCNNNNNNNNNNNNCTTCNTTAATTAANNGNCNNGNCANGNGNCCNNN
NNGNCCNTCCNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN"
Frage: wie kann ich den längsten Bereich finden - nur als Zahlenwert.
Danke,
TeiZei

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo
Mit etwas VBA geht da was richtig schnelles.
Schau es dir mal an:
Tabelle1

	A	B
1	GGCGGGAGATAACNTTTTCGCTCAGNNTGAAGAAACGAGNGNATACGCTCNTGTANCATAGGNAGCGCAGNANNTCNGGCACTACTNTCCNNATCNATCCGCNGNGNATACNTGNTNAGAATGGATAAGCNTCTCTNGANGAGNTTTGNCAGANNTGNGCATGCTACACTNNNNGGGGCTCGNCTTNGCGAACNAAGGACCNAACNTGGNGAANCCATNAATGACCNGGCNNGNCGAANGATANAAANANNCNACGTNCATNTGCCAAGACNNGTNCNTTTACCNNCCTTNNNGNCAACNCACANCNGCNNAGNNATANTAAGCCCGCCAGAGANTAGCGGGCNNCCTCAACNATCGTTTCTCTNNAGCGTNGGNCCNCAGCATNGAGCNTAGAGGGCCTCGTNATTAAGCGCACGANGCACGNCNGNCTGACGTGGAAGTNATTCGNACGTCNCNANAGNGNNNCNGGNAGGNCNTTNNCCTTACGTCNATCNNNCTGA	TAAGCCCGCCAGAGA
2	NAAAAAAAAGGNNAGAGANANNCTCCATGGCNGTGNGNCNANATGTGTGTCCTGGGGCNCCCACTNCNGAATCGTNTGNGNNGNGNCAGNTAGCTNCNTTTAGAACTTNCGATCNTGTAGCGNCGCTCACTTCNGTNNTNTANTNNTNAGNTTGCGGNTNCAGGNCCGNCGTCCTCCATCNCNNTAGACATCGTGTTNGNNNTNAAGNTCCAATAAAGCNNGNNNCCTCTGNTANATNATCTTAGNAANNNGNNAGCATNACAAGANGGTAGTGNTNAGAANTANCACGTCCCTNNNNANGCAGANAGCGNCCCGCNCGCTATNGGTCNCGTTCTGAGGNTTACTNNNTTNCCGTGNGNCTAGGATTNTGCTGGTTATGACCATTGTTAGGTTNNNCCNGNNGAGTGNCAAGGNGCGCTNGCNNANAAGGGCTACNTATCGCCNGANANANTGTNTNCAACGGGTTAGTCGACGGGTNNCCATGGGNATGCANNGNAGTG	TGCTGGTTATGACCATTGTTAGGTT
3	GCAAAGACNCATNGGTATTAGANCCGCNCAATCNNNANCGACTTAANANGCNANTGCAAGTAANCNCATGCTATAGTACGACCTTCGTGNATGGNCACANNTATANAACNNCATCGGNAAGCNTGTGCTTGCTGTATTCAAGAAGTNGAATTTCCCCAATNAGGTCTACAAANCTGCNATTTTNTTTTCTNNNANAACNGCTTNTTANCCANNCNATCAANANGCTNGNATTNGCCCNCNTGNGNCNNNTNAGCGNCGTGTTNAGNTTGATAACAAGTGNCNTNTNTTCCGGGGATNNGNCTANTGCAGNNGTGGTGNGCTNANATAGAGGANNANNNNCNACCNGGGNGCGAAACTTCCTACATNGGCGANTTNTAGNAGCCTNTGTAGTTAGCANCGGCGATTANGTCNNGGGCCGGTATGATNTAGACCNCNATCCACTCGTCANTANTTGTANTTCATACACNTTTCAAGTCANCCTGTGTANAATACTAAANGTN	TGTGCTTGCTGTATTCAAGAAGT

Formeln der Tabelle

Zelle	Formel
B1	=machs(A1)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Dazu diesen Code in ein Modul:

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Dim Regex As Object
Const myPattern As String = "[ACGT]+"

Public Function machs(stext As String) As String
    Dim objMatches As Object
    Dim objMatch As Object
    Dim lngL As Long
    lngL = 0
    If Regex Is Nothing Then
        Set Regex = CreateObject("VbScript.Regexp")
    End If
    With Regex
        .Pattern = "[ACGT]+"
        .Global = True
        If .TEST(stext) = True Then
            Set objMatches = .Execute(stext)
            For Each objMatch In objMatches
                If objMatch.Length >= lngL Then
                    lngL = objMatch.Length
                    machs = objMatch.Value
                    'MsgBox "Treffer"
                End If
            Next
        End If
    End With
End Function

ransi

Beliebteste Forumthreads (12 Monate)

Längste Zeichenkette aus A,C,G und T ermitteln

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Längste Zeichenkette aus A,C,G und T ermitteln

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread