Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

String in einzelne Buchstaben bzw. Ziffern zerlegen

415 views
Skip to first unread message

Andre Fischer

unread,
Sep 10, 2004, 8:24:34 AM9/10/04
to
Hi ich würde gerne einen string in jede einzelne ziffer zerlegen.
Z.b. String="abc123" -- > a-b-c-1-2-3
bzw. 2 strings miteinander Verketten:

str1="ABC"
str2="XYZ"

Ergebnis: AXAYAZBXBYBZCXCYCZ"
jmd. eine Idee, wie das geht?

Frank Kabel

unread,
Sep 10, 2004, 8:47:34 AM9/10/04
to
Hi
1. Thema:
String in Zelle A1:
In Zelle B1 folgende Formel eingeben:
=TEIL($A$1;ZEILE(1:1);1)
und nach rechts kopieren

2. Verketten:
=A1 & B1

>-----Originalnachricht-----

>.
>

Andrea Stein

unread,
Sep 10, 2004, 8:58:42 AM9/10/04
to
Frank Kabel wrote:
> Hi
> 1. Thema:
> String in Zelle A1:
> In Zelle B1 folgende Formel eingeben:
> =TEIL($A$1;ZEILE(1:1);1)
> und nach rechts kopieren
>
> 2. Verketten:
> =A1 & B1
>
THX aber nicht ganz, was ich wollte.
1. ich brauche ein VBA Makro
2. Zelle A1 = ABC
3. Zelle B1 = XYZ
4. Zelle C1= jeder Buchstabe mit jedem einmal verkettet.

Melanie Breden

unread,
Sep 10, 2004, 9:55:05 AM9/10/04
to
Hallo Andre,

Andre Fischer schrieb:

versuchs mal mit folgedner Prozedur:

Public Sub Verketten()
Dim str1 As String
Dim str2 As String
Dim strNeu As String
Dim int1 As Integer
Dim int2 As Integer

str1 = Range("A1").Value
str2 = Range("A2").Value

For int1 = 1 To Len(str1)
For int2 = 1 To Len(str2)
strNeu = strNeu & VBA.Mid(str1, int1, 1) & VBA.Mid(str2, int2, 1)
Next int2
Next int1

MsgBox strNeu
End Sub

--
Mit freundlichen Grüssen

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)
#Excel-Auftragsprogrammierung#

Melanie Breden

unread,
Sep 10, 2004, 10:06:16 AM9/10/04
to
Hallo Andre,
>
> Andre Fischer schrieb:
>> Hi ich würde gerne einen string in jede einzelne ziffer zerlegen.
>> Z.b. String="abc123" -- > a-b-c-1-2-3
>> bzw. 2 strings miteinander Verketten:
>>
>> str1="ABC"
>> str2="XYZ"
>>
>> Ergebnis: AXAYAZBXBYBZCXCYCZ"
>> jmd. eine Idee, wie das geht?

man kann aus der Prozedur auch eine Funktion machen, die dann auch aus dem
Tabellenblatt heraus aufgerufen wird:

Public Function MeinVerketten(str1 As String, str2 As String) As String


Dim int1 As Integer
Dim int2 As Integer

For int1 = 1 To Len(str1)


For int2 = 1 To Len(str2)

MeinVerketten = MeinVerketten & _
VBA.Mid(str1, int1, 1) & _


VBA.Mid(str2, int2, 1)
Next int2
Next int1

End Function

Mit VBA aufrufen:
Debug.Print MeinVerketten("ABC", "XYZ")

Als Tabellenblatt-Funktion in C1:
=MeinVerketten(A1;B1)

0 new messages