Re: Problem mit auslesen aus einer Zelle

Tech-Archive recommends: Fix windows errors by optimizing your registry

Hallo Matthias,

Matthias Pauli schrieb: 
Ja auf diese Idee kam ich bereits am anfang hatte ich auch so mit einer
Multi_Line TextBox gelöst
aber da der Auftraggeber alle Daten einzeln eingeben will, und nicht in
einer Textbox auswählen will, musste ich dies auf diese 14 einzelnen
datenfelder Stellen.


ok, also das aufsplitten des Textes bekommst du mit der Split-Funktion (ab Excel2000) gelöst.
Dann musst du dir noch noch Gedanken machen, das Puzzle wieder zusammen zu bauen ;-)

Hier der Code zum splitten:

Private Sub CommandButton1_Click()
  Dim varSplit1  As Variant
  Dim varSplit2  As Variant
  Dim lngCount   As Long
  Dim lngLbl     As Long

  varSplit1 = Split(TextBox1.Text, Chr(10))

  For lngCount = 0 To UBound(varSplit1) Step 2
     lngLbl = lngLbl + 1
     ' lbl1 - lbl7
     Controls("lbl" & lngLbl).Caption = Trim(varSplit1(lngCount))

     varSplit2 = Split(varSplit1(lngCount + 1), "=>")
     ' txt_1_1 - txt_7_1
     Controls("txt_" & lngLbl & "_1").Text = Trim(varSplit2(0))
     ' txt_1_2 - txt_7_2
     Controls("txt_" & lngLbl & "_2").Text = Application.Clean(Trim(varSplit2(1)))
  Next lngCount
End Sub

Ich lade dir meine DemoMappe hier hoch:
http://home.arcor.de/melanie_breden/Excel/UserForm_Daten_splitten.xls


Mit freundlichen Grüssen
Melanie Breden

--
- Microsoft MVP für Excel -
Microsoft Excel - Die ExpertenTipps http://tinyurl.com/cmned
Das Excel-VBA Codebook http://excel.codebooks.de
Excel-Auftragsprogrammierung 

.

Quantcast