Inhalt einer Spalte mit Zellenabstand übertragen

[Robinlas]

Hallo zusammen,

ich möchte gerne folgendes Problem lösen.

In Spalte A einer Tabelle stehen verschiedene Werte untereinander. z.B. Automarken.

Ich möchte diese Spalte nun kopieren und in B einfügen.

Allerdings möchte ich, dass in Spalte B alle Werte mit einem Zellenabstand, den ich definieren, nach unten eingefügt werden.

Vielen Dank :)

Gruß,
Robin

   

[rate mit]

Hallo

In eine Liste Leerzeilen einfügen (herber.de)

[Robinlas]

Ok, danke für die schnelle Antwort.

Kommt mir ein wenig komplex vor. Da gibt es keinen einfacheren und verständlicheren Weg?

In meinem Fall brauche ich 5 Zellen Abstand dazwischen.

Gruß,
Robin

[Gastlich]

.Hallo,

PHP-Code:

=WENN(REST(ZEILE(A1);5) =1;INDEX(A$1:A$5;RUNDEN(ZEILE(A1)/5));"") 


Die Zahl 5 tauschen, wie nötig

[Robinlas]

Vielen Dank dafür. Ich komme weiter.

Leider wird mir die Formel rot umrandet.

=Wenn(REST(ZEILE(A1);5)=1;INDEX(A$1:A$631;RUNDEN(ZEILE(A1)/5));"")

In Spalte A stehen alle Werte. Es sind 631.

Jemand eine Idee?

Gruß,
Robin

[Kuwer]

Hallo Robin,

per VBA auch so z.B.:

Code:

Sub abc()
  Dim vQ As Variant, vZ As Variant
  Dim i As Long, j As Long
 
  i = Cells(Rows.Count, 1).End(xlUp).Row
  j = Application.InputBox("Bitte gewünschten Zeilenabstand angeben!", , , , , , , 1)
  If j Then
    vQ = Cells(1).Resize(i).Value
    ReDim vZ(1 To i * j - j + 1, 1 To 1)
   
    For i = 1 To i
      vZ((i * j) - j + 1, 1) = vQ(i, 1)
    Next i
   
    Columns(2) = ""
    Cells(1, 2).Resize(UBound(vZ)).Value = vZ
  End If
End Sub

Gruß Uwe

[rate mit]

... dann versuche es doch mal mit dieser Formel...

Code:

=WENN(REST(ZEILE()-1;5)=0;INDEX(A:A;(ZEILE()/5)+0,8);"")

[Gastlich]

Hallo,

PHP-Code:

=WENN(REST(ZEILE(A1);5)=1;INDEX(A$1:A$650;AUFRUNDEN(ZEILE(A1)/5;0);1);"") 


[LCohen]

=INDEX(A:A;SEQUENZ(10;;;1/2)) und benDefFmt =ISTGERADE(ZEILE()) mit ;;;

[Robinlas]

Ein großes Dankeschön an alle!

Nach längerem hin und her hab ich es nun umgesetzt bekommen.

Sehr schön :)

Gruß,
Robin