Ergebnis 1 bis 4 von 4

Thema: Excel - Bestimmten Text automatisch in Spalten

  1. #1
    Tangiert peripher syrius Avatar von Jana-Maria
    Registriert
    Mar 2015
    Beiträge
    1,926
    Gefällt mir!
    478
    Du gefällst: 1,852

    Excel - Bestimmten Text automatisch in Spalten

    Hallo,

    ist es möglich in Excel Text automatisch in Spalten zu trennen.

    zB. hat jede Serie einen bestimmten Releasenamen.

    Tiere.bis.unters.Dach.S03E09.Fuchsjagd.German.WS.D VDRiP.x264-RegeLRechT.mkv
    Hawaii.Fuenf.Null.S06E01.In.verlorenen.Haende.Germ an.DL.FS.DVDRiP.x264-RegeLRechT.mkv
    Shameless.S05E11.Drugs.Actually.GERMAN.DUBBED.WS.H DTVRip.x264-TVP.mkv
    Mr.Selfridge.S03E05.GERMAN.DUBBED.DVDRip.x264-ACED.mkv
    Resurrection.US.S02E02.GERMAN.Dubbed.WEBRiP.x264-idTV.mkv
    Parenthood.S04E07.Der.Soldat.Ryan.York.German.Dubb ed.DVDRip.x264-CRiSP.mkv
    New.Girl.S04E13.Coming.Out.GERMAN.DUBBED.WS.WEBRip .x264-TVP.mkv

    und so weiter.

    Bisher trenne ich von Hand in Excel über Text in Spalten.

    Sieht dann so aus:



    Ist es nicht möglich automatisch zu trennen das gleich alles richtig getrennt ist?
    Geändert von Jana-Maria (01.07.2015 um 15:13 Uhr)
    Du wirst geboren, du frisst Scheiße.
    Du ziehst hinaus in die Welt, frisst noch mehr Scheiße. Kletterst immer höher, du frisst weniger Scheiße.
    Bis du eines Tages die oberste Stufe erreichst und vergessen hast wie Scheiße überhaupt aussieht.


  2. #2
    Ultimatives Spiderschwein Avatar von jbs
    Registriert
    Jun 2015
    Beiträge
    226
    Gefällt mir!
    154
    Du gefällst: 199
    Ich schreib dir n Makro dafür... Moment.

    - - - - - - - - - - Beitrag nachträglich erweitert - - - - - - - - - -

    Ist jetzt zwar nicht das schönste, funktioniert soweit aber.

    Schalt dir mal die Entwicklertools frei:
    • Menü -> Optionen -> gleich auf der ersten Seite sollte was mit Entwicklertools stehen, das anhaken.
    • Dann erhältst du einen neuen Tab namens Entwicklertools. Dort kannst du dann drauf klicken und dir einen Button erstellen.
    • Hinter diesen Button legst du das Makro mit dem Namen Parse_Releases. Anschließend kopierst du den folgenden Code in das neue Fenster rein, das geöffnet wurde (VBA Editor).
    • Dann klickst du im VBA Editor oben auf Extras -> Verweise. Dort suchst du dir Microsoft VBScript Regular Expressions 5.5 raus und setzt einen Haken davor. Das bestätigst du mit OK.
    • Speichern und schon kannst du mit Klick auf den Button die Staffel und Episodennummer automatisch übernehmen.


    Code:
    Sub Parse_Releases()
        Dim i As Long
        
        For i = 1 To Rows.Count
            Dim cellValue As String
            cellValue = Cells(i, 1).Value
            
            If Not IsEmpty(Cells(i, 1).Value) Then
                Dim regEx As New VBScript_RegExp_55.RegExp
                Dim matches, s, match
                regEx.Pattern = "\.S([0-9]{2})E([0-9]{2})\."
                regEx.IgnoreCase = True
                regEx.Global = False
                
                If regEx.Test(cellValue) Then
                    Set matches = regEx.Execute(cellValue)
                    match = matches(0)
                    Dim vals
                    vals = Split(match, "E")
                    
                    Cells(i, 2).Value = Replace(vals(0), ".S", "")
                    Cells(i, 4).Value = Replace(Replace(vals(1), "E", ""), ".", "")
                    
                    'Falls du den Groupnamen auch noch auslesen und in eine Zelle packen willst.
                    'Dim grp As String
                    'Dim strlen As Integer
                    'strlen = Len(cellValue)
                    'grp = Right(cellValue, strlen - InStrRev(cellValue, "-"))
                    
                    'If InStr(grp, ".") Then
                    '    Dim grpval
                    '    grpval = Split(grp, ".")
                    '    grp = grpval(0)
                    'End If
                    
                    'Cells(i, 5) = grp
                End If
            End If
        Next i
    End Sub

  3. Diesen Mitgliedern gefällt dieser Beitrag:


  4. #3
    Tangiert peripher syrius
    THEMENSTARTER

    Avatar von Jana-Maria
    Registriert
    Mar 2015
    Beiträge
    1,926
    Gefällt mir!
    478
    Du gefällst: 1,852
    Geile Sache scheint zu gehen.
    Top danke.
    Du wirst geboren, du frisst Scheiße.
    Du ziehst hinaus in die Welt, frisst noch mehr Scheiße. Kletterst immer höher, du frisst weniger Scheiße.
    Bis du eines Tages die oberste Stufe erreichst und vergessen hast wie Scheiße überhaupt aussieht.


  5. #4
    Ultimatives Spiderschwein Avatar von jbs
    Registriert
    Jun 2015
    Beiträge
    226
    Gefällt mir!
    154
    Du gefällst: 199
    Freut mich. Bei meinen Tests hats einwandfrei geklappt. Falls sonst noch was brauchen solltest -> melden!

Ähnliche Themen

  1. (Sonstige) - Excel - 2 Spalten abgleichen und duplikate entfernen oder markieren
    Von B0nes im Forum Entwicklung / Programmierung
    Antworten: 4
    Letzter Beitrag: 27.06.2015, 07:44
  2. szeneBOX.org will verbinden statt spalten
    Von newsBOX im Forum Datenschutz & Privatsphäre (IT-Security)
    Antworten: 3
    Letzter Beitrag: 14.03.2015, 09:27

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •  
SzeneBox.org... im Mittelpunkt der Szene!
© since 2015 szeneBOX.org - All Rights Reserved
Domains: www.szenebox.org