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:
Ich danke euch für eure Hilfe!
Sascha
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
- Sub KopierenS()
- x = 2
- y = 5
- For x = 2 To 100
- Worksheets("SRTM30").Range(Cells(7, x), Cells(30, x)).Select
- suchwert = ""
- For Each Suchzellen In Sellection
- If Suchzellen.Value <> suchwert Then
- i = 1
- z_index = Suchzellen.Row
- s_index = Suchellen.Column
- For Each Zelle In Range("C2:C100")
- If Zelle.Value <> suchwert Then
- d = 1
- r_index = Suchzellen.Row
- End If
- Next
- Cells(z_index, s_index).Copy Destination:=Worksheets("SRTM30_S").Cells(r_index, 3)
- End If
- Next
- x = x + 4
- y = y + 4
- Next
- End Sub
Ich danke euch für eure Hilfe!
Sascha