hi Specci48,
das war eine sehr gute Idee, die auch sehr gut funktioniert. Leider bekomme ich nur das Speichern in eine Data.txt hin.
Sub txtEingabeMonteur_KeyPress (key)
anzahl=0
If key = Chr(13) Then
combobox3.Insert(anzahl,txtEingabeMonteur.Text)
FileOpen (c1, "data.txt", cRandom)
FilePut (c1,0,true,txtEingabeMonteur.Text)
FileClose (c1)
txtEingabeMonteur.Text = ""
txtEingabeMonteur.Visible = false
End If
End Sub
Das Laden der Data.txt in die Combobox1 klappt irgendwie nicht.
mfg Bobbes