Thema Datum  Von Nutzer Rating
Antwort
23.06.2014 15:20:36 Rigomaniac
NotSolved
Blau Inhalt einer Zelle aufteilen
 23.06.2014 18:14:22 Gast92775
*****
Solved
24.06.2014 12:37:01 Rigomaniac
NotSolved
25.06.2014 15:49:58 Gast92775
NotSolved

Ansicht des Beitrags:
Von:
Gast92775		 Datum:
23.06.2014 18:14:22		 Views:
763		 Rating:
     
Antwort:
 Nein
Thema:
Inhalt einer Zelle aufteilen

Ein Zeilenumbruch in einer Zelle ist durch einen Linefeed codiert (dafür kennt VBA die Konstante vbLf).

 

Hier mal ein Ansatz (für eine einzige Zelle):

Option Explicit

Sub Test()
  
  Dim rngCell As Excel.Range
  Dim v As Variant
  Dim i As Long
  
  Set rngCell = Range("B2")
  
  v = Split(rngCell.Value, vbLf)
  
  For i = 1 To UBound(v)
    Call rngCell.Offset(i).EntireRow.Insert(xlShiftDown)
    rngCell.Offset(i).Value = v(i)
  Next
  rngCell.Value = v(0)
  
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
23.06.2014 15:20:36 Rigomaniac
NotSolved
Blau Inhalt einer Zelle aufteilen
 23.06.2014 18:14:22 Gast92775
*****
Solved
24.06.2014 12:37:01 Rigomaniac
NotSolved
25.06.2014 15:49:58 Gast92775
NotSolved