Thema Datum  Von Nutzer Rating
Antwort
31.12.2018 15:15:32 Isa Yakut
NotSolved
Blau textbox einlesen
 01.01.2019 09:21:04 zB
NotSolved
01.01.2019 11:37:19 Isa Yakut
NotSolved
01.01.2019 14:36:11 Gast7777
Solved
02.01.2019 08:06:24 fremdschämen
NotSolved
02.01.2019 13:31:06 Isa Yakut
NotSolved

Ansicht des Beitrags:
Von:
zB		 Datum:
01.01.2019 09:21:04		 Views:
491		 Rating:
     
Antwort:
  Ja
Thema:
textbox einlesen		 
Private Sub TextBox1_Change()
Dim arr() As String

   On Error Resume Next
   arr = Split(Me.TextBox1.Text, Chr(13))
   Me.TextBox2.Text = Mid(Trim(arr(0)), 5, InStr(Trim(arr(0)), "@") - 5)
   Me.TextBox3.Text = Mid(arr(1), 9, 6)
   Me.TextBox4.Text = Mid(arr(2), 16, 6)
   On Error GoTo 0

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
31.12.2018 15:15:32 Isa Yakut
NotSolved
Blau textbox einlesen
 01.01.2019 09:21:04 zB
NotSolved
01.01.2019 11:37:19 Isa Yakut
NotSolved
01.01.2019 14:36:11 Gast7777
Solved
02.01.2019 08:06:24 fremdschämen
NotSolved
02.01.2019 13:31:06 Isa Yakut
NotSolved