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

Ansicht des Beitrags:
Von:
Gast50958		 Datum:
07.09.2019 09:31:41		 Views:
546		 Rating:
     
Antwort:
  Ja
Thema:
Spalteninhalte trennen und neu schreiben
Option Explicit
 
Sub Trennen()
 
Dim Textfolge As String
Dim Zahl() As String
Dim L As Integer
Dim x As Integer
Dim i As Integer
dim k as integer
 
    Application.ScreenUpdating = False
 
    L = WorksheetFunction.CountA(Worksheets("LF1 - 3.3 Linienlasten").Columns(1))
 
         k = 0
 
    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 + k, 3) = Zahl(i)
      
            k = k + UBound(Zahl)
     
        Next i
     
        Next x
    
    Application.ScreenUpdating = True
 
   
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

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