Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen Teilen nach Leerzeichen

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
Anzeige
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

 ABCDEF
1Maier Herbert Irgendwo 12123 OrthausenMaierHerbertIrgendwo12123Orthausen

Formeln der Tabelle
ZelleFormel
B1=splitten($A$1;SPALTE(A1); " ")


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

Anzeige
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

Anzeige
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

303 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
ich hab' immer noch mein kleines Problem, vielleicht weiß hier ja einer weiter?
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
18.03.2009 13:41:01
Thread-ID: 1061396
6 Beiträge
Anzeige
Von rechts kopieren bis zum ersten ";"
Flo

Eine kurze Frage,
ich habe Zellen in meiner Tabelle,
in denen mehrere Werte stehen. Diese Werte sind durch ";" getrennt.
Also z.B. Zelle A1: "1;2;3"
Nun will ich, dass es mir in einer anderen Zelle nur die letzte Ziffer, also in diesem Fall 3 anzeigt.
Ich habe es mit der fo...
08.04.2009 15:19:13
Thread-ID: 1067754
16 Beiträge
Daten aus Zelle per CSV nur bedingt auslesen
Heiko

Hallöchen,
ich habe eine Datendatei in CSV mit Simikolon getrennt ohne Umbrüche.
Diese Lade ich auf eine Seite hoch, die mir die jeweiligen Zellen innerhalb einer Datenbank ausfüllt.
Meine Frage wäre jetzt, ob es eine Möglichkeit gibt, durch eingaben innerhalb der CSV-Datei den Text...
13.06.2009 20:14:31
Thread-ID: 1081318
4 Beiträge
Wert aus Zelle herauslesen
Johannes

Hallo zusammen,
weiß jemand, wie man eine Zahl aus einer Zelle mittels einer Formel herauslesen kann und mit dieser auch weiter rechnen kann?
Beispiel:
In Zelle A1 steht (das ' signalsiert den Zellanfang und -ende):
' 600 Haushaltswaren'
Jetzt möchte in A2 nur den W...
28.09.2009 11:51:34
Thread-ID: 1105996
3 Beiträge
Datum aus Zelle auslesen
Thomas

Hallo zusammen,
ich suche einen Weg, um aus einer Tabellenzelle ein Datum auszulesen, welches zwischen anderen Begriffen/Wörtern/Zahlen/Buchstaben steht.
Es hat immer das selbe Format: zB 15.02.09.
Eine solche Zelle sieht aber jedes mal anders aus, zB so (steht immer in A2):
Hi...
10.11.2009 11:18:36
Thread-ID: 1115770
4 Beiträge
Bestimmten Wert aus Zelle auslesen
Reinhard

Hallo liebe Excel-Freaks,
zunächst einmal möchte ich mich vorab bei allen bedanken, die sich meiner Problemstellung annehem.
Für eine Lösung meines Problems ohne VBA oder Makro wäre ich sehr dankbar.
Folgendes Problem:
In Spalte A Zeile 2steht ein Wert Januar z.B. 1.200.000,...
24.11.2009 22:02:31
Thread-ID: 1119831
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
5
3
5
2
15
3
2
3
7
6
8
2
7
1
2
12
2
5
1
9
4
5
7
4