Zellen Teilen nach Leerzeichen

Forumthread: Zellen Teilen nach Leerzeichen

07.07.2008 20:49:00

chris

Hallo Profis !
Ich habe nach langem Suchen und probieren den untenstehenden VBA Code gefunden. Leider teilt er mir alle Wörter in Buchstaben auf. Kann man den irgendwie verändern, das er nur nach einem Leerzeichen teilt. also wenn man z.B.: Maier Herbert Irgendwo 12123 Orthausen.............. hat. Diese sind in einer Zelle geschrieben und soll dann aufgeteilt in jeweils einer Zelle sein. Also "Maier" in einer Zelle und "Herbert" in einer Zelle usw.
Danke für Eure Hilfe
chris
Sub teilen() Dim iSpalte As Integer Dim iZeile As Integer For iZeile = 2 To Range("A65536").End(xlUp).Row For iSpalte = 1 To 12 Cells(iZeile, iSpalte + 1) = Mid(Cells(iZeile, 1), iSpalte, 1) Next iSpalte Next iZeile End Sub

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellen Teilen nach Leerzeichen

07.07.2008 21:03:36

ransi
AW: Zellen Teilen nach Leerzeichen

07.07.2008 21:04:09

Peter
Daten Text in Spalten

07.07.2008 21:42:00

Matthias
AW: Zellen Teilen nach Leerzeichen

09.07.2008 18:48:00

chris

AW: Zellen Teilen nach Leerzeichen

07.07.2008 21:03:36

ransi

HAllo
Pack diesen Code mal in ein Modul:

' **********************************************************************
' Modul: Trennen Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function splitten(zelle, Optional Welche_Stelle As Integer = 1, Optional Trenner As String = " ") As String
Dim a As Variant
a = Split(zelle, Trenner)
splitten = a(Welche_Stelle - 1)
End Function

Der Aufruf in einer Tabelle geht dann so:
Tabelle1

	A	B	C	D	E	F
1	Maier Herbert Irgendwo 12123 Orthausen	Maier	Herbert	Irgendwo	12123	Orthausen

Formeln der Tabelle

Zelle	Formel
B1	=splitten($A$1;SPALTE(A1); " ")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi

AW: Zellen Teilen nach Leerzeichen

07.07.2008 21:04:09

Peter

Hallo Chris,
als Makro z. B. so:


Public Sub Aufteilen()
Dim aTemp    As Variant
Dim iIndex   As Integer
Dim iSpalte  As Integer
Dim lZeile   As Long
For lZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
aTemp = Split(Trim(Cells(lZeile, 1).Value))
iSpalte = 2
For iIndex = 0 To UBound(aTemp)
Cells(lZeile, iSpalte).Value = aTemp(iIndex)
iSpalte = iSpalte + 1
Next iIndex
Next lZeile
End Sub

Es würde sicher auch mit Daten > Text in Spalten funktionieren.
Gruß Peter

Daten Text in Spalten

07.07.2008 21:42:00

Matthias

Hallo
Für mich immer wieder :
Daten Text in Spalten
Trennzeichen= Leerzeichen
Userbild

Gruß Matthias

AW: Zellen Teilen nach Leerzeichen

09.07.2008 18:48:00

chris

Danke, jetzt endlich habe ich nach langem suchen, meinen Eintrag wiedergefunden. Danke nochmals
chris

Schritt-für-Schritt-Anleitung

Um Zellen in Excel nach Leerzeichen zu teilen, kannst Du verschiedene Methoden verwenden. Eine einfache Möglichkeit ist die Verwendung einer Formel oder eines Makros. Hier sind die Schritte, um dies zu erreichen:

Verwendung einer Excel-Formel:

Du kannst die Funktion SPLIT verwenden, wenn Du eine benutzerdefinierte Funktion im VBA-Editor erstellst. Füge den folgenden Code in ein Modul ein:

Public Function splitten(zelle As String, Optional Welche_Stelle As Integer = 1, Optional Trenner As String = " ") As String
   Dim a As Variant
   a = Split(zelle, Trenner)
   splitten = a(Welche_Stelle - 1)
End Function

In der Excel-Tabelle kannst Du dann die Formel wie folgt verwenden:
```
=splitten(A1;SPALTE(A1); " ")
```

Verwendung von Text in Spalten:
- Markiere die Zellen, die Du trennen möchtest.
- Gehe zu Daten > Text in Spalten.
- Wähle Getrennt und klicke auf Weiter.
- Setze ein Häkchen bei Leerzeichen und klicke auf Fertig stellen.

Häufige Fehler und Lösungen

Fehler: Zelleninhalt wird nicht richtig aufgeteilt:
- Überprüfe, ob Du die richtige Formel benutzt und die Zelle korrekt referenziert ist. Achte darauf, dass die Formel auf die richtige Zelle zeigt.
Fehler: Alle Wörter werden in Buchstaben aufgeteilt:
- Stelle sicher, dass Du den richtigen Trenner in Deiner Formel oder Deinem Makro angibst. Der Trenner sollte auf ein Leerzeichen (" ") gesetzt sein.

Alternative Methoden

VBA-Makro: Du kannst ein einfaches Makro verwenden, um die Zellen bei Leerzeichen zu trennen. Hier ist ein Beispiel:

Public Sub Aufteilen()
    Dim aTemp As Variant
    Dim iIndex As Integer
    Dim iSpalte As Integer
    Dim lZeile As Long
    For lZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        aTemp = Split(Trim(Cells(lZeile, 1).Value))
        iSpalte = 2
        For iIndex = 0 To UBound(aTemp)
            Cells(lZeile, iSpalte).Value = aTemp(iIndex)
            iSpalte = iSpalte + 1
        Next iIndex
    Next lZeile
End Sub

Daten importieren: Wenn Du Daten aus einer externen Quelle importierst, kannst Du oft beim Import angeben, dass die Daten nach Leerzeichen getrennt werden sollen.

Praktische Beispiele

Wenn Du beispielsweise eine Zelle mit dem Inhalt Maier Herbert Irgendwo 12123 Orthausen hast und diese nach Leerzeichen teilen möchtest:

Mit der Formel:
- In Zelle B1:
```
=splitten(A1;SPALTE(A1); " ")
```
Mit Text in Spalten:
- Markiere die Zelle A1, gehe zu Daten > Text in Spalten, wähle Getrennt und aktiviere Leerzeichen.

Tipps für Profis

Nutzung von Namensbereichen: Wenn Du häufig mit solchen Zellen arbeitest, erstelle einen Namensbereich für die Zelle, die Du teilen möchtest. Das macht die Formeln übersichtlicher und einfacher zu handhaben.
Makros optimieren: Wenn Du oft Daten trennst, erwäge, ein Makro zu erstellen, das Du mit einem Tastenkürzel aufrufen kannst, um Zeit zu sparen.
Daten validieren: Achte darauf, dass die Daten, die Du trennen möchtest, konsistent formatiert sind, um Fehler zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich Zellen in Excel nach dem ersten Leerzeichen trennen?
Du kannst die Funktion SPLIT mit einem optionalen Argument verwenden, um nur den ersten Teil vor dem ersten Leerzeichen zu erhalten.

2. Was tun, wenn ich zusätzliche Leerzeichen in meinen Daten habe?
Verwende die TRIM-Funktion in Excel, um überflüssige Leerzeichen zu entfernen, bevor Du die Zellen trennst.

Beliebteste Forumthreads (12 Monate)

Zellen Teilen nach Leerzeichen

Forumthread: Zellen Teilen nach Leerzeichen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial