Re: VBA: Aufslitten von Tabellenspalten

Hallo Günther,

Günther Schulze schrieb:
On Tue, 30 May 2006 18:52:03 +0200, Solaiman Ghaus
<solaiman-2001@xxxxxxxx> wrote:

Hallo Günther,

Hallo Solamain,

vielen Dank für Dein Feedback. In meinem Fall brauche ich in jedem
Fall einen VBA Quellcode, die von Dir vorgeschlagene "einfache" Lösung
bringt mich in diesem Fall leider nicht viel weiter. ;-(


stand nicht, daß du meinen vorgeschlagenen Weg (typischer Fall für so etwas) nicht brauchst, deshalb ;-)

Es handelt sich nämlich um ein Teilproblem innerhalb eines komplexen
Programmierprojektes. Die anderen Teilaufgaben habe ich bereits
erfolgreich lösen können, an dem aufsPlitten der Spalte in Teilspalten
habe ich mir leider die Zähne ausgebissen.

Was ich in meinerm ursprünglichen Posting leider vergessen habe zu
erwähnen: Die Zahl der gefüllten Zellen in Spalte C ist
unterschiedlich, das mit den drei geposteten Einträgen war vlediglich
ein stark vereinfachtes Beispiel. Ich hätte die Frage auch so
formulireren können: Der Gesamtstring in einer Zelle soll in seine
Teilstrings aufgesplittet werden, wobei jeder Teilstring seine eigene
Zelle erhalten soll. Aber diese Formulierung wäre wahrscheinlich etwas
unverständlich gewesen.

Vielleicht findet sich hier noch jemand mit VBA Kenntnissen, der diese
Aufgabe bewältigen kann?

Eine mögliche Lösung könnte ich dir anbieten:

'------------------------------------------------------------------------
Sub TextInSpalten()
Dim Wks As Work***

Dim Text As String
Dim TempText As String
Dim Pos As Integer
Dim S As Integer
Dim lZeile As Integer

Set Wks = Worksheets("Tabelle1")
lZeile = Wks.Cells(65536, 3).End(xlUp).Row

For i = 1 To lZeile
S = 3 'Spalte C

Text = Replace(Wks.Cells(i, S), Chr(9), " ") 'Tabulator in Leerzeichen umwandeln
Text = Trim(Text)
While InStr(1, Text, " ")
Pos = InStr(1, Text, " ")
TempText = Trim(Mid(Text, 1, Pos))
Text = Trim(Mid(Text, Pos, Len(Text)))

Wks.Cells(i, S) = TempText
S = S + 1
Wend

If TempText <> "" Then
TempText = ""
Wks.Cells(i, S) = Text
End If
Next i

End Sub

'------------------------------------------------------------------------


Liebe Grüße

Günther

Gruß
Solaiman
.

Loading