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

Ansicht des Beitrags:
Von:
Rigomaniac		 Datum:
24.06.2014 12:37:01		 Views:
791		 Rating:
     
Antwort:
  Ja
Thema:
Inhalt einer Zelle aufteilen

Vielen Dank für die Anregung :) Habe es nun hinbekommen, dass er es für mehrere Zellen macht und auch den Restinhalt kopiert der in vor- oder nachgelagerten Spalten steht.

 

Hier mein Code, wen es interessiert:

Option Explicit

Sub Schaltfläche4_KlickenSieAuf()
Dim rngCell As Range
Dim v As Variant
Dim i As Long, j As Long
Dim letztezeile As Integer, letztezeileneu As Integer

Application.ScreenUpdating = False

j = 1

Do

j = j + 1
letztezeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row

Set rngCell = Cells(j, 2)
v = Split(rngCell.Value, vbLf)
    For i = 1 To UBound(v)
        Call rngCell.Offset(i - 1).EntireRow.Copy
        Call rngCell.Offset(i).EntireRow.Insert(xlShiftDown)
        rngCell.Offset(i).Value = v(i)
    Next
    
On Error GoTo Fehler
rngCell.Value = v(0)

letztezeileneu = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
Loop Until letztezeile = letztezeileneu + 1

Fehler:
Application.ScreenUpdating = True

End Sub

Danke nochmals! :) Hat mir sehr geholfen!

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
23.06.2014 18:14:22 Gast92775
*****
Solved
Rot Inhalt einer Zelle aufteilen
 24.06.2014 12:37:01 Rigomaniac
NotSolved
25.06.2014 15:49:58 Gast92775
NotSolved