Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe folgendes Problem: In einem Tabellenblatt befinden sich in den Spalten A-D und F-I und Jeweils in den Zeilen 1-20 Werte. Mein Ziel ist es in einem neuen Tabellenblatt die Werte neu zu sortieren. Zeile 1(neu) solle die Werte der Zeile1 von Spalte A-D enthalten. Zeile 2 (neu) die WErte der Zeile 1 von Spalte F-I. Zeile 3(neu) die Werte der Zeile 2 von Spalte A-D. Zeile 4 (neu) die WErte der Zeile 2 von Spalte F-I usw. Wenn ich jetzt diese ersten 4 Zeilen mit Hilfe einer Verküfung erstellt habe, sie markier und "herunterziehe" werden in Zeile 5 (neu ) nicht die WErte aus der Zeile 3 von Spalten A-D ausgegeben, sondern von Zeile 5. Was kann ich machen, damit mir die WErte fortlaufend aus den Zeilen 1- 20 wiedergegeben werden. Ich bin für Hilfe sehr dankbar. Gruß Lilie

Hallo Lilie,

Deine Daten befinden sich In Tabelle1 A1:I20.

Schreibe in A1 der neuen Tabelle folgende Formel

=WENN(REST(ZEILE();2)=1;INDEX(Tabelle1!$A:$D;ABRUNDEN((ZEILE()+1)/2;0);SPALTE());INDEX(Tabelle1!$F:$I;ABRUNDEN((ZEILE()+1)/2;0);SPALTE()))

und kopiere sie nach rechts bis in Spalte D und dann nach unten bis Zeile 40.

Gruß
Rainer

Hallo lilie,

eine Alternative wäre noch folgendes Makro

Option Explicit

Sub kopieren()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim intI As Integer, intZ As Integer
    Set ws1 = Worksheets("Tabelle1")
    Set ws2 = Worksheets("Tabelle2")
    Application.ScreenUpdating = False
    For intI = 1 To 20
        ws1.Range("A" & intI & ":D" & intI).Copy
        ws2.Select
        If ws2.Cells(Rows.Count, 1).End(xlUp).Row = 1 Then
            intZ = ws2.Cells(Rows.Count, 1).End(xlUp).Row
        Else
            intZ = ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1
        End If
        Range("A" & intZ).Select
        ws2.Paste
        ws1.Range("F" & intI & ":I" & intI).Copy
        ws2.Select
        Range("A" & ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1).Select
        ws2.Paste
    Next
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub

Gruß
Rainer

• Excel Zellbezug beim Kopieren in anderes Arbeitsblatt
• E-Mail Verknüpfung funktioniert nicht
• aus Access Verknüpfung erstellen
• Verknüpfung finden