Thema Datum  Von Nutzer Rating
Antwort
07.11.2018 11:24:20 John
NotSolved
Blau Felder auslesen und Zeilen duplizieren
 07.11.2018 12:17:50 Gast81894
*****
NotSolved
07.11.2018 13:47:33 Gast47481
NotSolved

Ansicht des Beitrags:
Von:
Gast81894		 Datum:
07.11.2018 12:17:50		 Views:
470		 Rating:
     
Antwort:
  Ja
Thema:
Felder auslesen und Zeilen duplizieren		 
Sub DoIt()
Dim Rng As Range
Dim arrTxt() As String
Dim x As Long

   Set Rng = ActiveSheet.UsedRange.Find(What:=",", LookIn:=xlValues)
   If Not Rng Is Nothing Then
      arrTxt = Split(Rng.Value, ",")
      Rng.Offset(1).EntireRow.Resize(UBound(arrTxt)).Insert Shift:=xlDown
      For x = LBound(arrTxt) To UBound(arrTxt)
         Rng.Offset(x) = arrTxt(x)
      Next x
   End If
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
07.11.2018 11:24:20 John
NotSolved
Blau Felder auslesen und Zeilen duplizieren
 07.11.2018 12:17:50 Gast81894
*****
NotSolved
07.11.2018 13:47:33 Gast47481
NotSolved