Zellen verschmelzen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit Sub Schmelz() Dim strB As String, strZ As String, strE As String Dim zz As Long, bb As Long strB = Cells(2, 2) strZ = Cells(10, 2) For zz = 1 To Len(strZ) If Mid(strZ, zz, 1) = " " Then bb = bb + 1 If bb

Sub tire() Dim strJoin As String, i As Integer For i = 0 To UBound(Split(Trim$(Cells(10, 2)))) strJoin = strJoin & Split(Trim$(Cells(10, 2)))(i) & Mid$(Cells(2, 2), i + 1, 1) Next Cells(7, 5) = strJoin End Sub

Function Leer1(stext As String) As String Dim iCounter As Integer Dim sTxt As String For iCounter = 1 To Len(stext) Step 1 sTxt = sTxt & Mid(stext, iCounter, 1) & " " Next iCounter Leer1 = Left(sTxt, Len(sTxt) - 1) End Function

Sub ZerlegB2() Dim strE As String, strA As String, strB As String, zz As Long strE = Cells(6, 5) For zz = 1 To Len(strE) Step 2 strB = strB & Mid$(strE, zz, 1) strA = strA & Mid$(strE, zz + 1, 1) Next zz Cells(2, 2) = strA Cells(8, 2) = strB End Sub

Sub retire() Dim strA As String, strB As String, i As Integer With Cells(6, 5) For i = 1 To Len(.Text) If Mid(.Text, i, 1) = LCase$(Mid(.Text, i, 1)) Then strA = strA & Mid(.Text, i, 1) Else strB = strB & Mid(.Text, i, 1) End If Next End With Cells(2, 2) = strA Cells(8, 2) = strB End Sub

Hi Gerd,
da haben wir uns wohl irgendwie missverstanden. Die Fkt. Trim() kannte ich schon. :-)
Was ich mit meinen beiden Beiträgen zu tire() meinte, erkläre ich vielleicht besser an diesen Beispielen:

	A	B	C	D
1	ABCDE		tire()	Schmelz()
2	1 2	1@2	1A2B	1A2
3	1 2	@1@2	1A2B	A1B2
4	1 2	1@2@	1A2B	1A2B
5	1 2	@1@2@	1A2B	A1B2C
6	1 2	@1@2@@	1A2B	A1B2CD

Formeln der Tabelle

Zelle	Formel
B2	=WECHSELN(A2;" ";"@")
D2	=Schmelz(A$1;A2)

In Spalte A stehen mehr oder weniger Leerzeichen in den Zahlenstrings, sichtbar gemacht in Spalte B.
In Zeile 2 verlängert tire() den String, hängt ein B an, wo kein Leerzeichen ist.
In Zeile 3 löscht tire() das erste Leefrzeichen ohne Ersetzung durch einen Buchstaben,
hängt hinter der 2 einen Buchstaben an, obwohl da kein Leerzeichen ist.
In Zeile 4 haben wir das selbe Ergebnis.
In den Zeilen 5:6 sind die Effekte kombiniert.
Das Ergebnis zum Betreff ("E6 = 1A2B3C4D5E678F9G10H11I12J") ist ok, Aminas Beispiel-Zahlenstring
beginnt mit einer Ziffer und endet mit einem Leerzeichen. Das entspricht hier der Zeile 4.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort - und:; Schönes Wochenende!

'Allgemeines Modul in Datei Option Explicit Public Function Schmelz(sText As String, sZahlen As String) As String Dim zz As Long, bb As Long For zz = 1 To Len(sZahlen) If Mid(sZahlen, zz, 1) = " " Then bb = bb + 1 If bb

Hi Leute (speziell Erich, Gerd & Franz);
ist euch schon mal in den Sinn gekommen, dass es sich bei Aminas Aufgabe um ein ganz allgemeines Textverkettungsproblem handelt? Dafür ist hier schon mal vor Zeiten die udFkt VERKETTEN.xyz (weiß nicht mehr was xyz war) bzw VERKETTEN2 vorgestellt worden, denn im Grunde handelt es sich um 3 Aufgaben:
1. Erzeuge Einzelzeichen-Datenfelder aus mehreren Zeichenfolgen!
2. Kombiniere diese Datenfelder elementweise!
3. Fasse das Ergebnisdatenfeld zu einer Zeichenfolge zusammen!
Das könnte man also auch ganz normal mit Textverarbeitungsfktt im TabBlatt erledigen (wie es ja auch die grdlegende Intention eines jeden KalkPgms ist), wenn es die entsprechenden Fktt denn gäbe! In Xl ist das nicht der Fall, aber in bzw mit VBA ist das möglich. Also wäre es doch viel angebrachter, 2-3 udFktt zu schreiben, die allgemein angewendet wdn können, und die dann in einer ZellFml zusammenzufassen, als die xte Insellösung für eine spezielle Problemausprägung zu liefern. Das ist kaum rationell und letztlich dann wohl doch für die Tonne…
Xl ist ein KalkPgm, das auf ZellFmln aufbaut, die auch Fktt enthalten können. Also muss ein HptAnliegen der VBA-Anwendung die Schaffung sinnvoller zusätzlicher Fktt sein; ein anderes bleibt natürlich die Gestaltung bzw Automatisierung komplexer Abläufe, wie es am Bsp der MS-Analyse-Tools auch gut zu sehen ist (ohne jetzt auf die oft diskutierten anderen, damit verbundenen Probleme eingehen zu wollen!).
Sieht man mal über den MS-Tellerrand hinaus, lassen sich in anderer Software oft viel mehr sinnvolle Textverarbeitungsfktt finden als MS uns in Xl zugestehen will. Dank des Wunsches, so etwas auch in Xl zV haben zu wollen, habe ich mal begonnen, mich für udFktt zu interessieren…
Aber zurück zum Thema →
1. erledigt die vbFkt Split, die man in einer udF so einsetzen kann, dass auch Zeichenfolgen ohne Trennzeichen auf verschiedene, zu parametrierende Weise zerlegt wdn können.
2. erledigt die xlFkt VERKETTEN.
3. erledigt die o.g. spezielle VERKETTEN-Variante oder eine udF auf der Basis der vbFkt Join, die ebenfalls durch spezielle Parameter erweitert wdn kann. Bei Join muss allerdings beachtet wdn, dass nur horizontale (1dimensionale) Vektoren verarbeitet wdn können. Also muss uU MTRANS zusätzlich eingesetzt wdn.
Damit gäbe es dann eine FmlLösung aus xl- u. udFktt, die flexibel und allgemein einsetzbar ist.
Gruß+schöWE, Luc :-?

Beliebteste Forumthreads (12 Monate)

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread