Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Text in Zelle aufteilen
Gehe zu Seite 1, 2  Weiter
zurück: Excel Formel - Zeile - BLZ / KTO / Name weiter: bedingte Formatierung ? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
ilo
Gast


Verfasst am:
28. Jul 2004, 12:47
Rufname:

Text in Zelle aufteilen - Text in Zelle aufteilen

Nach oben
       

Hallo
Habe folgendes Problem. In meiner Zelle steht z. B. AB-00-8x1-CD-02
Dies muß ich jetzt trennen und zwar so das in
Zelle 1: AB
Zelle 2: 00
Zelle 3: 8
Zelle 4: 1
Zelle 5: CD
Zelle 6: 02
steht.
Zelle 1 und 6 bekomm ich noch hin. Aber wie lese ich Zeichen in der Mitte aus?
xpecidy
.:: Excelist ::.


Verfasst am:
28. Jul 2004, 12:51
Rufname:
Wohnort: Dresden


AW: Text in Zelle aufteilen - AW: Text in Zelle aufteilen

Nach oben
       

Moin,

bei welchen Zeichen muss der String (Text) getrennt werden? bei - und x ?

Gruß
Markus

_________________
falls ich mal nicht antworten sollte.. pm an mich
Gast



Verfasst am:
28. Jul 2004, 12:57
Rufname:

AW: Text in Zelle aufteilen - AW: Text in Zelle aufteilen

Nach oben
       

Richtig. Das Ding muß bei beiden Zeichen getrennt werden.
Gruß
xpecidy
.:: Excelist ::.


Verfasst am:
28. Jul 2004, 13:10
Rufname:
Wohnort: Dresden

AW: Text in Zelle aufteilen - AW: Text in Zelle aufteilen

Nach oben
       

in welche Zellen/Zeilen sollen die gesplitteten Werte geschrieben werden?

G´ruß
Markus

_________________
falls ich mal nicht antworten sollte.. pm an mich
Gast



Verfasst am:
28. Jul 2004, 13:16
Rufname:


AW: Text in Zelle aufteilen - AW: Text in Zelle aufteilen

Nach oben
       

Wenn der Text in Zelle A1 steht müßte der aufgeteilte Text in den Zellen B1-G1 stehen.
xpecidy
.:: Excelist ::.


Verfasst am:
28. Jul 2004, 13:37
Rufname:
Wohnort: Dresden

AW: Text in Zelle aufteilen - AW: Text in Zelle aufteilen

Nach oben
       

Moin,

ALT + F11 -> Einfügen -> Modul

folgendes Script drauf legen und ausführen:

Code:

Sub text_splitten()
spalte = 2
For i = 1 To Len(Range("A1"))
    If Mid(Range("A1"), i, 1) = "x" Or Mid(Range("A1"), i, 1) = "-" Then
        'i = i + 1
        spalte = spalte + 1
            Else
        Cells(1, spalte) = Cells(1, spalte) & Mid(Range("A1"), i, 1)
    End If
Next
End Sub


Die Zellen als Text formatieren.

Gruß
Markus

_________________
falls ich mal nicht antworten sollte.. pm an mich
gabor61
Neuling


Verfasst am:
17. Jan 2008, 16:29
Rufname:

AW: Text in Zelle aufteilen - AW: Text in Zelle aufteilen

Nach oben
       Version: Office 97

Hallo,

wenn ich das oben beschriebene script nicht nur für eine Zeile anwende sondern für Zeile A1 bis A120 anwenden will wie muss ich es dann umbauen?

Gruß und Dank!
Ragnok
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Sep 2009, 17:45
Rufname:

AW: Text in Zelle aufteilen - AW: Text in Zelle aufteilen

Nach oben
       

Ich kram das mal wieder aus. Wie mache ich denn das für die gesamte Spalte A?

-EDIT-
bzw. solange, bis in A nichts mehr steht.
Gast



Verfasst am:
18. Sep 2009, 07:52
Rufname:

AW: Text in Zelle aufteilen - AW: Text in Zelle aufteilen

Nach oben
       

Hallo,
es gibt auch eine einfache Möglichkeit ohne VBA.
In Spalte B schreibst du =(WECHSELN(A1;"x";"-")) und kopierst nach unten.
Damit ersetzen wir alle "x" mit "-".
Anschließend unter Daten -> Text in Spalten... den Text trennen und als Zeichen "-" verwenden und fertig.
MFG
Fraggy
Ragnok
Im Profil kannst Du frei den Rang ändern


Verfasst am:
18. Sep 2009, 09:30
Rufname:

AW: Text in Zelle aufteilen - AW: Text in Zelle aufteilen

Nach oben
       

Hallo, erstmal danke für deine Antwort. Ich habe ja nicht genau das gleiche Problem wie er, ich wollte nur nicht nochmal einen neuen Thread aufmachen.

