Spalten von einem ins nächste Tabellenblatt kopieren

  • Excel

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von FloFuchs.

    Spalten von einem ins nächste Tabellenblatt kopieren

    Der Neuling mal wieder

    Folgende Situation: Ich möchte Spalten, die im ersten Tabellenblatt (SRTM30) nebeneinander liegen in ein zweites Tabellenblatt (SRTM30_S) untereinander kopieren.
    Das Problem: Die Spalten sind nicht immer gleich lang (+-3 Zeilen)
    Daher meine Überlegung: Eine Range im ersten Tabellenblatt vorgeben, darin aktive Zellen suchen, markieren und kopieren. Dann das in das zweite Tabellenblatt wechseln, letzte freie Zeile suchen, auswählen und einfügen.
    Ziel: Das Ganze mit ca. 1300 Spalten. Probehalber habe ich zunächst nur 100 angewählt
    Advanced: Eigtl. sind es immer Spaltenpaare, die durch jeweils 2 Spalten getrennt von einander sind.
    Aufbau in Tabellenblatt 1: x a b y e x a b y
    das soll im Tabellenblatt 2 dann zu x y werden wobei die Werte der x-Spalten und y-Spalten dann jeweils untereinander geschrieben werden sollen.

    Mein Quellcode startet aber leider noch nicht mal:

    Quellcode

    1. Sub KopierenS()
    3. x = 2
    4. y = 5
    8. For x = 2 To 100
    9. Worksheets("SRTM30").Range(Cells(7, x), Cells(30, x)).Select
    11. suchwert = ""
    12. For Each Suchzellen In Sellection
    13. If Suchzellen.Value <> suchwert Then
    14. i = 1
    15. z_index = Suchzellen.Row
    16. s_index = Suchellen.Column
    19. For Each Zelle In Range("C2:C100")
    20. If Zelle.Value <> suchwert Then
    21. d = 1
    22. r_index = Suchzellen.Row
    23. End If
    24. Next
    26. Cells(z_index, s_index).Copy Destination:=Worksheets("SRTM30_S").Cells(r_index, 3)
    28. End If
    31. Next
    33. x = x + 4
    34. y = y + 4
    35. Next
    37. End Sub



    Ich danke euch für eure Hilfe!

    Sascha

    FloFuchs schrieb:

    Zitat von »Sascher«



    darin aktive Zellen suchen

    FloFuchs schrieb:

    Was meinst du damit?


    Nun, da die Spalten nicht immer gleich lang sind, dachte ich, ich wähle provisorisch immer beispielsweise B7-B30 aus und such darin dann nach Zellen, die einen Wert beeinhalten/nicht leer sind, um diese dann zu kopieren.

    Dein zielt auf die Anzahl hin, richtig? Das war auch meine Überlegung nicht nach leeren Zellen zu suchen, sondern die zuvor kopierte Anzahl x zu berücksichtigen und dann zu sagen Spalte O+x..... Allerdings dachte ich mir das Suchen würde eine einfachere Alternative darstellen

    Nunja, einfacher ist relativ...
    Erst alles durchsuchen un dann kopieren, is auf jeden fall langsamer. Die Frage ist, wieviele Zeilen pro Spalte normalerweise vor kommen.
    3 Abschnitte einfach in ein neues Blatt kopieren und danach mit der Excel Sortierfunktion alle leeren raus werfen is sicher schneller.

    ok, ja, hast Recht - das ist ein guter Vorschlag.

    Demnach habe ich jetzt folgendes geschrieben:

    Quellcode

    1. Sub CopyS()
    4. x = 2
    5. y = 5
    7. u = 3
    8. v = 3
    10. For x = 2 To 100
    11. Worksheets("SRTM30").Range(Cells(7, x), Cells(28, x)).Select
    12. Selection.Copy
    14. Worksheets("SRTM30_S").Select
    15. Cells(u, 3).PasteSpecial xlPasteValues
    16. Application.CutCopyMode = False
    18. u = u + 21
    20. Worksheets("SRTM30").Range(Cells(7, y), Cells(28, y)).Select
    21. Selection.Copy
    23. Worksheets("SRTM30_S").Select
    24. Cells(v, 4).PasteSpecial xlPasteValues
    25. Application.CutCopyMode = False
    27. v = v + 21
    29. Next
    34. End Sub


    schmeißt mir trotzdem nen Fehler aus. In der Zeile "Worksheets("SRTM30").Range(Cells(7, x), Cells(28, x)).Select" scheint was nicht richtig zu sein :-/

    hmpf

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Sascher“ ()

Facebook
Telefonspende