HERBERS Excel-Forum - die Beispiele

Thema: Textimport in UserForm-Elemente

Home

Gruppe

Dialog

Problem

Bei Eingabe einer 7-stelligen Zeichenfolge in eine UserForm-TextBox soll der String einer Textdatei gesucht werden. Bei Auffinden sind die Elemente des Datensatzes in Labels einzutragen.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.
ClassModule: frmSearch

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub txtSearch_Change()
   Dim iCounter As Integer, iFile As Integer
   Dim sFile As String, sTxt As String
   sFile = ThisWorkbook.Path & "\Source.txt"
   With txtSearch
      If .TextLength = 7 Then
         iFile = FreeFile
         Open sFile For Input As iFile
         Do Until EOF(iFile)
            Line Input #1, sTxt
            If Left(sTxt, 7) = .Text Then
               Label1.Caption = Left(sTxt, 7)
               Label2.Caption = Mid(sTxt, 8, 8)
               Label3.Caption = Mid(sTxt, 16, 4)
               Label4.Caption = Mid(sTxt, 20, 4)
               Exit Do
            End If
         Loop
         Close
         If Label1.Caption = "" Then
            For iCounter = 1 To 4
               Controls("Label" & iCounter).Caption = "Nicht gefunden"
            Next iCounter
         End If
      ElseIf .TextLength < 2 Then
         For iCounter = 1 To 4
            Controls("Label" & iCounter).Caption = ""
         Next iCounter
      End If
   End With
End Sub
StandardModule: Modul1

Sub CallForm()
   frmSearch.Show
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und UserForm

Verknüpfung Daten-Userform in Word-Dok Zwischenablage in Userform anzeigen und ...
ShowModal Userform - Aktives Tabellenblatt UserForm nur fpr Berechtigte öffnen
userform 1:n Beziehung Start Userform Fehlermeldung
Userform Excel ausblenden Blattschutz per Userform ein und ausschalten
UserForm im Querformat drucken Userform Leben einhauchen
Userform Userform
Userforms - Tabelle auslesen Daten aus Tabelle in Userform
Module und Userform per VBA löschen Formen in UserForm Namen zuweisen per Makro
Userform soll Blattschutz regeln Doppelklick öffnet Userform
Listbox nach öffnen der Userform füllen UserForm TextBox mit ComboBox Datum vergleichen
Optionsfeld Value false auf true änd. im Userform In Userform Label bei Eingabe ändern
Userform nicht gleich in TextBox aber wie? xlDialogInsertHyperlink.show
Laden Userform dauert lange In Userform Arbeitsplatz anzeigen?
Listenfeld in Userform Markierung aufheben UserForm in Outlook mit DropDowns aus Excel (Inhal
USERFORM showmodal Label fehlt Button in UserForm soll CSV in neuer Instanz öffne
Userform Toggle Button rücksetzen Userform soll Zellen mit Inhalt erkennen
UserForm schließen und anderes UserForm öffnen Daten aus Tabellenblatt als Auswahl in userform
Spreadsheet in UserForm... Arbeitmappen über Dialogfeld zusammen fassen
Text aus Userform in Datei übertragen Userform mit Löschfunktion
Userform. Link datei Userform an Zelle ausrichten
UserForm für Datenmanipulation Hyperlink - UserForm
PDF in Userform Userform Frage
UserForm - CheckBox Reihenfolge Aktierungsreihenfolge in Userform
Userform anpassen UserForm Stammbaum
5.0 Dialog Userform - CommandButton per Code löschen