bei mir ist es so:

Ich habe von A bis D Werte in meiner Tabelle. In Spalte B steht meistens ein längerer Text, den ich nach Kommas oder nach x aufspalten muss.

Beispiel Zeile: "AR Fädelstäbe, Schraub, 1800x900x350 mm, 5 Böden, Typ 70 kg, RAL 7035"

Das soll dann später so aussehen, am Besten noch das die Aufgespaltenen Werte in eine neue Mappe geschrieben werden, an eine Stelle die ich auswählen kann:

A: AR Fädelstäbe B: Schraub C: 1800 D: 900 E: 350 F: mm H: 5 Böden I: Typ 70 kg J: RAL 7035
Ragnok
Im Profil kannst Du frei den Rang ändern


Verfasst am:
18. Sep 2009, 09:51
Rufname:

AW: Text in Zelle aufteilen - AW: Text in Zelle aufteilen

Nach oben
       

Code:
Sub text_splitten()
spalte = 2
For i = 1 To Len(Range("A1"))
    If Mid(Range("A1"), i, 1) = "x" Or Mid(Range("A1"), i, 1) = ", " Or Mid(Range("A1"), i, 1) = " " Then
        'i = i + 1
        spalte = spalte + 1
            Else
        Cells(1, spalte) = Cells(1, spalte) & Mid(Range("A1"), i, 1)
    End If
Next
End Sub


das ist jetzt mein code. Der teilt alles in Spalten auf. So weit so gut. Ich such jetzt noch eine Lösung, bei der der gesamte Inhalt der Datei durchlaufen wird. Das hätte mal die erste Priorität.
Gast



Verfasst am:
18. Sep 2009, 10:28
Rufname:

AW: Text in Zelle aufteilen - AW: Text in Zelle aufteilen

Nach oben
       

Hallo,

in Deinem Code ist etwas nicht klar. Du schreibst, Dein Text steht in Spalte B. In Deinem Code arbeitest Du mit Spalte A.
In welcher Tabelle stehen Deine Daten, und wo sollen sie hin?
Außerdem sollte man in einem Code die Variablen erst einmal dimensionieren.
so müsste es gehen:
Code:
Sub text_splitten()
Dim loletzte As Long
Dim loletzte2 As Long
Dim Spalte As Long
Dim loA As Long
Dim loB As Long
Dim wks As Worksheet
Dim wks2 As Worksheet
Dim sText As Variant
Dim strVorher As String



Set wks = Sheets("Tabelle1")
Set wks2 = Sheets("Tabelle2")
loletzte = wks.Cells(Rows.Count, 2).End(xlUp).Row
loletzte2 = wks2.Cells(Rows.Count, 2).End(xlUp).Row + 1
With wks
    For loA = 2 To loletzte
        strVorher = .Cells(loA, 2)
   
        If InStr(1, .Cells(loA, 2), " mm") > 0 Then
            .Cells(loA, 2) = Left(.Cells(loA, 2), InStr(1, .Cells(loA, 2), " mm") - 1) & Mid(.Cells(loA, 2), InStr(1, .Cells(loA, 2), " mm") + 3, Len(.Cells(loA, 2)))
        End If
            .Cells(loA, 2) = Replace(.Cells(loA, 2), "x", ",")
            sText = Split(.Cells(loA, 2), ",")
        For loB = 0 To UBound(sText)
            If loB < 5 Then
                wks2.Cells(loletzte2, loB + 1) = sText(loB)
            Else
                wks2.Cells(loletzte2, loB + 2) = sText(loB)
            End If
        Next
            wks2.Cells(loletzte2, 6) = "mm"
            .Cells(loA, 2) = strVorher
    Next
End With
End Sub


Gruß

Elg
Gast



Verfasst am:
18. Sep 2009, 10:32
Rufname:

AW: Text in Zelle aufteilen - AW: Text in Zelle aufteilen

Nach oben
       

Hallo Ragnok,

sorry, zwei kleine Änderungen sind noch erforderlich:
Code:
Option Explicit

Sub text_splitten()
Dim loletzte As Long
Dim loletzte2 As Long
Dim Spalte As Long
Dim loA As Long
Dim loB As Long
Dim wks As Worksheet
Dim wks2 As Worksheet
Dim sText As Variant
Dim strVorher As String



