Office: Fehlende Zeichen einfügen

Hallo VBA Kollegen!

Ich habe wieder einmal ein kleines Problem.

Ich muss im String1 mit einem anderen String2 vergleichen und die Buchstaben die im String2 aber nicht im String1 vorhanden sind ergänzen.

Beispiel:
String1 = S / B
String2 = S / R

Neuer String1 oder neuer String wäre somit = S / B / R

Wie kann ich das anstellen?
Erschwerend kommt noch hinzu, dass die Strings bis zu 4 Buchstaben lang sind.
Beispiel: S / B / R / Z oder mit 3 Buchstaben B / R / Z usw.

Immer müssen die Fehlenden Buchstaben ergänzt werden.

Bitte um eure Hilfe!
Danke

 

Hi,

anhand deiner Beispielstrings (Teile immer getrennt durch " / ") könnte man das so lösen:

Code:

Dim a As String, b As String
Dim c
Dim i As Long
a = "a / B / C"
b = "a / E"
c = Split(b, " / ")
For i = 0 To UBound(c)
    If Not (InStr(a, c(i)) > 0) Then
        a = Join(Array(a, c(i)), " / ")
    End If
Next i
Debug.Print a

 

Moin

Code:

=TEXTVERKETTEN(" / ";WAHR;EINDEUTIG(ZUSPALTE(WENNFEHLER(WEGLASSEN(REDUCE(0;A3:INDEX(A3:A4;ANZAHL2(A3:A4));LAMBDA(a;b;VSTAPELN(a;TEXTTEILEN(b;" / "))));1);""))))

Hier geklaut.
Combining TEXTSPLIT with BYROW to return a spilled array

 

Moin,

wenn die Strings z.B. in A1 und in B1 stehen, dann sollte dies schon reichen:

=TEXTVERKETTEN(" / ";;EINDEUTIG(HSTAPELN(TEXTTEILEN(A1;" / ");TEXTTEILEN(B1;" / "));1))

 

Guten Morgen!

Ich habe vergessen zu erwähnen, dass die Daten und Berechnungen ausschließlich in einer Userform stattfinden. Alle Daten werden aus Comboboxen oder Textfelder genommen.

Die Version vom HKindler funktioniert sehr gut. Danke dafür.

Eine Bitte hätte ich noch!
Kann man die Zeichenfolge in eine bestimmte Reihung bekommen? D.H Das Ergebnis aus der Schleife ist: S / R / B
Damit aber die richtigen Textfelder sichtbar werden brauche ich eine genaue Reihenfolge. In diesem Fall dann: S / B / R.

Ich dachte daran die Buchstaben in eine Zahl umzuwandeln und dann aufsteigend sortieren.
Oder hat von euch wer eine andere Idee?

Grüße
Klaus

 

Eine sortierte Reihenfolge wäre aber B / R / S.

 

Hallo DL_

Alphabetisch stimmt das natürlich. Es handelt sich hierbei aber um Kürzel von Arbeitsschritten und die haben diese Reihenfolge.

 

Die Schatzi-Variante sorgt dafür, dass die nicht vorhandenen in 1 aus 2 unsortiert angehängt werden. Wie gesagt: Angehängt. Mehr kann Excel hier nicht ahnen.

 

Hi,

man kann im Grunde jede Excel-Gleichung in VBA verwenden. Die Formel von Schatzi ergibt in VBA

Code:

Dim a
a = Evaluate("=TEXTJOIN("" / "",,UNIQUE(HSTACK(TEXTSPLIT(A1,"" / ""),TEXTSPLIT(B1,"" / "")),1))")

Also im Grunde einfach nur die englische Formel mit verdoppelten "-Zeichen und Evaluate("...") drum herum.
Wenn jetzt noch sortiert werden soll, dann wäre das in Excel:

Code:

=TEXTVERKETTEN(" / ";;LET(a;EINDEUTIG(VSTAPELN(TEXTTEILEN(A1;;" / ");TEXTTEILEN(B1;;" / ")));b;{"S";"B";"R"};c;XVERGLEICH(a;b);d;HSTAPELN(c;a);e;SORTIEREN(d);WEGLASSEN(e;;1)))

Man beachte, dass ich die vorherige horizontale Verarbeitung wegen der Sortierung auf vertikale umgestellt habe.
in VBA wäre das dann

Code:

Dim a
a = Evaluate("=TEXTJOIN("" / "",,LET(a,UNIQUE(VSTACK(TEXTSPLIT(A1,,"" / ""),TEXTSPLIT(B1,,"" / ""))),b,{""S"",""B"",""R""},c,XMATCH(a,b),d,HSTACK(c,a),e,SORT(d),DROP(e,,1)))")

oder ausführlich und mit Strings statt Zellen

Code:

Const t As String = """ / """    'Trennzeichen
Const s As String = "{""S"", ""B"", ""R""}"   'Reihenfolge
Dim a As String, b As String
Dim c
a = "S / R"
b = "R / B"
c = "=TEXTJOIN(" & t & ",,LET(a,UNIQUE(VSTACK(TEXTSPLIT(""" & a & """,," & t & "),TEXTSPLIT(""" & b & """,," & t & "))),b," & s & ",c,XMATCH(a,b),d,HSTACK(c,a),e,SORT(d),DROP(e,,1)))"
c = Evaluate(c)
Debug.Print c

Alternative ginge auch als Formel

Code:

=TEXTVERKETTEN(" / ";;LET(a;EINDEUTIG(VSTAPELN(TEXTTEILEN(A1;;" / ");TEXTTEILEN(B1;;" / ")));b;"SBR";c;SUCHEN(a;b);d;HSTAPELN(c;a);e;SORTIEREN(d);WEGLASSEN(e;;1)))

und als Code

Code:

Const t As String = """ / """
Const s As String = """SBR"""
Dim a As String, b As String
Dim c
a = "S / R"
b = "R / B"
c = "=TEXTJOIN(" & t & ",,LET(a,UNIQUE(VSTACK(TEXTSPLIT(""" & a & """,," & t & "),TEXTSPLIT(""" & b & """,," & t & "))),b," & s & ",c,SEARCH(a,b),d,HSTACK(c,a),e,SORT(d),DROP(e,,1)))"
c = Evaluate(c)
Debug.Print c

hier habe ich SUCHEN statt XVERGLEICH verwendet, was die Angabe der Reihenfolge bei Einzelbuchstaben vereinfacht.

 

Hallo

Also ich habe mich für die letzte Variante vom HKindler entschieden.

Das funzt genau so wie ich es mir vorgestellt hatte.
Ich zerreiße mir den Kopf seit 3 Tagen.

Ihr seit die Besten.

Danke