Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen separieren

Zellen separieren
14.06.2006 12:59:16
Philip
Hallo Experten,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen separieren
14.06.2006 15:18:32
fcs
Hallo Philip,
folgende Anpassung sollte die Werte in Spalte A und B in die neue Zeile übertragen

If Pos < Len(Cell) Then
Cell.Offset(ii, 0).EntireRow.Insert
Cell.Offset(ii, 0) = Mid(Cell, Pos + 1)
Cell.Offset(ii, -1) = Cell.Offset(ii - 1, -1) ' Wert in Spalte B duplizieren
Cell.Offset(ii, -2) = Cell.Offset(ii - 1, -2) ' Wert in Spalte A duplizieren
End If

mfg
Franz
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige