Teil des Namens auslese_VBA

Computer: Software & Programmierung Visual Basic
#21

Hallo,

Nein hab ich nicht stehn, abgesehn davon ist bei mir der Index
sowieso 1 also: Fld(1)

hmmm, dann rate ich mal und vermute den Fehler in den Daten.
Wird eine Zeile gelesen, in der keine Tabs vorkommen, z.B. weil am Ende der Datei ein [Enter] zu viel steht, dann greift Split() ins Leere.

Wenn ich damit Recht habe, hilft diese kleine Änderung, die überprüft, ob das Array groß genug ist:

 For i = LBound(Zl) To UBound(Zl)
 Tmp = Zl(i)
 fld = Split(Tmp, vbTab)
 If UBound(fld) \> 0 Then
 If InStr(fld(0), Su) Then
 MsgBox fld(6)
 End If
 End If
 Next

Geht es damit?

Gruß Rainer

#22

Hallo Reinhard,

Also über Rechtsklick auf die Form in der Liste, dann
Hinzufügen—Modul.

das geht in VB6 nicht. Da gibt es in der IDE im Menü den Punkt ‚Projekt‘ und dort: ‚Modul hinzufügen‘. Da geht dann entweder ‚Neu‘ oder ‚vorhandenes Modul einfügen‘. Ob das in VB5 anders ist weiß ich nicht.

Du musst Dich dann nur davor hüten, an dem Modul etwas zu
ändern nachdem Du es in einem Projekt verwendet hast.

Aha.

Packst Du die Funktion in ein eigenes Steuerelement kannst Du
das dann mit VB5 und auch mit VBA verwenden, wenn ich mich
nicht irre.

Wie mache ich das mit VB5.0? Ich dachte ocx kann ich damit
nicht basteln.

Ach so, vergessen. Ich kenne VB5 doch nicht. Wenn VB5 das nicht kann, musst Du entweder bei den Modulen bleiben oder Dir die OCXe von mir kompilieren lassen. Wie es Dir sympathischer ist.

Ja, ich weiß, Wasser predigen und selbst Wein predigen, sollte
mir doch mal ein gutes Buch zu VB5.0 zulegen, anstatt dich oft
zu löchern wegen Anfängerproblemen :smile:)

*gg* Du gönnst mir aber auch gar keinen Spaß! :smile:

Ich freu mich doch, wenn ich Dir auch mal eine Frage beantworten kann!

Gruß Rainer

#23

For i = LBound(Zl) To UBound(Zl)
Tmp = Zl(i)
fld = Split(Tmp, vbTab)
If UBound(fld) > 0 Then
If InStr(fld(0), Su) Then
MsgBox fld(6)
End If
End If
Next

Geht es damit?

Gruß Rainer

Jopp, es geht damit.

Mein Anwendungsprogramm ist fast fertig, teilweise funktionieren Sachen und ich weiß noch nicht warum :smile:
Aber das werde ich alles noch herausfinden.

Vielleicht kommt ja noch die eine oder andere Frage an euch.

Auf jeden Fall habt ihr mir viel weitergeholfen.

Danke
M.