Frage zu Makro-Anpassung
04.03.2013 18:32:33
Tim
ich habe eine Tabelle mit bestimmten Bildnamen in Spalte A und dazugehörigen Suchbegriffen in Spalte B.
Die Zellen in Spalte B können dabei beliebig viele Begriffe enthalten, die jeweils durch ein Komma und Leerzeichen voneinander getrennt sind.
Nun such ich nach einem Weg, die Begriffe aus Spalte B jeweils in einzelne Zellen untereinander zu schreiben und dabei weiterhin in Spalte A den jeweiligen Bildnamen anzuzeigen.
Für das Aufschlüsseln von Spalte B habe ich bislang folgenden Code, ich weiss jedoch nicht, wie ich die Bildnamen aus Spalte A entsprechend zuordnen kann.
Beispiel:
- in A1 steht "Bildname 100"
- in B1 steht "100, haus, grün"
gesuchte Lösung:
- Zeile 1: A1: Bildname 100 - B1: 100
- Zeile 2: A2: Bildname 100 - B2: haus
- Zeile 3: A3: Bildname 100 - B3: grün
Sub ausgabe_in_Zeilen() Dim text As Variant, ii As Integer, izeil As Integer, azeil As Integer azeil = 1 For izeil = 1 To 1000 text = Split(Cells(izeil, 2), ", ") For ii = 0 To UBound(text) Cells(azeil, 1) = text(ii) azeil = azeil + 1 Next ii Next izeil End Sub Freue mich über jeden Tipp.
VG und vielen Dank Euch im Voraus,
Tim