Fehler mit "Right$"

[daDom]

For File1TR = 1 To Len(Zeile1)
                #Wenn  ";" in Zeile gefunden...
                If (Mid$(Zeile1, File1TR, 1) = ";") Then
                    #R1Pos(ition) gleich dem Marker "File1TR" setzen
                    TR1Pos = File1TR
                    #Anzahl der Trennzeichen einen zuzählen (+1)
                    TRAnzahl = TRAnzahl + 1
                End If
                #Wenn 1 Trennzeichen gefunden...
                If TRAnzahl = 1 Then
                    Data_Name = Left$(Zeile1, Len(Zeile1) - TR1Pos)
                End If
            Next File1TR

Ausgelesen wird diese Zeile:

Burkhard; Mast-Weisz;Rathaus;;Remscheid

Eigentlich sollte diese Funktion nur den Namen "Burkhard" ausgeben, aber stattdessen kommt das hier dabei raus.

Burkhard; Mast-Weisz;Rathaus;;

Was mache ich falsch?

 

[DrSoong]

Klar, in der Zeile

Data_Name = Left$(Zeile1, Len(Zeile1) - TR1Pos)

müsstest du das ganze so schreiben:

Data_Name = Left$(Zeile1, TR1Pos)

Ich würde die Suche nach dem Trennzeichen aber mit der Funktion InStr() machen, ist bedeutend einfacher und schneller (schau dazu auch die VB-Hilfe an).


Der Doc!

 

[daDom]

Jo, danke dir!

InStr() kenn ich bis jetzt noch nicht, aber schau's mir an.

!t.h.x...