Clever-Excel-Forum

Guten Abend zusammen,

Ich habe folgendes Problem.

Ich möchte aus "Tabelle1" die Zellen C3 bis C13 in ein anderes Tabellenblatt kopieren. Nach "Tabelle2", Zellen C3 bis C13. Soweit so gut...
Sind diese Zellen aber voll, sollen meine kopierten Zellen in D3 bis D13 eingefügt werden. Sind diese voll in E3 bis E13 usw.. also in die nächst freien Zellen. Ende eigentlich offen.

Kann mir wer helfen ?? Vielen Dank vorab

Hallo

zu starten aus Tabelle1

Code:
Sub test()

    Dim lngZiel As Long

    With Sheets("Tabelle2")

        lngZiel = .Cells(3, .Columns.Count).End(xlToLeft).Column + 1

        If lngZiel <= 3 Then lngZiel = 3

        Range("C3:C13").Copy .Cells(3, lngZiel)

    End With

End Sub

MfG Tom

Danke, das ist super.

Wexel

Crazy Tom

Wexel