Thema Datum  Von Nutzer Rating
Antwort
03.12.2015 07:14:15 Nicole
NotSolved
03.12.2015 14:09:21 Gast67803
NotSolved
Rot Werte aus Zelle in die div. Zellen aufteilen
 03.12.2015 14:31:51 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
03.12.2015 14:31:51		 Views:
652		 Rating:
     
Antwort:
  Ja
Thema:
Werte aus Zelle in die div. Zellen aufteilen

Hallo,

eventuell hilft dieser Code:

Sub ImportData()
    Dim rng As Range
    Dim strData() As String
    Dim iData As Integer, iTMP As Integer, strTMP As String, varTMP As Variant
    Dim iItem As Integer
    
    ' Daten einlesen in ein Array
    iData = -1
    For Each rng In Intersect(ActiveSheet.UsedRange, Range("B:B")).Cells
        strTMP = rng.Value
        If strTMP <> "" Then
            varTMP = Split(rng.Value, vbLf)
            For iTMP = 0 To UBound(varTMP)
                iData = iData + 1
                ReDim Preserve strData(iData)
                strData(iData) = varTMP(iTMP)
                Debug.Print varTMP(iTMP)
            Next
        End If
    Next
    
    ' Ausgabe
    If iData > -1 Then
        For iItem = 0 To UBound(strData)
            Cells(iItem + 1, 2) = strData(iItem)
        Next
    End If
End Sub

VG, BigBen

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
03.12.2015 07:14:15 Nicole
NotSolved
03.12.2015 14:09:21 Gast67803
NotSolved
Rot Werte aus Zelle in die div. Zellen aufteilen
 03.12.2015 14:31:51 BigBen
NotSolved