Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
388to392
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
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelleninhalte aufteilen

Zelleninhalte aufteilen
02.03.2004 11:41:25
Wolle
Hallo zusammen,
ich habe ein Excelsheet mit Adressen.
In Spalte A stehen Die Vornamen, 2. Vornamen und Namen usw. noch nicht getrennt.
Es können in Spalte A bis zu fünf Werte stehen Bsp. Prof. Dr. Frank Hermann Mustermann.
Die Spalten B, C, D, E, F sind leer.
Die Adressliste hat über 4000 Adressen gespeichert.
Ich brauche eine mit VBA erstellte Funktion die es mir ermöglicht alle diese Werte zu trennen und in die Spalten B, C, D, E, F einzutragen.
Beispiel:

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalte aufteilen
02.03.2004 11:48:22
Russi
Hallo Wolle!
Versuchs mal mit diesem Code hier. Er trennt die Textteile einer Zelle und fügt die einzelnen Teile in die nächste freie Spalte ein. Als Trennzeichen ist ein Leerzeichen definiert.
Viele Spaß damit!

Sub Spalten_aufteilen()
Dim Trennzeichen$
Dim Zelle As Range
Dim Start%
Dim Ende%
Dim Länge%
Dim SpaltenOffset%
If Selection.Columns.Count > 1 Then
MsgBox ("Sie haben mehr als eine Spalte markiert.")
Exit Sub
End If
Trennzeichen = " "
For Each Zelle In Selection
Start = 1
Ende = 1
SpaltenOffset = 1
Do While Zelle.Offset(0, SpaltenOffset).Value > ""
SpaltenOffset = SpaltenOffset + 1
Loop
For Ende = 1 To Len(Zelle)
If Mid(Zelle, Ende, Len(Trennzeichen)) = Trennzeichen Then
Länge = Ende - Start
Range(Zelle.Address).Offset(0, SpaltenOffset).Value = _
Mid(Zelle, Start, Länge)
Ende = Ende + Len(Trennzeichen)
Start = Ende '+len(Trennzeichen)
SpaltenOffset = SpaltenOffset + 1
End If
Next Ende
Länge = Ende - Start
Range(Zelle.Address).Offset(0, SpaltenOffset).Value = _
Mid(Zelle, Start, Länge)
Next Zelle
End Sub

Anzeige
AW: Zelleninhalte aufteilen
02.03.2004 12:11:26
Wolle
Hallo Russi,
das ist soweit schon nicht schlech. Leider muss die Aufteilung wie in meinem Beispiel zu sehen von Hinten nach vorne geschehen. Der Nachname muss immer in Zeile F stehen.
Vielleicht kann jemand das ergänzend hinzufügen.
MfG, Wolle
AW: Zelleninhalte aufteilen
02.03.2004 12:32:31
Russi
Hallo Wolle!
Habe das Makro noch etwas ergänzt, jetzt sollte es für Deine Bedürfnisse passen:

Sub Spalten_aufteilen()
Dim Trennzeichen$
Dim Zelle As Range
Dim Start%
Dim Ende%
Dim Länge%
Dim SpaltenOffset%
If Selection.Columns.Count > 1 Then
MsgBox ("Sie haben mehr als eine Spalte markiert.")
Exit Sub
End If
Trennzeichen = " "
For Each Zelle In Selection
Start = 1
Ende = 1
SpaltenOffset = 1
Do While Zelle.Offset(0, SpaltenOffset).Value > ""
SpaltenOffset = SpaltenOffset + 1
Loop
For Ende = 1 To Len(Zelle)
If Mid(Zelle, Ende, Len(Trennzeichen)) = Trennzeichen Then
Länge = Ende - Start
Range(Zelle.Address).Offset(0, SpaltenOffset).Value = _
Mid(Zelle, Start, Länge)
Ende = Ende + Len(Trennzeichen)
Start = Ende '+len(Trennzeichen)
SpaltenOffset = SpaltenOffset + 1
End If
Next Ende
Länge = Ende - Start
Range(Zelle.Address).Offset(0, SpaltenOffset).Value = Mid(Zelle, Start, Länge)
Do Until SpaltenOffset = 5
Range(Zelle.Address).Offset(0, 1).Insert shift:=xlToRight
SpaltenOffset = SpaltenOffset + 1
Loop
Next Zelle
End Sub

Anzeige
AW: Zelleninhalte aufteilen
02.03.2004 12:40:08
Wolle
Ich bin über dieses Forum hier immer wieder begeistert.
So schnelle und gute Hilfe bekommt man nicht woanders.
Ich danke Dir.
AW: Zelleninhalte aufteilen
02.03.2004 12:40:56
Russi
Gerne. Danke für die Rückmeldung!

201 Forumthreads zu ähnlichen Themen

Daten aus einer Zelle auf mehrere Zellen aufteilen
Gordon

Moin,
ich habe hier einer Zelle (A10) eine bis mehrere Zeichenketten, die jewiels durch ein ";" getrennt werden.
Nun soll jeweils jede Zeichenkette auf drei Zellen aufgespilltet werden:
A1 = Die ersten 10 Zeichen der 1.Kette
B1 = Die nächsten 10 Zeichen der 1.Kette
C1 = Die...
23.08.2008 22:57:00
Thread-ID: 1004183
15 Beiträge
Anzeige
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Inhalt einer Zelle aufteilen in Zellen untereinand
thorsten

Hallo,
bitte schaut Euch mal die Liste an
https://www.herber.de/bbs/user/56516.xls
Es geht darum, dass in einer Zelle mehrere email Adressen angegeben sind - getrennt durch ein Semikolon.
Gibt es eine Möglichkeit diese untereinander darzustellen - je eine Adresse in einer zelle...
05.11.2008 12:35:00
Thread-ID: 1021856
4 Beiträge
Anzeige
Zelleninhalt mit Makro auf Spalten aufteilen
Rene

Hallo Experten,
ich benötige bitte eure Hilfe und hoffe, dass meine erste Problemschilderung nicht zu unverständlich ist.
Hier mein Problem bzw. Wunsch-Makro:
Farblich markierte Zellen in Tabelle1: C1: =3453,63+235,64-23563,12
D5: =1234,43-234+234.... usw.
Aufteilung de...
15.02.2009 14:48:00
Thread-ID: 1050879
5 Beiträge
Zelleninhalt teilen
Sandro

hallo
wie kann ich den zelleninhalt teilen und die eine hälfte in die benachbarte zelle kopieren.
beispiel:
Zelle A1: 40900518/240900067
Die Nr. 40900518 soll in der Zelle bleiben
Die Nr. 240900067 soll in die Zelle B1 kopiert werden
Der / soll gelöscht werden.
Danke...
25.02.2009 16:57:21
Thread-ID: 1054069
6 Beiträge
Zellenwert teilen, in listenfeld, verlinken
Tobias

Hallo,
ich weiß nicht ob das möglich ist, aber ich versuche folgendes:
In B habe ich ordnernamen, kommagetrennt:
z.b. B10
"Ordner1, Ordner2, Ordner3"
Wenn B10 selektiert ist, und ich das Makro auslöse, möchte ich, dass ein Listenfeld auftaucht mit dem Namen der 3 Ordner unt...
17.03.2009 03:28:10
Thread-ID: 1060982
11 Beiträge
Zwei Zeilen in einer Zelle
Michael

Hallo,
ich habe folgendes Problem. In einer Zelle steht ein Ort allerdings steht dieser innerhalb der Zelle nach unten verrückt, so dass in der Zelle quasi eine Leerzeile ist. Gibt es eine Möglichkeit diese Leerzeilen innerhalb der Zellen zu löschen?
Ich habe hier mal eine Grafik eingef...
26.03.2009 13:12:43
Thread-ID: 1064220
5 Beiträge
Zwei Bezüge in eine Zelle
Willy

Hallo "Profis",
wer kann mir bitte bei folgendem Problem helfen:
In Zelle A 1 steht Datum (1.1.09), in Zelle A 2 steht das zweite Datum (7.1.09), also IMMER eine Laufzeit von 7 Tagen.
Nun soll bspw. in Zelle A 3 ausgegeben werden:
1.1.09 - 7.1.09
Danke im voraus.
Gruß
10.06.2009 12:10:04
Thread-ID: 1080409
4 Beiträge

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
14
1
3
3
4
4
5
10
4
3
2
3
3
4
6
2
6
7
4
3
3
6
3
5
2