Set wks = Sheets("Tabelle1")
Set wks2 = Sheets("Tabelle2")
loletzte = wks.Cells(Rows.Count, 2).End(xlUp).Row
loletzte2 = wks2.Cells(Rows.Count, 2).End(xlUp).Row + 1
With wks
    For loA = 2 To loletzte
        strVorher = .Cells(loA, 2)
   
        If InStr(1, .Cells(loA, 2), " mm") > 0 Then
            .Cells(loA, 2) = Left(.Cells(loA, 2), InStr(1, .Cells(loA, 2), " mm") - 1) & Mid(.Cells(loA, 2), InStr(1, .Cells(loA, 2), " mm") + 3, Len(.Cells(loA, 2)))
        End If
            .Cells(loA, 2) = Replace(.Cells(loA, 2), "x", ",")
            sText = Split(.Cells(loA, 2), ",")
        For loB = 0 To UBound(sText)
            If loB < 5 Then
                wks2.Cells(loletzte2, loB + 1) = sText(loB)
            Else
                wks2.Cells(loletzte2, loB +    3   ) = sText(loB)
            End If
        Next
            wks2.Cells(loletzte2, 6) = "mm"
            .Cells(loA, 2) = strVorher


            loletzte2 = loletzte2 + 1


    Next

End With
End Sub


Gruß

Elg
Ragnok
Im Profil kannst Du frei den Rang ändern


Verfasst am:
18. Sep 2009, 10:46
Rufname:

AW: Text in Zelle aufteilen - AW: Text in Zelle aufteilen

Nach oben
       

Hallo Elg,
erstmal vielen dank für deine Hilfe. Jedoch passiert da gar nichts wenn ich versuche das Makro zu starten.

Also eigentlich habe ich Werte in Spalte A bis E

So jetzt versuche ich die Spalte A so zu lassen und in eine neue Exceldatei zuschreiben (in ein neues Sheet geht vorerst auch) die Spalte B ist die Spalte, die aufgeteilt werden soll (wie bereits beschrieben) CDE gleich wie A.
Gast



Verfasst am:
18. Sep 2009, 11:17
Rufname:


AW: Text in Zelle aufteilen - AW: Text in Zelle aufteilen

Nach oben
       

Hallo,

du musst das Makro schon an Deine Gegebenheiten anpassen, was Tabellennamen usw. betrifft.
Ansonsten ist ohne Beispieltabelle keine Hilfe möglich.

Gruß

Elg
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 2
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: wenn zelle voll dann 15 umbroboy 7278 31. Okt 2004, 11:15
pehbeh wenn zelle voll dann
Keine neuen Beiträge Excel Formeln: Text einer Zelle aufteilen 2 Gast Chris 2787 28. Okt 2004, 12:32
Gast Chris Text einer Zelle aufteilen
Keine neuen Beiträge Excel Formeln: Formel als Text in Nachbarzelle kopieren 6 blauvogel 1130 19. Okt 2004, 16:54
blauvogel Formel als Text in Nachbarzelle kopieren
Keine neuen Beiträge Excel Formeln: erste Zeichen einer Zelle in andere kopieren 2 fisler0815 3068 11. Okt 2004, 15:37
fisler0815 erste Zeichen einer Zelle in andere kopieren
Keine neuen Beiträge Excel Formeln: Funktion: Identische Inhalt einer Zelle in Tabelle 1 und 2 4 luki 4203 09. Sep 2004, 18:20
Gast Funktion: Identische Inhalt einer Zelle in Tabelle 1 und 2
Keine neuen Beiträge Excel Formeln: Formatierung Zelle ( Formel ) 5 Gast 1348 01. Sep 2004, 13:19
ae Formatierung Zelle ( Formel )
Keine neuen Beiträge Excel Formeln: übernehmen von werten in eine andere zelle 6 Gast 3718 21. Aug 2004, 18:38
alex81 übernehmen von werten in eine andere zelle
Keine neuen Beiträge Excel Formeln: mal wieder: letzte ausgefüllte Zelle in Spalte 4 Gast 3786 14. Aug 2004, 11:57
Gast mal wieder: letzte ausgefüllte Zelle in Spalte
Keine neuen Beiträge Excel Formeln: Auslesen mehrer Zahlen aus einer Zelle 7 coatin27 3380 11. Aug 2004, 15:18
Arnim Auslesen mehrer Zahlen aus einer Zelle
Keine neuen Beiträge Excel Formeln: Suche Zelle nach einem ähnlichem Wert ab... (wildcart) 2 Ranzi 2539 09. Aug 2004, 18:22
icke Suche Zelle nach einem ähnlichem Wert ab... (wildcart)
Keine neuen Beiträge Excel Formeln: Extrahieren von Text bis zum ersten Semikolon einer Zelle 8 Gast 2949 13. Jul 2004, 18:59
Arnim Extrahieren von Text bis zum ersten Semikolon einer Zelle
Keine neuen Beiträge Excel Formeln: Zusammenhängende Zellen mit gleichem Text zählen 10 Red Hair 1522 09. Jul 2004, 15:22
Red Hair Zusammenhängende Zellen mit gleichem Text zählen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe