jede zweite zelle

[gitmichi]

Hi,

ich habe eine Spalte mit hunderten Zahlen beginnend bei E11 untereinander.

ich möchte das jede zweite Zahl in der Spalte eine Spalte nach rechts und eine Zeile nach oben geht.

Vielleicht gibt die Datei bessere Infos

Gibt es dafür eine Funktion??

Danke und gruß
Michi

[shift-del]

Moin

Code:

=ZEILENUMBRUCH(E11:E16;2)

Ab Excel 365.

[gitmichi]

schade die Version hab ich noch nicht... 2019

[juvee]

Hi,

mit Makro so

Code:

Sub x()

Dim vIn As Variant, vOut() As Variant
Dim i As Long, z As Long

'read the data
With ActiveSheet.Range("E11").CurrentRegion
  vIn = .Offset(1).Resize(.Rows.Count - 1).Value
' .ClearContents  ' wenn es an dieselbe stelle soll, die Auskommentierung entfernen
End With

'organize the data
ReDim vOut(0 To UBound(vIn, 1) / 2, 0 To 1)
z = 0
For i = 1 To UBound(vIn, 1) Step 2
vOut(z, 0) = vIn(i, 1)
vOut(z, 1) = vIn(i + 1, 1)
z = z + 1
Next

'write the data
  ' hier den Ausgabebereich obere linke Zelle eintragen
  ActiveSheet.Range("A1").Resize(UBound(vOut, 1), 2) = vOut
End Sub

VG Juvee

[RPP63]

Moin!
Geht auch recht einfach mittels Indizierung des Bereichs:

	E	F	G	H	I
10	Ist			soll
11	18			18	11
12	11			24	36
13	24			12	45
14	36
15	12
16	45
17

Zelle	Formel
H11	=INDEX($E$11:$E$16;ZEILE(X1)*2-REST(SPALTE(A42);2))

H11 nach rechts und unten ziehen.

Gruß Ralf