Thema Datum  Von Nutzer Rating
Antwort
05.01.2021 19:42:53 Miguel
Solved
05.01.2021 22:29:51 Gast15345
NotSolved
05.01.2021 22:49:25 Gast90085
NotSolved
06.01.2021 00:43:15 Gast65721
NotSolved
Rot Array mit Schleifen
06.01.2021 20:16:40 Miguel
Solved

Ansicht des Beitrags:
Von:
Miguel
Datum:
06.01.2021 20:16:40
Views:
512
Rating: Antwort:
 Nein
Thema:
Array mit Schleifen

Juhu, ich hab's...vermutlich nicht die elegantste mögliche Lösung, aber es funktioniert. Nur wenn ich dran denke, da irgendwann mal was dran anpassen zu müssen, wird mir schlecht...

Option Explicit
Private Sub CommandButton1_Click()

Dim Text1 As String
Dim Text2 As String
Dim Textfeld1 As Variant
Dim Textfeld2 As Variant
Dim Variable1 As Integer
Dim Variable2 As Integer
Dim Variable3 As Integer
Dim Variable4 As Integer
Dim Variable5 As Integer
Dim Variable6 As Integer
Dim Variable7 As Integer
Dim Variable8 As Integer

UserForm1.Hide

ThisWorkbook.Worksheets("Tabelle1").Cells.ClearContents

Text1 = WorksheetFunction.Substitute(UserForm1.TextBox1.Text, vbLf, "")
Textfeld1 = Split(Text1, vbCr)

Variable2 = 0

For Variable1 = 0 To UBound(Textfeld1)

    Variable2 = Variable2 + 1

    Text2 = Textfeld1(Variable1)
    Textfeld2 = Split(Text2, " ")

    Variable5 = 0
    Variable6 = 0

    Variable7 = UBound(Textfeld2)

    For Variable3 = Variable5 To Variable7

        ThisWorkbook.Worksheets("Tabelle1").Range("A" & Variable2) = ThisWorkbook.Worksheets("Tabelle1").Range("A" & Variable2) & Textfeld2(Variable3) & " "
        ThisWorkbook.Worksheets("Tabelle1").Columns("A:A").EntireColumn.AutoFit

        If ThisWorkbook.Worksheets("Tabelle1").Columns("A:A").ColumnWidth > 27.86 Then

            Variable8 = Variable3 - 1
            ThisWorkbook.Worksheets("Tabelle1").Range("A" & Variable2) = ""

            For Variable4 = Variable6 To Variable8

                ThisWorkbook.Worksheets("Tabelle1").Range("A" & Variable2) = ThisWorkbook.Worksheets("Tabelle1").Range("A" & Variable2) & Textfeld2(Variable4) & " "

            Next Variable4

            Variable6 = Variable8 + 1
            Variable3 = Variable3 - 1
            Variable2 = Variable2 + 1

        End If

    Next Variable3

Next Variable1

ThisWorkbook.Worksheets("Tabelle1").Cells.WrapText = False

ThisWorkbook.Worksheets("Tabelle1").Cells.ColumnWidth = 10.71

End Sub

 

Es nimmt Absätze mit und generiert einen Zeilenumbruch beim eingestellten Wert (hier: 27.86).

 

Hallo. Ich bin ein kleiner
Blindtext. Und zwar schon so
lange ich denken kann.  

Es war nicht leicht zu
verstehen, was es bedeutet, ein
blinder Text zu sein: Man ergibt
keinen Sinn. Wirklich keinen
Sinn. Man wird
zusammenhangslos
eingeschoben und rumgedreht –
und oftmals gar nicht erst
gelesen. Aber bin ich allein
deshalb ein schlechterer Text
als andere?  

Na gut, ich werde nie in den
Bestsellerlisten stehen. Aber
andere Texte schaffen das auch
nicht. Und darum stört es mich
nicht besonders blind zu sein.
Und sollten Sie diese Zeilen
noch immer lesen, so habe ich
als kleiner Blindtext etwas
geschafft, wovon all die richtigen
und wichtigen Texte meist nur
träumen.


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
05.01.2021 19:42:53 Miguel
Solved
05.01.2021 22:29:51 Gast15345
NotSolved
05.01.2021 22:49:25 Gast90085
NotSolved
06.01.2021 00:43:15 Gast65721
NotSolved
Rot Array mit Schleifen
06.01.2021 20:16:40 Miguel
Solved