Daten einer Spalte in mehrere Aufteilen

Hallo Zusammen

Ich bin grad an einer etwas kniffligen Sache für unsere Grafikabteilung dran: Aus unserem ERP kann ich die meisten Daten als einzelne Spalten exportieren. Jedoch für die Produkteigenschaften (in der Beispieldatei Kriterium genannt) kann ich diese nur in einer Spalte kommagetrennt exportieren. Zum Beispiel: Kriterium1, Kriterium3, Kriterium4, Kriterium6, Kriterium7.
Nun möchte unsere Grafikerin für die 7 Kriterien jeweils einen Bildpfad ausgegeben haben, jedoch so, dass wenn, wie im Beispiel, Kriterium1 gefolgt wird von Kriterium3 dies in zwei separaten Spalten, aber ohne leerspalte ausgegeben wird (Die Beispieldatei zeigt das besser als dass ich es umschreiben kann).
Die Umwandlung von Kriterium zu Bildpfad ist ja an sich keine Sache (Quasi eine Formel welche Kriterium1 durch den Bildpfad ersetzt). Wo ich jedoch scheitere, ist an der Ausgabe in separate Spalten ohne Leerspalten dazwischen.
Hier gehts zur Beispieldatei: https://www.herber.de/bbs/user/158683.xlsx
Könnt Ihr mir da weiterhelfen?

Cheers

Dominik

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Dominik! Ich habe dir mit diesem Code die Trennung der Kriterien erstellt.

Sub TextTrennen()
    Dim LastRow As Long ' Variable, um die letzte Zeile in Spalte B zu speichern
    Dim i As Long, j As Long ' Variablen, die später im Code als Zähler verwendet werden
    Dim arr() As String ' String-Array, das später verwendet wird, um den Text in separate Werte zu trennen
    
    ' Ermitteln der letzten Zeile in Spalte B
    LastRow = Cells(Rows.Count, "B").End(xlUp).Row
    
    ' Schleife durch alle Zeilen in Spalte B von Zeile 2 bis zur letzten besetzten Zeile
    For i = 2 To LastRow
        ' Überprüfen, ob die Zelle in Spalte B leer ist oder nicht
        If Cells(i, "B").Value > "" Then
            ' Trennen des Texts in separate Werte auf der Grundlage des Kommas
            arr = Split(Cells(i, "B").Value, ",")
            ' Schleife durch jeden Wert im Array und Hinzufügen von "Bildpfad" vor jedem Wert
            For j = LBound(arr) To UBound(arr)
                Cells(i, j + 3).Value = "Bildpfad" & arr(j)
            Next j
        End If
    Next i
End Sub

Beliebteste Forumthreads (12 Monate)

Daten einer Spalte in mehrere Aufteilen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten einer Spalte in mehrere Aufteilen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread