Guten Abend...
Ich bastel gerade an nem kleinen "automatischen" Lieferscheinformular.
Ich verwende u.a. folgenden Schnippsel, der mir nach jedem Semicolon in eine neue Zelle springt.
Sub TextToRowsART()
Dim Pos As Integer, Cell As Range, ii As Integer
Range("L28:L500").Select
Const Sep = ";"
For Each Cell In Selection
ii = 0
Pos = InStr(Cell, Sep)
While Pos > 0
ii = ii + 1
If Pos Cell.Offset(ii, 0).EntireRow.Insert
Cell.Offset(ii, 0) = Mid(Cell, Pos + 1)
End If
Cell = Left(Cell, Pos - 1)
Pos = InStr(Cell, Sep)
Wend
Next
Range("A1").Select
End Sub
Funzt total genial, aber...
beim stöbern heute bin ich noch über folgenden Schnippsel von Hajo_Zi gestolpert:
Private Sub TextBox1_Change()
If TextBox1.Tag "" Then Exit Sub
TextBox1.Tag = 1
If Len(Replace(TextBox1, vbCrLf, "")) Mod 5 = 0 And Len(TextBox1) > 0 Then
TextBox1 = TextBox1 + vbCrLf
End If
TextBox1.Tag = ""
End Sub
Hier wird ja automatisch ne neue Zeile begonnen, wenn das 5 Zeichen erreicht ist.
Jetzt gehen wir mal wieder die Pferde durch und habe folgende Frage:
Wäre es möglich, sagen wir mal nach dem 100sten Zeichen in der Textbox, ne Anweisung zu geben, wo ist das letzte Leerzeichen VOR dem 100sten Zeichen und beginne dann nach dem Leerzeichen eine neue Zelle?
Ja in der Art wie n automatischer Zeilenumsprung
Mir fehlt leider das Wissen dazu soetwas zu kreieren, von euch vllt jemand dabei?
LG Gerhard