Office: String splitten und in Tabelle schreiben

RWg · 23. November 2010

Hallo zusammen,

ich habe in einer Zelle einen String mit Anzahl-Angaben in Klammern für die Begriffe (ohne weitere Trenner).
Bsp.: "Konzept (2) Profil (4) Dienst (7) Spanien (2) Anfragen (5)"

Ich möchte jetzt diesen String so splitten, daß die Begriffe ein einer
Spalte untereinander in einzelnen Zellen und die Häufigkeiten ohne Klammern
in der Spalte daneben stehen.
Im optimalen Fall sogar schon absteigend sortiert.

Meine bescheidenen VBA- und Makro-Kenntnisse lassen mich vermuten,
daß zunächst der Text in ein Array eingelesen werden müßte, sortiert und anschließend über ein Makro in einen Range ausgegeben?

Hat jemand vielleicht ein Skript zum Anpassen für mich?

:)

IngGi · 24. November 2010

Hallo RWg,

biddeschööön:

Sub Matrix()

Dim vntIn As Variant
Dim vntOut() As Variant
Dim i As Integer

vntIn = Split(ActiveCell, ")")
ReDim vntOut(UBound(vntIn) - 1, 1)

For i = 0 To UBound(vntIn) - 1
vntOut(i, 0) = Trim(Left(vntIn(i), InStr(1, vntIn(i), "(") - 1))
vntOut(i, 1) = Right(vntIn(i), Len(vntIn(i)) - InStr(1, vntIn(i), "("))
Next 'i

ActiveCell.Resize(UBound(vntOut, 1) + 1, 2) = vntOut

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

VBA/HTML - CodeConverter für Excelforen
AddIn für Excel XP+2003 - komplett in VBA geschrieben von IngGi
Anbindung an VBE-Kontextmenü geklaut ;-) bei:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Björn_vbxls · 24. November 2010

Hallo,

ich hab auf die Schnelle nur ne unsortierte Variante:

Code:

Bestandteile = Split(Bsp, " ") 'Deine Zelle etc. beim Leerzeichen Trennen

Zeile = 1
Spalte = 1
for i = 0 to ubound(Bestandteile)-1 step 2
Cells(Zeile,Spalte) = Bestandteile(i)
Cells(Zeile,Spalte +1) = replace(replace(Bestandteile(i+1), "(", ""),")","")
Zeile = Zeile +1
next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

MfG

Björn

RWg · 12. Januar 2021

Hallo IngGi, hallo Björn_vbxls,

huiii, das ging ja fix !!
Und sowas zaubert ihr einfach so aus'm Hut, ja? *wink.gif*
Bin schwer beeindruckt *Smilie

Da muß ich doch glatt noch fragen, ob man auch verhindern kann,
daß die "Matrix" die Quelldaten-Zelle überschreibt, sprich: den
Ziel-Range woanders?

von IngGi

Hallo RWg,
biddeschööön:
Gruß Ingolf
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nochmal danke für die schnelle Hilfe

Björn_vbxls · 25. November 2010

Hallo,

bei meinem Code musst du nur die Startparameter ändern z.B.

Wenn deine Daten in Zelle "A1" stehen,

dann soll er erst ab Zelle "C3" schreiben = "Zeile = 3, Spalte = 3"

oder in ein anderes Blatt,
dann vor "Cells" das Blatt schreiben Sheets("Tabelle2").cells...

Man könnte auch abfragen,
if cells(Zeile,Spalte) "" then Spalte = Spalte +2
'hier wird wenn die Zelle nicht leer ist, die Spalte um 2 nach rechts verschoben

MfG

Björn

pefeu · 25. November 2010

Hallo RWg,

so könnte das funktionieren

Option Explicit

Public Sub Aufteilen()

Dim sText As String
Dim vTemp As Variant
Dim iIndx As Integer
Dim iPosit As Integer
Dim lZeile As Long

sText = "Konzept (2) Profil (4) Dienst (7) Spanien (2) Anfragen (5)"

vTemp = Split(sText, ")")

For iIndx = LBound(vTemp) To UBound(vTemp)
'MsgBox vTemp(iIndx)
Next iIndx

For lZeile = 1 To UBound(vTemp)
If vTemp(lZeile - 1) <> "" Then
vTemp(lZeile - 1) = Trim(vTemp(lZeile - 1))
iPosit = InStr(vTemp(lZeile - 1), " (")
If iPosit > 0 Then
Range("A" & lZeile).Value = Left(vTemp(lZeile - 1), iPosit - 1)
Range("B" & lZeile).Value = Mid(vTemp(lZeile - 1), iPosit + 2)
End If
End If
Next lZeile

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

Code eingefügt mit

RWg · 25. November 2010

Hallo pefeu,

danke für Deine Hilfe.
Leider rührt sich bei Einsatz Deines Codes übehaupt nichts.

RWg · 25. November 2010

Hallo Björn,

auch Dir vielen Dank für Deine Hilfe.
Leider ist Dein Code um ein Vielfaches langsamer als der von
IngGi.
Ich habe den Code von IngGi jetzt dank Deiner Anregung
mit "Cells(ActiveCell.Row ..." etwas ergänzt.

So überschreibt er nicht meine Quelldaten.

Jetzt fehlt mir nur noch das Sortieren.
Aber das geht ja auch 'händisch' ganz flott *Smilie

Code:

Sub Matrix()

Dim vntIn As Variant
Dim vntOut() As Variant
Dim i As Integer

vntIn = Split(ActiveCell, ")")
ReDim vntOut(UBound(vntIn) - 1, 1)

For i = 0 To UBound(vntIn) - 1
vntOut(i, 0) = Trim(Left(vntIn(i), InStr(1, vntIn(i), "(") - 1))
vntOut(i, 1) = Right(vntIn(i), Len(vntIn(i)) - InStr(1, vntIn(i), "("))
Next 'i

Cells(ActiveCell.Row + 2, ActiveCell.Column).Select

ActiveCell.Resize(UBound(vntOut, 1) + 1, 2) = vntOut

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

IngGi · 25. November 2010

Hallo RWg,

im Folgenden habe ich den Code so modifiziert, dass er die Tabelle ab eine Zeile unterhalb der Quellzelle schreibt. Ausserdem wird die Tabelle jetzt absteigend nach den Werten der zweiten Spalte sortiert:

Sub Matrix()

Dim vntIn As Variant
Dim vntOut() As Variant
Dim i As Integer

vntIn = Split(ActiveCell, ")")
ReDim vntOut(UBound(vntIn) - 1, 1)

For i = 0 To UBound(vntIn) - 1
vntOut(i, 0) = Trim(Left(vntIn(i), InStr(1, vntIn(i), "(") - 1))
vntOut(i, 1) = Right(vntIn(i), Len(vntIn(i)) - InStr(1, vntIn(i), "("))
Next 'i

With ActiveCell.Offset(1, 0).Resize(UBound(vntOut, 1) + 1, 2)
.Value = vntOut
.Sort Key1:=.Resize(1, 1).Offset(0, 1), Order1:=xlDescending
End With

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

VBA/HTML - CodeConverter für Excelforen
AddIn für Excel XP+2003 - komplett in VBA geschrieben von IngGi
Anbindung an VBE-Kontextmenü geklaut ;-) bei:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

RWg · 26. November 2010

Hallo IngGi,

da bleibt kein Wunsch mehr offen - schneller, kompakter Spitzencode!
Vielen Dank nochmal.
Thema beantwortet *winner *wink.gif*

User · 18. Februar 2011

Hallo,

da meine VBA kenntnisse sehr limitiert sind suche ich zum folgenden Hilfe!

Wie kann ich anhand eines Makros eine ganze Spalte nach einem String durchsuchen lassen und nach einem bestimmten Zeichen in zwei teile splitten lassen, diese teile sollen dann in 2 neben spalten geschrieben werden.

z.Bsp:

wenn ich einen solchen String habe und ich möchte, dass immer nur nach dem zweiten "-" gesplitet wird?

C-PMT080007 - ABCSDEF - IM OSJ

Wie kann ich das machen. ich habe absolut keinen Plan, sitze schon seit stunden an einer Lösung!

Vielen Dank für jede Hilfe!!!

Gruss,
Emal

Office: String splitten und in Tabelle schreiben

String splitten und in Tabelle schreiben

String splitten und in Tabelle schreiben

String splitten und in Tabelle schreiben

String splitten und in Tabelle schreiben

String splitten und in Tabelle schreiben - Similar Threads - String splitten Tabelle

Teile aus einem qrcode string auslesen

VBA Auslesen von Strings und erstellen neuer Zeilen in einer Tabelle

mit String aus Formular Übereinstimmung in Abfrage prüfen

Leerzeichen abschließend im String

If-Then-Else...Verständnisfrage zu Kriterium String > Zahl

Erlaubte Zeichen an bestimmten Stellen von Strings

Mitarbeiterauslastung: Suchen nach String und addieren aller zugehörigen Zahlenwerte