Datum

Titel

20.04.2024 16:39:00

ältere VBA Codes automatisch neu strukturieren

20.04.2024 16:36:42

Arbeitsblatt Script auslagern in Modul

20.04.2024 16:28:25

zwei Makro in einem zusammenführen?

20.04.2024 15:30:14

Warum Verweis zeigt Falsch an

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

180to184

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Zellinhalte aufteilen per VBA

Forumthread: Zellinhalte aufteilen per VBA
5 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
Top 100 Forumthreads

19.11.2002 17:15:06

MikeS

Hallo Leute,

in Spalte A (beginnend mit A2) stehen in jeder Zelle mehrere
Wörter (durch " " voneinander getrennt), die ich per VBA
in die Nachbarzellen aufteilen möchte.

z.B.:

A2 = "Der Baum ist blau"

dann Aufteilung so:

B2 = "Der"
C2 = "Baum"
D2 = "ist"
E2 = "blau"

Bitte helft mir, ist dringend.

Vielen Dank
MikeS

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Zellinhalte aufteilen per VBA

19.11.2002 17:28:24

ANdreas
für alle Zellen in Spalte A?

19.11.2002 20:12:41

MikeS
Re: für alle Zellen in Spalte A!

19.11.2002 20:47:10

Peter Feustel
Re: etwas eleganter

19.11.2002 21:19:06

Peter Feustel
Dankeschön, perfekt!!!

22.11.2002 18:32:57

MikeS

Re: Zellinhalte aufteilen per VBA

19.11.2002 17:28:24

ANdreas

Hallo Mike,

mit VBA geht´s z.B. so:
Viel Spaß,
Andreas

für alle Zellen in Spalte A?

19.11.2002 20:12:41

MikeS

Hi Andreas,

vielen Dank für Deine Lösung.

Ich benötige aber eine Lösung, die alle Zellinhalte der
1.Spalte (beginnend bei A2) bis zur ersten leeren Zelle
in die Nachbarzellen aufteilt.

Vielleicht noch 'ne Idee?

Ciao MikeS

Re: für alle Zellen in Spalte A!

19.11.2002 20:47:10

Peter Feustel

Hallo Mike,

so sollte es gehen:

Sub TextTrennen()
'
' in Spalte A (beginnend mit A2) stehen in jeder Zelle mehrere
' Wörter (durch " " voneinander getrennt), die ich per VBA
' in die Nachbarzellen aufteilen möchte.
'
' z.B.: A2 = "Der Baum ist blau"
'
' dann Aufteilung so:
'
' B2 = "Der"
' C2 = "Baum"
' D2 = "ist"
' E2 = "blau"
'

Dim sText As String ' der eingegebene Text
Dim iPos As Integer ' die Position des Space (Trennzeichen)
Dim intCol As Integer ' die Beginn-Spalte der Aufsplittung
Dim iIndx As Integer ' For/Next Index
Dim lLetzte As Long ' letzte zu bearbeitende Zeile

lLetzte = Range("A65536").End(xlUp).Row

For iIndx = 2 To lLetzte
sText = Range("A" & iIndx).Value ' den Text holen
iPos = InStr(sText, " ") ' Space-Position feststellen
intCol = 2 ' Beginn der Aufteilungs-Spalte
While iPos > 0 ' solange Space gefunden wurde
Cells(iIndx, intCol).Value = Left(sText, iPos - 1)
sText = Right(sText, Len(sText) - iPos)
iPos = InStr(sText, " "): intCol = intCol + 1
Wend
Cells(iIndx, intCol).Value = sText
Next iIndx

End Sub

Gruß, Peter

Re: etwas eleganter

19.11.2002 21:19:06

Peter Feustel

Hallo Mike,

hier noch eine etwas 'elegantere' Version:

Sub TextTrennen()
'

Dim sText As String ' der eingegebene Text
Dim iPos As Integer ' die Position des Space (Trennzeichen)
Dim iCol As Integer ' die Beginn-Spalte der Aufsplittung
Dim iIndx As Integer ' For/Next Index

For iIndx = 2 To Range("A65536").End(xlUp).Row ' von Zeile 2 bis Ende
sText = Range("A" & iIndx).Value ' den Text holen
iPos = InStr(sText, " ") ' Space-Position feststellen
iCol = 2 ' Beginn der Aufteilungs-Spalte
While iPos > 0 ' solange Space gefunden wurde
Cells(iIndx, iCol).Value = Left(sText, iPos - 1) ' Zellen ab B befüllen
sText = Right(sText, Len(sText) - iPos) ' Eingabetext "verkürzen"
iPos = InStr(sText, " ") ' Space suchen
iCol = iCol + 1 ' nächste Spalte errechnen
Wend
Cells(iIndx, iCol).Value = sText ' letztes Wort übertragen
Next iIndx ' nächste Zeile

End Sub

Gruß, Peter

Dankeschön, perfekt!!!

22.11.2002 18:32:57

MikeS

o.T.