|
Hallo zusammen,
ich habe in einem Tabellenblatt (LF1 - 3.3 Linienlasten) eine Spalte (C) in deren Zeilen (5 und 6) Zahlen sind, die durch ein Komma getrennte sind:
|
|
|
|
|
|
Last- |
|
Nr. |
Beziehen auf |
An Linien Nr. |
Lastart |
Lastverteilung |
richtung |
|
1 |
|
|
|
|
|
|
2 |
|
|
|
|
|
|
3 |
Linien |
14,41,56,257,287,289,291,296 |
Kraft |
Konstant |
ZL |
|
4 |
Linien |
67,259 |
Kraft |
Konstant |
ZL |
Ich würde gerne in einem neuen Tabellenblatt (MAKRO1) die Zahlen untereinander geschrieben haben:
|
14 |
|
41 |
|
56 |
|
257 |
|
287 |
|
289 |
|
291 |
|
296 |
|
67 |
|
259 |
In meinem aktuellen VBA Skript sieht das Ergebniss aber wie folgt aus:
|
67 |
|
259 |
|
56 |
|
257 |
|
287 |
|
289 |
|
291 |
|
296 |
Es überschreibt die oberen Einträge in der Schleife.
Hier mein Code:
Option Explicit
Sub Trennen()
Dim Textfolge As String
Dim Zahl() As String
Dim L As Integer
Dim x As Integer
Dim i As Integer
Application.ScreenUpdating = False
L = WorksheetFunction.CountA(Worksheets("LF1 - 3.3 Linienlasten").Columns(1))
For x = 3 To L + 2
Textfolge = Worksheets("LF1 - 3.3 Linienlasten").Cells(x, 3).Value
Zahl = Split(Textfolge, ",")
For i = 0 To UBound(Zahl)
Worksheets("Makro1").Cells(1 + i, 3) = Zahl(i)
Next i
Next x
Application.ScreenUpdating = True
End Sub
Wo liegt der Fehler? Bin offen für alle Ideen und Lösungen.
Vielen Dank!
Grüße,
Hendrik
|