Office: mehrere werte in einer Zelle trennen und nebeneinander ausgeben

vegetahulk · 20. November 2019

Hallo Ihr Excel Profis

Ich habe es bis jetzt leider immer noch nicht geschafft.

Bei meinem Code bring ich es leider nur untereinander siehe mein Code:

Code:

Private Sub CommandButton1_Click()

'** Trennen von Zellinhalten an einem vorgegebenen Trennzeichen

'** Dimensionierung der Variablen
Dim lngZ As Long
Dim strTeilstring() As String
Dim strTrennzeichen As String

'** Vorgaben definieren
Set wsakt = ThisWorkbook.Sheets("Daten")
lngZ = 4 'Startzeile
strTrennzeichen = "," 'Trennzeichen festlegen z.B. Komma(,) Semikollon(;) Bindestrich(-) etc.

'** Durchlaufen aller Datenzeilen
For x = 4 To 7

'** Teilstring am Delimiter auslesen
strTeilstring = Split(Trim(wsakt.Cells(x, 1).Value), strTrennzeichen)

'** Durchlaufen des gesamten Arrays einer Zelle vom ersten bis zum letzten Wert
For a = LBound(strTeilstring) To UBound(strTeilstring)

'** Array-Elemente nacheinander eintragen
wsakt.Cells(lngZ, 3).Value = Trim(strTeilstring(a))

'** Zeilenzähler erhöhen
lngZ = lngZ + 1

Next a

Next x

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich möchte nun aber das die Werte Nebeneinander sind.

Kann mir jemande Helfen?

Danke.

:)

Mase · 22. November 2019

Hi,

Hinweis:
Code:

wsakt.Cells(Zeile, Spalte)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

vegetahulk · 22. November 2019

Hallo Danke für deine Antwort,

könntest du mir bitte helfen wie ich genau spalte einfüge im Code?

Code:

wsakt.Range(Cells(lngZ, 3)).Value = Trim(strTeilstring(a))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

vegetahulk · 22. November 2019

Hallo nochmals

Ich habe nun meine Datei mehrere werte in einer Tabelle hinzugefügt.

Ich hoffe das Ihr mir weiter helfen könnt.

Teilen funktioniert, doch die Ergebnisse sind immer untereinander, statt Nebeneinander.

Habe es in der Tabelle Manuel eingetragen wie ich es gerne hätte.

Hoffe Ihr könnt mir anhand der Datei weiterhelfen, wäre echt toll.

Hajo_Zi · 22. November 2019

einfach Daten, Text in Spalten, Trennzeichen " "

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

Meine Homepage Homeseite - Hajo's Excelseiten

Mase · 22. November 2019

Hi,

schau dir mal folgenden Vorschlag an:
Code:

Private Sub TeilenA()

'** Trennen von Zellinhalten an einem vorgegebenen Trennzeichen

'** Dimensionierung der Variablen
Dim lngZ As Long
Dim strTeilstring() As String
Dim strTrennzeichen As String

'** Vorgaben definieren
Set wsakt = ThisWorkbook.Sheets("Daten2")
lngZ = 4 'Startzeile
strTrennzeichen = "," 'Trennzeichen festlegen z.B. Komma(,) Semikollon(;) Bindestrich(-) etc.

'** Durchlaufen aller Datenzeilen
For x = 4 To 7

'** Teilstring am Delimiter auslesen
strTeilstring = Split(Trim(wsakt.Cells(x, 1).Value), strTrennzeichen)

'** Durchlaufen des gesamten Arrays einer Zelle vom ersten bis zum letzten Wert
For a = LBound(strTeilstring) To UBound(strTeilstring)

'** Array-Elemente nacheinander eintragen
wsakt.Cells(x, 1).Offset(0, 2 + a) = Trim(strTeilstring(a))
'wsakt.Range(Cells(lngZ, 3)).Value = Trim(strTeilstring(a))
'wsakt.Range (Cells(lngZ, 3)), Cells(Rows.Count, 1).Value = Trim(strTeilstring(a))

'wsakt.Cells(lngZ, 3).Row Range("C1", Cells(LRow, 3)) = Trim(strTeilstring(a))

'** Zeilenzähler erhöhen
'lngZ = lngZ + 1
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

vegetahulk · 22. November 2019

Super danke für deine super Hilfe.

Office: mehrere werte in einer Zelle trennen und nebeneinander ausgeben

mehrere werte in einer Zelle trennen und nebeneinander ausgeben

mehrere werte in einer Zelle trennen und nebeneinander ausgeben

mehrere werte in einer Zelle trennen und nebeneinander ausgeben

mehrere werte in einer Zelle trennen und nebeneinander ausgeben - Similar Threads - werte Zelle trennen

Zelle wert null wenn in anderer Zelle wert noch null

Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.)

Wert einer Zelle kopieren wenn..

Wert einer Zelle neben einer anderen Zelle automatisch anzeigen

Mehrere Werte einer Zelle trennen

Zwei Werte in einer Zelle

Wie trenne ich Zellen mit dem Fehler "#Wert" von N