1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Excel-Eine Spalte auf mehrere aufteilen

Discussion in 'Office-Programme' started by KiWelle, Nov 12, 2002.

Thread Status:
Not open for further replies.
  1. KiWelle

    KiWelle ROM

    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.ä.?
     
    KiWelle, Nov 12, 2002
    #1
  2. Geertakw

    Geertakw Kbyte

    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.]
     
    Geertakw, Nov 12, 2002
    #2
Thread Status:
Not open for further replies.

Share This Page