Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1540to1544
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1540to1544
1540to1544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nach max. 70 Zeichen neue Zeile

Nach max. 70 Zeichen neue Zeile
21.02.2017 15:59:06
belafarinrod666
Hallo zusammen,
ich habe hier eine lange Liste (über 400 Zeilen), Spalte A Bestellnummer, Spalte B Text, Überschrift in Zeile 1.
Nun möchte/muss ich den Text in Spalte B in "Häppchen" à maximal 70 Zeichen aufteilen, jedes "Häppchen" soll in seiner eigenen Zeile stehen (also kein forcierter Zeilenumbruch innerhalb der Zelle). Idealerweise sollte die Aufteilung nicht mitten im Wort sein. Die Bestellnummer in Spalte A sollte dann neben der ersten Zeile des zugehörigen Textes stehen.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nach max. 70 Zeichen neue Zeile
21.02.2017 16:14:32
Daniel
Hi
schön für dich.
Da hast du dir ja einiges vorgenommen.
Was wären denn deine konkreten Fragen?
Gruß Daniel
AW: Nach max. 70 Zeichen neue Zeile
21.02.2017 16:27:17
belafarinrod666
Mmh, lass mich kurz überlegen, ich bin hier in einem Excel-Forum, und ich habe eine Excel-Problemstellung geschildert... Die Frage lautet daher: was soll ich heute zum Abendessen kochen? ;-)
Spaß, beiseite, ich bin natürlich auf der Suche nach einer Lösung für meine Problemstellung, so dass ich die Zellen nicht per mühevoller Handarbeit aufteilen muss...
VG
belafarinrod666
AW: Nach max. 70 Zeichen neue Zeile
21.02.2017 16:58:59
Daniel
probier mal diesen Code:
Sub test()
Dim arrNr
Dim arrTxt
Dim strNr As String
Dim strTxt As String
Dim z As Long
Dim Pos
Dim txt As String
arrNr = Cells(1, 1).CurrentRegion.Columns(1)
arrTxt = Cells(1, 1).CurrentRegion.Columns(2)
For z = 2 To UBound(arrNr, 1)
strNr = strNr & vbLf & arrNr(z, 1)
txt = arrTxt(z, 1)
Pos = 0
Do
Pos = Pos + 70
If Pos > Len(txt) Then Exit Do
Pos = InStrRev(txt, " ", Pos)
Mid(txt, Pos, 1) = vbLf
strNr = strNr & vbLf
Loop
strTxt = strTxt & vbLf & txt
Next
arrNr = Split(strNr, vbLf)
arrTxt = Split(strTxt, vbLf)
arrNr(0) = Cells(1, 1).Value
arrTxt(0) = Cells(1, 2).Value
Cells(1, 1).Resize(UBound(arrNr) + 1, 1).Value = WorksheetFunction.Transpose(arrNr)
Cells(1, 2).Resize(UBound(arrTxt) + 1, 1).Value = WorksheetFunction.Transpose(arrTxt)
End Sub
Gruß Daniel
Anzeige

301 Forumthreads zu ähnlichen Themen

Zeilenumbruch in TextBox
Thomas

Hallo Forum,
hab da mal ne Frage:
Ich hab in einer User Form eine Textbox... ist es möglich diese Textbox mit einem Zeilenumbruch zu versehen? Und wenn ja, wie?
Schon mal Danke im voraus
Thomas
22.10.2008 16:54:11
Thread-ID: 1018407
3 Beiträge
Anzeige
Zeilenumbruch in einer Textbox
Armin

Hallo,
ich bin auf der Suche nach einer Möglichkeit, um in einer Textbox mehrzeiligen TExt zu erfassen. Dabei sollte jedoch ein die Taste "Enter" eine neue Zeile erzeugen.
Leider springt bei Enter der Focus auf das nächste Steuerelement. Derzeit schaffe ich es nur mit Strg + Enter einen...
28.03.2009 10:26:31
Thread-ID: 1064824
6 Beiträge
Zeilenumbruch in textbox
ing.grohn

Hallo Forum,
welches Zeichen muß ich für den Umbruch in der Textbox abfragen?
Für eine Antwort bedanke ich mich.
Mit freundlichen Grüßen
Albrecht Grohn
15.10.2009 17:53:51
Thread-ID: 1109905
9 Beiträge
Anzeige
Zeichen in Strings zählen/finden, neue Zeilen !
Holger

Hallo,
Au Backe. Alles geschaffz, nun eine komplette andere Anforderung.
Ich hoffe, ihr könnt mir helfen.
Innerhalb eine Zeile kann es so einen .Value, also String geben:
BB8520,BB8520BLUE,BB8520LAV,BB8520WHITE
Ich möchte zählen, wieviel Kommas es gibt und den String danach...
22.06.2010 15:38:56
Thread-ID: 1163465
12 Beiträge
Nach x Zeichen neue Zeile in Textbox
Gegga

Hallo da draussen...
2 Fragen:
Habe eine Textbox (TB_SONSTIGES), diese soll "automatisch", schon während der Eingabe, nach 40 Zeichen letzten letzten Leerzeichen automatisch eine neue Zeile beginnen. Nach max. 179 Zeichen sollte eine Message Box aufgehen mit dem Hinweis "Max. Zeichenanz...
06.09.2010 10:36:11
Thread-ID: 1175902
11 Beiträge
VBA Zeilenumbrüch in Zelle auslesen
Georg

Liebe Excellenzen,
ich habe eine aus drei Spalten verbundene Zelle die eine feste Größe hat (Breite und Höhe). In diese Zelle schreibe ich via VBA unterschiedliche Texte. Normalerweise hat die Zelle eine Formatierung von Arial 24. Dann sind 2 Zeilen lesbar bei meiner Zeilenhöhe von 62.
...
17.09.2011 12:03:41
Thread-ID: 1230297
3 Beiträge
Zeilenumbruch in Textbox ergibt Sonderzeichen
Sascha

Hallo liebe Experten.
Ich habe in einer Userform eine Textbox (TB2) bei welcher Multiline und Wordwrap auf True gesetzt sind.
Nun wenn ich einen Text eingebe und einen Zeilenumbruch machen will mit der ENTER-Taste, schreibt es in die definierte Zelle anstatt nur des Zeilenumbruchs ein...
16.01.2012 10:19:48
Thread-ID: 1246334
11 Beiträge
Zeilenumbruch in Userform-Textbox löschen
Rainer Quaas

Hallo Excel-User,wie kann man bei einem Change-Ereignis in einer Userform-Textbox alle Zeilenumbrüche entfernen?Gruß Rainer
31.05.2002 17:39:06
Thread-ID: 125164
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
5
8
4
11
10
2
10
1
2
2
3
4
1
1
6
2
1
7
7
6
4
1
7