Text aus Textfeld per Button in Zellen schreiben

[StefanF81]

Hallo zusammen,

ich will per Klick auf einen Button den Text eines Textfeldes (aus dem Zeichnen Katalog von Excel) in verschiedene Zellen eines Excel-Arbeitsblatts schreiben.

Ich speichere dabei den Text des Textfeldes in einer String Variablen. Den Text der Variable kann ich auch in eine Zelle schreiben. Nun aber zu meinem Problem:

Weiß jemand, wie ich den String nach Zeilenumbrüchen trennen kann, damit der String so zerlegt wird, dass der Text nach jedem Zeilenumbruch in eine neue Zelle geschrieben wird?
Habe schon lange nichts mehr mit VBA gemacht und komme nicht drauf wie ich das machen kann.

Vielen Dank für eure Antworten.

[Jerek]

Du musst in dem string nach Chr(10) und oder Chr(13) suchen. Ich weiß nicht mehr genau welche Kombination das war. Dort wo das zeichen auftritt ist ein Umbruch. Bei google kannst du nach stringmanipulationen suchen. Damit kannst du den string dann aufteilen.

Ich hoffe das hat dir geholfen.

[Severus]

Yep, Jerek hat recht. Du mußt nach Chr(10) suchen.
Etwa so:

Sub TextBox_Aufteilen()
Dim strText As String
Dim Ziel As Long
Dim AusGabe As String
Dim LaufZahl As Long
ActiveSheet.Shapes("Text Box 1").Select
strText = Selection.Characters.Text
LaufZahl = 1
Do
      If InStr(1, strText, Chr(10), vbBinaryCompare) <> 0 Then
            Ziel = InStr(1, strText, Chr(10), vbBinaryCompare)
            AusGabe = Left(strText, Ziel - 1)
            Workbooks("ZielDatei.xls").Sheets("WoAuchImmer").Cells(1, LaufZahl) = AusGabe
            strText = Right(strText, Len(strText) - Ziel)
            LaufZahl = LaufZahl + 1
      End If
      If InStr(1, strText, Chr(10), vbBinaryCompare) = 0 Then
            Workbooks("ZielDatei.xls").Sheets("WoAuchImmer").Cells(1, LaufZahl) = strText
            Exit Do
      End If
Loop
End Sub

Viel Spaß
Severus