VBA Zellenbereich A,B;C;D Text mit Zellu

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub hans() Dim vntARR, vntTMP(1 To 4) Dim strOUT Dim i As Integer, j As Integer Dim lROW As Long For lROW = 4 To Cells(Rows.Count, 3).End(xlUp).Row vntARR = Cells(lROW, 3).Resize(, 4) For i = 1 To 4 vntTMP(i) = Split(vntARR(1, i), vbLf) Next For i = LBound(vntTMP(1)) To UBound(vntTMP(1)) If Len(strOUT) Then strOUT = strOUT & vbLf For j = 1 To 4 strOUT = strOUT & vntTMP(j)(i) Next j Next i Cells(lROW, 7) = strOUT strOUT = vbNullString Next lROW End Sub

Hallo an allen,
Oberschlumpf
1) Ja kommen aus den Ausland :-)
2) (dabei ist Hans ein so deutscher Name :-) ) aber noch lustiger der richtige Vornahme ist Hubertus Maria mehr deutsch geht bald nicht mehr :-) )
Aber sieht mein Kindheit ist der Rufname Hans :-) in mein Land gibt's dass öfters Offiziele Namen und Rufnamen die nicht im AUsweis eingetragen sind.
Aber zur info kommen aus den Tulpen & Klumpen Land, klein aber Fein. Leben aber im Deutschland größ und Fein nur die Spräche ist grammtisch nicht einfach :-')
Pierre:
Richtig wiedererkannt
Ich bemühe mich echt, klar kann ich ich Text in Wort eingeben und das wieder kopieren aber das macht eigentlich das originale weg.
Boris
Das hast du richtig wiedererkannt
Rudi Maintaire
Hab dein Code soeben getestet tut genau das reinkopieren in einer Zelle Super.
Aber 2 Sachen sind mir aufgefallen
1) wenn Spalte F name P2 aber auch diiese Spalte kein wert enthalt, dann kommt ein Meldung: Laufzeitfehler 9 index außerhalb des gültigen Bereichs.
") in mein Beispiel mappe hab ich alle | Pipes untereinander angeordnet sodasas es einigermaße tabellarisch aussieht.
Also knobel aufgaben für euch Excel cracks :-) kann mann dass an der hand vom Trennzeichen | so hinbekommen das die am | untereinander ausgerichtet werden.
problem ist natürlich die unterschiedelichen zeichen länge......
Und beste Dank für euere unterstutzung und verständnis
Hans
Hubertus Maria :-)

Sub hans() Dim vntARR, vntTMP(1 To 4) Dim strOUT Dim i As Integer, j As Integer Dim lROW As Long Dim lMax(1 To 4) For lROW = 4 To Cells(Rows.Count, 3).End(xlUp).Row vntARR = Cells(lROW, 3).Resize(, 4) For i = 1 To UBound(vntARR, 2) If Len(vntARR(1, i)) Then vntTMP(i) = Split(vntARR(1, i), vbLf) For j = LBound(vntTMP(i)) To UBound(vntTMP(i)) lMax(i) = Application.Max(lMax(i), Len(vntTMP(i)(j))) Next End If Next For i = LBound(vntTMP(1)) To UBound(vntTMP(1)) If Len(strOUT) Then strOUT = strOUT & vbLf For j = 1 To UBound(vntARR, 2) If Len(vntARR(1, j)) Then strOUT = strOUT & Left(vntTMP(j)(i) & String(lMax(j), " "), lMax(j) + 2) End If Next j Next i With Cells(lROW, 7) .Value = strOUT .Font.Name = "Courier new" End With strOUT = vbNullString Next lROW End Sub

Hallo Rudi,
Das sieht ja verdammt gut aus, aber die Ausrichtung an den Pipes klappt nur mit einer nichtproportionalen Schriftart (z.B. Courier New) vernünftig.
Da hat leider die weiterverarneitung Schwerigkeiten gegeben:-(
Da bin ich noch etwas rechachieren gegangen, und hab folgenden Artikel gefunden


https://www.pcwelt-forum.de/threads/vba-aufteilen-nach-zeichenanzahl.484638/index.html

hat eigentlich nicht direkt mit mein Problem zutun aber es hat mich auf ein idee gebracht.
befüh
Git es die möglichkeit anzahl Zeichen je spalte auszulesen, also Spalte C hat 9 Zeichen text und nach Zeichen 11 kommt dan trennzeichen | PIPE dan nächste Spalte inhalt einlesen die hat Zb, max 19 Zeichen dan wieder | PIPE und so alle 4 Spalten
Maximal Zeichenlänge inkl. Leerzeichen Spalten:
Spalten C: 11 Zeichen erste Zeichen | PIPE
Spalten D: 19 Zeichen erste Zeichen | PIPE
Spalten E: 12 Zeichen erste Zeichen | PIPE
Spalten F: 12 Zeichen erste Zeichen | PIPE
und das alles wieder in einen Zelle einfügen
Die PIPE Zeichen in Spalten können auch über VBA gesetzt werden, in der Formel womit die jetzt erstelt werden kann ich das herausnehmen.
Es ist nur ein gedanke ansatz stecke leider nicht zu tief in VBA materie rein.
Bg Hans

Beliebteste Forumthreads (12 Monate)

VBA Zellenbereich A,B;C;D Text mit Zellu

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

174 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Zellenbereich A,B;C;D Text mit Zellu

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

174 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread