Zellen kopieren

[DVFan]

Hallo

gib es eine Funktion beim Kopieren von Zellen das immer nur jede zweite Zeile hochgezählt wird.

Beispiel

in F1 steht =B1
in F2 steht =C1
in F3 steht =A2
in F4 steht =C2

jetzt Zellen F1 bis F4 nach unten kopieren

gewollte Ergebnis wäre dann

in F5 steht =B3
in F6 steht =C3
in F7 steht =A4
in F8 steht =C4

bekomme es nicht hin

Grüße
Thomas

[pefeu]

Hallo Thomas,

versuche es einmal so:

PHP-Code:

Option Explicit

Public Sub Jede_zweite()

Dim lZeile_Ein
Dim lZeile_Aus

  With ThisWorkbook.Worksheets("Tabelle1") ' den Tabelenblattnamen ggf. anpassen!
     For lZeile_Ein = 1 To .Cells(.Rows.Count, 2).End(xlUp).Row Step 2
        .Range("F" & lZeile_Aus + 1) = .Range("B" & lZeile_Ein).Value
        .Range("F" & lZeile_Aus + 2) = .Range("C" & lZeile_Ein).Value
        .Range("F" & lZeile_Aus + 3) = .Range("A" & lZeile_Ein + 1).Value
        .Range("F" & lZeile_Aus + 4) = .Range("C" & lZeile_Ein + 1).Value
        lZeile_Aus = lZeile_Aus + 4
     Next lZeile_Ein
  End With

End Sub

Gruß Peter


[RPP63]

Hallo Thomas!
Wie ich Dir bereits hier: http://www.clever-excel-forum.de/Thread-...2#pid27962 gezeigt habe, kann man so etwas über INDEX() ermitteln.

Die Syntax lautet bekanntlich (siehe Excel-Hilfe): INDEX(Matrix; Zeilennummer; [Spaltennummer])
Deine Matrix ist A:C
Jetzt musst Du "nur" einen Algorithmus entwickeln (mittels der Funktionen Zeile() und Spalte()), der folgende Reihe abbildet:
1-2
1-3
2-1
2-3
3-2
3-3
4-1
4-3

Es kann nicht zielführend sein, wenn Dir mittels Forum Formeln entwickelt werden, die Du nicht verstehst.
Insofern: Hast Du nachvollziehen können, was meine Formel im verlinkten Beitrag macht?

Gruß Ralf