Excel-Eine Spalte auf mehrere aufteilen

Dieses Thema im Forum "Office-Programme" wurde erstellt von KiWelle, 12. November 2002.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. KiWelle

    KiWelle ROM

    Registriert seit:
    11. November 2002
    Beiträge:
    7
    Ist es möglich in Excel den Inhalt von einer Spalte (z.B. blau/gelb/grün , oder blau-gelb-grün) auf drei Spalten zu verteilen (Spalte 1:blau , Spalte 2:gelb,Spalte3:grün)? Gibt es da einen Excel befehl, ein tool o.ä.?
     
  2. Geertakw

    Geertakw Kbyte

    Registriert seit:
    25. Februar 2001
    Beiträge:
    418
    Folgender Makro durchsucht die Spalte bis zur ersten leeren
    Zelle, trennt bei "/" und /oder "-" und verteilt die Bruchstücke
    nahezu unbegrenzt ( max 255 aus Spalte 1 )
    erste Zelle markieren - Makro starten und - wusch ( zumindest
    bei meinen Experimenten

    Sub trennen()
    Do
    If IsEmpty(ActiveCell) Then Exit Sub
    Texta = ActiveCell.Value
    ofs = 1
    Do
    i = InStr(1, Texta, "/")
    ii = InStr(1, Texta, "-")
    If ((ii < i) And (ii <> 0)) Or (i = 0) Then i = ii
    If i = 0 Then
    ActiveCell.Offset(0, ofs).Value = Texta
    Exit Do
    End If
    Textb = Left(Texta, i - 1)
    ActiveCell.Offset(0, ofs).Value = Textb
    ofs = ofs + 1
    Texta = Mid(Texta, i + 1)
    Loop
    ActiveCell.Offset(1, 0).Activate
    Loop
    End Sub

    Hoffe es hilft
    Geert
    [Diese Nachricht wurde von Geertakw am 12.11.2002 | 20:14 geändert.]
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen