ich habe folgenden Code:
Dim Pos As Integer, Cell As Range, ii As Integer
Const Sep = ";"
Cells.Select
Selection.Copy
Sheets("Branchen").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Columns("C:C").Select
For Each Cell In Selection
ii = 0
Pos = InStr(Cell, Sep)
While Pos > 0
ii = ii + 1
If Pos Cell.Offset(ii, 0).EntireRow.Insert
Cell.Offset(ii, 0) = Mid(Cell, Pos + 1)
End If
Cell = Left(Cell, Pos - 1)
Pos = InStr(Cell, Sep)
Wend
Next
End Sub
Damit kopiere ich eine Tabelle in ein anderes Blatt und separiere die Werte in Spalte C, die mit ";" voneinander getrennt sind.
Die Werte werden jeweils untereinander geschrieben ohne jedoch die anderen Zellen mitzukopieren.
Wie schaffe ich es, dass die Spalte C separiert wird und gleichzeitig die anderen Spalten mitkopiert werden.
Danke im Voraus
Gruss,
Philip