Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1956to1960
1956to1960
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textbox Text auf Zellen aufteilen

Forumthread: Textbox Text auf Zellen aufteilen

Textbox Text auf Zellen aufteilen
07.01.2024 09:29:58
Mirel
Guten Morgen,
ich versuche den Text einer Userform TextBox auf Zellen auf zu teilen.
Leider wird der Text nicht auf die Zeilen 1 bis 4 aufgeteilt.
Danke!
Gruß
Mirel
https://www.herber.de/bbs/user/165942.xlsm
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbox Text auf Zellen aufteilen
07.01.2024 10:17:43
volti
Hallo Mirel,

der Text wird nicht umgebrochen, weil keine Umbruchzeichen vbCR bzw. vbLF im Text vorhanden sind. Die Textbox macht eine Autoformatierung ohne diese Zeichen.

Du könntest Deinen Text anhand des Punktes umbrechen oder sonst wie.

Tipp: Die Ausgabe des Textes kannst Du anstelle der Schleife auch mit einem Befehl bewerkstelligen. 

Code:


Private Sub CommandButton1_Click()
  Dim sArr() As String
    
  sArr = Split(TextBox1.Text, ". ")
  Cells(1, 2).Resize(UBound(sArr) + 1, 1) = Application.Transpose(sArr)
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz
Anzeige
AW: Textbox Text auf Zellen aufteilen
07.01.2024 10:38:45
Alwin Weisangler
Hallo Mirel,
WordWrap =True setzt automatisch den Zeilenumbruch ohne Umbruchzeichen.
Als kann es so nicht funktionieren.
Man kann es über Umwege er Tricksen.
Berechne entsprechend der Schriftgröße die mögliche Anzahl der Zeichen zur Breite der Textbox.
Dann zerlege den String mit dem Seperator " " (Leerzeichen).
Dann setze den String wieder mit der Grenze der maximalen Zeichenzahl pro Zeile zusammen.
Beispielhaft ohne Berechnung der Zeichenzahl entsprechend der Textboxbreite: 


Private Sub CommandButton1_Click()

    Dim arr, arrOut(), i&, j&, var$, iMax&: iMax = 41

    arr = Split(TextBox1.Text, " ")



    For i = LBound(arr) To UBound(arr)

        If Len(var & arr(i)) = iMax Then

            var = var & arr(i) & " "

        Else

            j = j + 1

            ReDim Preserve arrOut(1 To j)

            arrOut(j) = var

            var = ""

        End If

    Next i

End Sub


Gruß Uwe
Anzeige
AW: Textbox Text auf Zellen aufteilen
07.01.2024 11:53:33
Mirel
Danke!
Werde mir die Code mal vornehmen.
Gruß
Mirel
AW: Textbox Text auf Zellen aufteilen
07.01.2024 11:04:15
Alwin Weisangler
Hallo,
@ Volti hatte den Fehler bemerkt.
Es muss i-1 im Else Zweig korrigiert werden.
Ich hatte aber auch noch den Schluss übergangen.
Mein Machwerk wäre jetzt dahingehend korrigiert. 


Private Sub CommandButton1_Click()

    Dim arr, arrOut(), i&, j&, var$, iMax&: iMax = TextBox1.Width / TextBox1.Font.Size * 2.1

    arr = Split(TextBox1.Text, " ")



    For i = LBound(arr) To UBound(arr)

        If Len(var & arr(i)) = iMax Then

            var = var & arr(i) & " "

        Else

            j = j + 1

            ReDim Preserve arrOut(1 To j)

            arrOut(j) = var

            var = ""

            i = i - 1

        End If

    Next i

    j = j + 1

    ReDim Preserve arrOut(1 To j)

    arrOut(j) = arr(UBound(arr))

End Sub

Gruß Uwe
Anzeige
AW: Textbox Text auf Zellen aufteilen
07.01.2024 11:15:51
volti
Hallo,

an und für sich ein gangbarer Weg. Wenn der Text konstant vorliegt kann man es austüfteln und es klappt so.

Im Worstcase hängt aber viel an umfangreichen i, j,r als Schmalbuchstaben und umfangreichen Großbuchstaben bzw. m, w als Breitbuchstaben.

Ich hatte mich schon öfters mit diesem Thema beschäftigt, bin aber letztendlich für eine gesicherte Ausgabe eines jeglichen Textes oft gescheitert.

Auch z.B. formatierten Text in eine Msgbox zu bringen, basiert ja im Grunde auf dem gleichen Verfahren...
Das habe ich jetzt anders gelöst. (gehört hier aber nicht hin)
https://www.clever-excel-forum.de/Thread-Text-tabelliert-in-MsgBox-anzeigen

Gruß
KH
Anzeige
AW: Textbox Text auf Zellen aufteilen
07.01.2024 10:28:23
volti
Nachtrag:

In diesem Fall sollte die Ausgabe doch per Schleife erfolgen, da ja die Punkte weg sind und wieder angefügt werden müssen.... 

Code:


Private Sub CommandButton1_Click()
  Dim sArr() As String, i As Integer
    
  sArr = Split(TextBox1.Text, ". ")
  For i = 0 To UBound(sArr)
     Cells(i + 1, 2).Value = sArr(i) & IIf(i = UBound(sArr), "", ".")
  Next i
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz
Anzeige
;

Forumthreads zu verwandten Themen

Word-Text auf xls-Zellen verteilen
Florian

Guten Morgen zusammen,
eine Frage: wie kann ich Word-Zeilen auf Excel-Zeilen (einzelne Zellen verteilen)?
Im Word-File habe ich z.B. den Text
Zeile1
Zeile2
Zeile3
untereinanderstehen, jetzt soll "Zeile1" in Zelle A1, "Zeile2" in Zelle B1 usw. stehen. Bsp hängt an.
Da...
18.08.2008 07:29:00
Thread-ID: 1002498
3 Beiträge
Textbox auf UF dann Zellen füllen
Walter

Hall Fachfrauen und Männer,
habe ein kleines Problem bzw. Frage:
Ich habe auf einer UF eine Textbox1 wenn ich einen Wert eingebe z.b. 15,00
dann wird der Wert in meine Tabelle C10 eingesetzt.
Nun möchte ich das der Wert von C10 die Zellen mit dem gleichen Wert bis
C20 ausfül...
30.09.2008 10:27:04
Thread-ID: 1013282
11 Beiträge
Zelle auf Inhalt Text oder Zahl prüfen
Moritz

Hallo,
ich habe eine sehr große Tabelle mit Adressen. Problem ist nur, dass die Straßen, PLZ und so nicht untereinander in einer Spalte stehen sondern alle unterschiedlich verrückt sind je nachdem wie viele Vorname oder Nachnamen jemand hat. Es gibt aber ein einheitliches System. Erst kommt...
30.09.2008 10:36:00
Thread-ID: 1013287
3 Beiträge
Anzeige
Zelleninhalt auf Textteil überprüfen...
Jessi

Hallo zusammen,
ich bin gerade dabei meine Liste mit SVerweisen zu füllen und hänge an einem Problem:
Eine Ausgabe (über SVerweis) liefert einen Wert "String" XY_Text, ALTERN_Text oder MUSTER_Text in einer Zelle
jetzt möchte ich in einer anderen Zelle sagen:
Wenn Zelleninhalt mi...
07.11.2008 12:55:13
Thread-ID: 1022638
2 Beiträge
Zelle auf zwei Bedingen prüfen
Claudia

Guten Tag,
ich habe folgendes Problem:
ich möchte mit einer Schleife den Inhalt von Zellen auf zwei Bedingungen prüfen.
Hier der Code:
Do While Sheets(b).Cells(iDatumRow, i) "Ich" Or "Du"
leider funktioniert er nicht, es klappt nur mit einer Bedingung, also ohne Or "Du"
...
16.06.2009 12:54:36
Thread-ID: 1081854
13 Beiträge
Zelle auf mehrere werte aus tabelle überprüfen
Michael

hallo
für einen script müsste eine zelle a1 dahingehend überprüft werden, ob der dort eingegebene wert identisch ist mit werten, die in b1:b200 stehen. sollte der wert in a1 identisch sein mit einem der werte in b1:b200, wird dann eine if-anweisung ausgeführt.
wie lautet der code für di...
07.08.2009 13:18:50
Thread-ID: 1094283
3 Beiträge
Anzeige
Zelle auf bestimmten Inhalt prüfen
Mandy

Hallo,
ich habe in meinem Excel Sheet sowas wie ein Kopf, wo der User Pflichtfelder ausfüllen MUSS.
Leider ist das Format so blöd, dass gleich 5 Abfragen in einer Zelle gemacht werden.
Die 5 Angaben sind also durch einen Zeilenumbruch innerhalb der Zelle dargestellt, sieht ungefähr...
14.09.2009 10:06:22
Thread-ID: 1102539
7 Beiträge
Anzeige
Hyperlink - TextToDisplay verweis auf Zelle
Andreas

hallo zusammen
diesen code habe ich aus einem makro mit welchem ein inhaltsverzeichnis erstellt wird. nun möchte ich aber anstelle des blattnamens jeweils den wert aus der zelle c14 als text bei «TextToDisplay». ist das möglich? wie müsste die eingabe «wbVerz.Sheets(i).Name» abgeändert werd...
30.09.2009 07:58:20
Thread-ID: 1106316
3 Beiträge
Zelle auf Anzahl Zeichen prüfen
Kai

Hi,
ich möchte im Sheet "Daten" die Zelle A1 prüfen, ob der Inhalt mehr als 35 Zeichen ist, wenn ja, soll eine MsgBox ausgegeben werden.
Wie zähle ich denn die Zeichen per Makro ?
Danke schon mal
Kai
03.11.2009 08:56:05
Thread-ID: 1114000
2 Beiträge
Zelle auf verschiedene Inhalte überprüfen
massimo17

Hallo,
ich möchte gerne eine Zelle auf verschiedene Inhalte überprüfen.
Bisher kann ich nur nach einem Suchen mit folgender Formel:
=WENN(ISTZAHL(SUCHEN("E10";W2));"1";"0")
Also Zelle"W2" nach dem Wert E10 durchsuchen; ich möchte aber dass die Zelle nach E10 oder E11 oder E12 od...
03.12.2009 20:55:44
Thread-ID: 1121687
7 Beiträge
Listbox.text in Zelle einfügen
tobi

Hi,
wie kann ich einener Zelle die Text Eigenschaft eines Listfeldes zuweisen?Thanx Tobi
11.04.2002 13:29:06
Thread-ID: 112425
2 Beiträge
Anzeige
Bereich prüfen ob Wert enthalten oder leer
chris

Hallo Excelprofis und guten morgen,
ich hätte eine frage.Vielleicht könnt ihr mir helfen.
ich möchte gerne einen bereich prüfen ob ein wert vorhanden ist.
Also z.b Bereich A1 bis G1
ich möchte jetzt einfach prüfen ob in einer dieser 7 Zellen prüfen ob ein wert vorhanden/eingetra...
04.03.2010 07:47:03
Thread-ID: 1143197
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige