Thema Datum  Von Nutzer Rating
Antwort
Rot Spalteninhalte trennen und neu schreiben
06.09.2019 12:52:54 Hendrik
*****
NotSolved
06.09.2019 13:59:41 UweD
NotSolved
06.09.2019 16:17:51 Gast22961
Solved
07.09.2019 09:31:41 Gast50958
NotSolved

Ansicht des Beitrags:
Von:
Hendrik
Datum:
06.09.2019 12:52:54
Views:
42
Rating: Antwort:
  Ja
Thema:
Spalteninhalte trennen und neu schreiben

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Spalteninhalte trennen und neu schreiben
06.09.2019 12:52:54 Hendrik
*****
NotSolved
06.09.2019 13:59:41 UweD
NotSolved
06.09.2019 16:17:51 Gast22961
Solved
07.09.2019 09:31:41 Gast50958
NotSolved