Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Array in For...Next Schleife verliert Informationen
Autor: McKloony
Datum: 02.07.22 11:01
Beim folgenden Beospielcode sollen alle alleinstehenden Bigriffe aus einem Text herausgefiltert und in ein Array geschrieben werden. Soweit klappt das auch. Es werden insg. sieben Begriffe gefunden und zugeordnet. ABER wenn man das Array dann später abruft ist nur noch der siebte Begriff vorhanden, die ersten sehcs sind weg.   Dim GesPo As Integer Dim TmLan As Integer Dim AnzPo As Integer Dim AktPo As Integer Dim AktZa As Integer Dim GesZa As Integer Dim Posit As Integer Dim StaPo As Integer Dim TmAry() As String UmsTx = "Allianz Private Krankenv. Vertrag AK-13256455 Private Krankenversicherung 01.03.21 - 31.03.21DE985002100236" GesPo = Len(UmsTx) StaPo = 1 For AktPo = 1 To GesPo Posit = InStr(StaPo, UmsTx, Chr$(32), vbTextCompare) If Posit > 0 Then TmStr = Mid$(UmsTx, StaPo, Posit - StaPo) If TmStr <> vbNullString Then TmLan = Len(TmStr) StaPo = Posit + 1 If TmLan > 2 And TmLan < 20 Then If IsDate(TmStr) = False And IsNumeric(TmStr) = False Then GesZa = GesZa + 1 ReDim TmAry(GesZa) TmAry(GesZa) = TmStr End If End If End If End If Next AktPo For AktZa = 1 To UBound(TmAry) Debug.Print AktZa & " " & TmAry(AktZa) Next AktZa   Beitrag wurde zuletzt am 02.07.22 um 11:02:50 editiert.

Array in For...Next Schleife verliert Informationen	437	McKloony	02.07.22 11:01
Re: Array in For...Next Schleife verliert Informationen	233	eierlein	02.07.22 15:57
Re: Array in For...Next Schleife verliert Informationen	195	McKloony	02.07.22 21:52

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen