Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Script für =TEXTKETTE
24.06.2022 15:23:09 AT
NotSolved
25.06.2022 21:27:53 Gast7777
NotSolved
28.06.2022 15:26:38 Gast33816
NotSolved

Ansicht des Beitrags:
Von:
AT
Datum:
24.06.2022 15:23:09
Views:
657
Rating: Antwort:
  Ja
Thema:
VBA Script für =TEXTKETTE

Hallo,

ich suche nach einer Lösung um die Formel =TEXTKETTE möglichst "automatisiert" zu ersetzen.
In einer Tabelle sind folgende Werte vorhanden:

1 A B C
2 ABC074_28P https://xyz.de/ABC074_28P_P_1.jpg  
3   https://xyz.de/ABC074_28P_P_2.jpg  
4   https://xyz.de/ABC074_28P_P_3.jpg  
5   https://xyz.de/ABC074_28P_P_4.jpg  
6 ABC074_800 https://xyz.de/ABC074_800_P_1.jpg  
7   https://xyz.de/ABC074_800_P_2.jpg  
8   https://xyz.de/ABC074_800_P_3.jpg  
9   https://xyz.de/ABC074_800_P_4.jpg  
10   https://xyz.de/ABC074_800_P_5.jpg  
11   https://xyz.de/ABC074_800_P_6.jpg  
12 ABC074_J9N https://xyz.de/ABC074_J9N_P_1.jpg  
13   https://xyz.de/ABC074_J9N_P_2.jpg  
14   https://xyz.de/ABC074_J9N_P_3.jpg  
15      
16      

In Spalte A befinden sich Artikelnummern. "ABC074" steht für den Artikel "_" ist ein Trennzeichen und "J9N" beispielsweise die Artikelvariante. Es gibt also immer mehrere Varianten eines Artikels. 

In Spalte B befinden sich die URLs der Artikelbilder. Diese setzen sich aus Artikelnummer und Artikelvariante und einer Bildnummer P_1, P_2, P_3,… zusammen.

Es soll folgendes erreicht/umformatiert werden:

1 A B C
2 ABC074_28P   https://xyz.de/ABC074_28P_P_1.jpg https://xyz.de/ABC074_28P_P_2.jpg https://xyz.de/ABC074_28P_P_3.jpg https://xyz.de/ABC074_28P_P_4.jpg https://xyz.de/ABC074_800_P_1.jpg https://xyz.de/ABC074_800_P_2.jpg (...) https://xyz.de/ABC074_J9N_P_3.jpg
3      
4      
5      
6      
7      
8      
9      
10      
11      
12      
13      
14      
15      
16      

Alle in Spalte B vorhandenen URLs zum jeweiligen Artikel sollen in eine Zelle kopiert werden. Jeweils mit einem Leerzeichen dazwischen. Nur die erste Artikelnummer soll in Spalte A bleiben. Alle anderen Artikelnummern können gelöscht werden. (Das kann notfalls auch manuell geschehen.) Es sollen also auch die Bilder der Artikel der anderen Artikelvarianten _800 _J9N dem ersten Artikel zugeordnet werden.

Im Beispiel oben habe ich jetzt nicht alle URLs kopiert, da das sonst die Tabelle hier zu unübersichtlich machen würde. 

Bisher habe ich das über die Formel =TEXTKETTE gelöst z.B. =TEXTKETTE(B2:B16) dem Artikel in A2 zugeordnet.
Da es sich um eine Vielzahl von Artikeln mit unterschiedlichen Varianten handelt, ist der Aufwand mit der Formel TEXTKETTE jedoch sehr hoch.
Lässt sich das automatisieren?

Die Artikelnummern lauten immer unterschiedlich. Die Varianten können jedoch zum Teil gleich lauten ob wohl es unterschiedliche Artikel sind. Also z.B. ABC074_28P aber auch ABC132_28P. Hier darf es zu keinen "Verwechslungen", falschen Zuordnungen kommen, da es eben unterschieldiche Artikel sind.

Es müsste also eine Art Funktion sein wie: "WENN" ABC074 in Spalte B (also im Dateinamen) "DANN" kopiere den Zelleninhalt in Spalte C "WENN" in Spalte A ebenfalls ABC074 steht. 

Wie gesagt, um das etwas zu entschärfen könnte man all Artikelvarianten also _28P usw. auch manuell entfernen, das wäre noch vertretbar. Dann wäre in Spalte A immer nur einmal eine eindeutige Artikelnummer (ohne Variante) auf die man dann "matchen" könnte.

Gibt es da eine Lösung?

Vielen Dank und beste Grüße

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Script für =TEXTKETTE
24.06.2022 15:23:09 AT
NotSolved
25.06.2022 21:27:53 Gast7777
NotSolved
28.06.2022 15:26:38 Gast33816
NotSolved