Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Anzahl Zeichen aus String auslesen
Autor: Tidl
Datum: 15.05.06 07:51
Hallo hier die Lösung: Dim text As String Dim Länge As Integer Dim a As Integer Dim pos As Integer a = 0 If Forms!Auswerteformular!Masch <> "" Then text = Forms!Auswerteformular!Masch Else: Exit Sub End If Länge = Len(text) Do While Länge > 0 pos = InStr(1, text, ";") If pos > 0 Then a = a + 1 text = Mid(text, pos + 1, Länge) Länge = Len(text) End If If pos = 0 Then Länge = 0 End If Loop Me.AnzMaschinen = a

Anzahl Zeichen aus String auslesen	1.411	Tidl	10.05.06 13:57
Re: Anzahl Zeichen aus String auslesen	890	Tidl	10.05.06 15:15
Re: Anzahl Zeichen aus String auslesen	896	me36835	11.05.06 08:53
Re: Anzahl Zeichen aus String auslesen	1.015	Tidl	15.05.06 07:51
Re: Anzahl Zeichen aus String auslesen	890	wb-soft	15.05.06 09:57

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